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1 
: -REM € 
: IDENTIFICATION 
6 
: PRODUCT CODE: AC-T853E-MC 
: PRODUCT NAME: COKDAEO KDJ11-B CLUSTER DIAG. 
1 
il PRODUCT DATE: MAY, 1985 
12 
13 MAINTAINER: DIAGNOSTIC ENGINEERING 
14 
15 
16 
17 
19 
20 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
21 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
22 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
= RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
25 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
26 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
= AFFILIATED COMPANIES. 
= COPYRIGHT (C) 1984,1985 BY DIGITAL EQUIPMENT CORPORATION 
31 
= THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
34 DIGITAL POP UNIBUS MASSBUS 
35 DEC DECUS DECTAPE 
36 
37 
38 
39 
40 
41 
42 





-— 














COKDAEO KOJ11-8 CLUSTER DIAG. MACRO YOS.02 Tuesday 14-May-85 08:07 Page 3 
SEQ 0002 


ag 

45 

46 

47 TABLE OF CONTENTS 

48 | 

4a 

= ‘. PROGRAM ABSRACT 

= 2. SYSTEM REQUIREMENTS 

= 3. LOADING AND STARTING PROCEDURES 
= 4. SPECIAL ENVIRONMENTS 

= Ss. PROGRAM OPTIONS 

* 6. EXECUTION TIMES 

os wa ERROR INFORMATION 

= 8. EXAMPLES 

Ys 9. PROGRAM DESCRIPTION 

68 9.1 Jil CODE 

69 9.2 CACHE CODE 

70 9.3 ON- 

71 9.4 LINE TIME CLOCK CODE 

72 9.5 SERIAL LINE UNIT CODE 

73 9.6 Q22BE CODE 

= 9.7 LIST of SUBTESTS showing CACHE/APT dependency 
L 10. PROGRAM UPDATES AND MODIFICATIONS 














COKDAEO KDJ11-B CLUSTER DIAG. MACRO YOS.02 Tuesday 14-May-85 08:07 Page 4 


SEQ 0003 


80 1. PROGRAM ABSTRACT 

81 

82 #aee gee special instructions for CACHE testing under APT, sees 
83 aeee 8=6gection 9.2, and EEROM testing under APT, section 9.3 ste 
84 

85 

BA This program tests out KDJ11-B CPU board, including the J11 chip set, 
87 on-board cache, on-board ROM's, including 16 bit and the 8 bit EEROM, 
-s serial line unit, and line time clocks. 

90 The KDJ11-B is a PDP-11 CPU that incorporates the Jil chip set as the 
91 heart of the processor. It is a quad height Q22 bus module. It has 

92 on-board cache, some of the functionality of the cache is hidden inside 
93 the J11 and the rest of the functions implemented in two on-board gate 
94 arrays. The storage capacity of the cache is 4K bytes of RAM, called 
95 ‘ date RAM’s. The cache is implemented es « direct mapped cache with 

96 address bits 21 through 135 stored in a different set of RAM’s called 
97 tag store. 

98 The KDJ11-8 also has two on-board ROM’s. One of them, the 16-bit 

99 addressable ROM, contains the self-test and the boot codes. The other 
100 . ROM, the 8-bit addressable one, contains the base srea with hardware 
101 selection parameters, opticnal bootstraps, optional UFD (User Friendly 
— a system desctiption erea, and optional foreign lenguaege 

ext. 

104 The Serial Line Unit is implemented thru a Dlert chip which provides 
105 . the standard console interface to the CPU. It has internal loop back 
106 mode and provides with three clock lines: 800HZ, 60HZ, and SOHZ. 
107 The line time clock functions are implemented using those three lines 
108 and the BEVENT line. The line clock status register is implemented in 
109 one of the gate arrays. 
110 
i111 
aes 2. SYSTEM REQUIREMENTS 

il 

1 Hardware Requirements 

il 

7 To run successfully the diagnostic needs: 

il 

118 1. KDJ11-B CPU module 

119 2. console termine] 

oa: 3. at least 28K of memory 

121 

i122 In DVT, and stage one manufacturing (module assembly) the Q22 Bus 
123 exerciser is needed to check Q22 Bus logic. 

, 
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SEQ 0004 


3. LOADING AND STARTING PROCLOURES 
To start-up this program: 
1. Boot XXDP-+ 


2. Type “R NAME”, where name is the name of the BIN or BIC 
file for this program. 


The starting ajdress of the program is 200. 
Note: if trying to restart the program in an arbitrary place after 
HALT on Break the following registers should be set up: 


1777757220 to disable memmory management 
1777752071000 to clear diagnostic mode (bit 8), but still save 
HALT on Break 


17777746=400 to flush the cache 


4. SPECIAL ENVIRONMENTS 


The program is APT compatible. It can also be run under the UFD monitor. 

In those cases none of the standard error printouts occur. Refer 

Rp al sais documents on running procedures in APT and under 
monitor. 


as4e see special instructions for CACHE testing under APT, see 
*s4e 8=section 9.2, and EEROM testing under APT, section 9.3 see 


5. PROGRAM OPTIONS 


The Q22 Bus Exerciser is utilized if it is present in the system and 

the diagnostic is not running in UFD mode. 

Stendard capabilities of looping on test and on error are provided. 

In order to run the extensive cache data RAM test bit 7 has to be set 

in the software switch register. To run the extensive cache tag RAM test 
bit 6 has to be set in the software switch register. 


SWITCH REGISTER SELECTION: 
BIT NUMBER 


USE 
HALT ON ERROR 
14 LOOP ON PRESENT TEST 
13 INHIBIT ERROR TYPEOUTS 
sae i2 EEROM subtest RUN switch 
11 INHIBIT ITERATIONS 
10 BELL ON ERROR 
os LOOP ON ERROR 
8 LOOP ON TEST IN SWR<5-0> 
7 DO EXTENSIVE DATA RAM TEST 
6 DO EXTENSIVE TAG RAM TEST 
5-0 Subtest number to loop on (BIT 8) 


**% running with this test will change all but the first 109 bytes of 
EEROM data! be SURE to read instructions in sect. 9.3 
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= 6. EXECUTION TIMES 

182 

183 Without extensive RAM tests, the diagnostic runs in under 15 seconds. 
= With them, it takes about 2 minutes. 

186 In addition, when the EEROM test bit is on, pass 1 takes an additional 
187 amount of time of 1 minute for 15MHZ J-11, to about 40 sec. for the 
1838 20MHZ. version. These test times ere for the 2K EEROM, for 8K parts, 
189 multiply by 4. If runni under APT, the system manager must be sure 
a the first pass run time allows adequate time for completion of this test! 
a 7. ERROR INFORMATION 

194 In the case of errors, a failing PC and test numbers ere given. 

195 Where it is possible, expected and received date are given. 

oe For an example, see section 8 

— 8. EXAMPLES 

1 

200 After booting XXDP+ and sterting the program, the following 

pow will appear on the terminal: 

= * KDJ11-B CPU DIAGNOSTIC - COKDAEO « 

205 SWR = XXXXXX NEW = 

206 

207 where XXXXXX correspond to present softwere switch register 

208 setting. 

209 After “NEW” an operator can do one of the following: 

210 1) type in a new software switch register setting followed 

211 BY cerrige return or 

212 2) just type in carriage return in which case the software 

=e register will remain unchanged. 

215 Exemple of error tee wed 

216 ERROR IN TAG STORE 

217 TEST ERROR ADDRESS ADDRESS 

218 & PC <21-16> <15-0> 

219 27 105620 66600 000000 

220 Note: this may not correspond to the ectual Program Counter. 








———s - 
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9. PROGRAM DESCRIPTION 


9.1 J11 CODE 

This portion of the code tests out the Jil chip set. It is broken 
into 3 pieces: CPU tests, which verify different instructions in 
different modes and different trap conditions; MMU tests, which 
verify different functions of MMU; and FFP tests, which do 
different floating point instructions. 

This portion of the code have been written in close reletionship 
with the Jill microcode. Therefore, even though not all possible 
instructions in all possible addressing mode have been tested, an 
attempt has been made to exercise all of the microcode. 


9.2 CACHE CODE 
This portion of the diagnostic verifies all cache functions. 
Data and tag RAM‘s tests are also included. 


RRRREEEEDEESEEEDLEEEEEEEEEEEDEEEE OS OEEEOEEOEEO84O460464646664464046646646646660646444 
Note: in order to run extensive cache RAM’s tests the corresponding 
bits in the software switch ister should be set. See section 5. 
----In particuler, the number in $USWR (swere reg #2) should equal 
the “first pass run time” set up et instellation---- (the exception 
is when $USWR is set to ZERO, no condition applies) 
$404 O6 4464046066046 $6 460006446064606600066046466006646 06 00446666464666666 4646 04444464644 


TESTING CACHE FUNCTIONS UNDER APT 


The testing of Cache related functions under APT is facilitated 
by use of $USWR containing a number which will indicate the number 
of passes with inclusive cache tests as follows: 


Call numbers in decimal, $USWR loaded by APT manager ) 


one pass with all subtests followed by 
default SUSWR = 0 continuous testi of non-cache dependent 
setting subtests until APT Break is encountered 
CAPT system must not BREAK in for this 
“First Pass Run Time”, now assumed to be 
approx 16 sec. ) 


$USWR < 16 ~—- non-cache dependent tests will be run 
APT may break anytime 

$USWR = 16 same as SUSWP = 0 

$USWR > 16 SUSWR is divided by 16 (pass time ) to get a 





SEQ 0006 





ee ee ne ee ee mere el 
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SEQ 0007 

274 number of passes which include ell subtests 
275 Cincluding cache) After this number of pesses, 
276 continuous testing with only non-ceche depend- 
277 ent sub-tests is continued during which time 
ae APT may break with no bad effects. 
280 In this case, the APT s cup must not attempt to break for a length of time 
281 equal to $USWR contents, in seconds. The nominal 16 seconds per pass, and the 
282 actual pass time of about 10 seconds (which changes as tests may be added) 
283 allow a safty 4 o adding sdditionel tests. The actual number of passes done 
284 will be equal to $USWR divided by 16, Cif not 0, or < 16 ). 
see Ssseseegegees 
287 ssa4% The guarrantee that APT will not attempt to break into the di tic 
288 for a given number of seconds is provided the APT system manager loading 
289 the variable $PASTM with the same number $USWR received. 
290 If this is not done, the message “hung diagnostic” will likely be receivedsesssess 
291 PRESESS ESE SS 
292 
= 9.3 ON-BOARD ROM AND EEROM CODE 
295 These tests verify the checksums of the 16-bit ROM and the base 
296 erea of the 8-bit EEROM, and e write and read of i‘s and 0's to 
297 each location of the EEROM. The EEROM we be affected by multiple 
298 writes, (>10,000 cycles) so it is advisable to select this test 
44 with care. 
301 The testing of the on-board EEROM is accomplished by the setting 
302 of bit 12 in the softwere switch ister, which will see that the 
303 EEROM test is run once. (Pass 1) It should be noted that this bit 
304 may have another use in the SYSMAC macro $E0P, but is not so used 
305 within this program. The BCSR is also set for Halt on Break on 
Lan during this test, es a troubleshooting aid in stand-alone modes. 
308 #¢¢ WHEN RUNNING THIS TEST UNDER APT eee 
310 After loading and starting the program with EEROM test switch 
311 on, APT must not (break) interrupt the test until the time 
3 given in section 6, EXECUTION TIMES, hes passsed. 

1 

314 This test should never be “scripted” in a way which would cause 
315 the test to be run multiple times. It should be run instead 
ne once at the begining or end of a script. 

1 

318 $4466264464200408008 

319 

320 es The contents of the EEROM are lost, except for the 109 (decimal) byte 
321 9 oo the SETUP area, which are restored at the end of the EEROM 
322 $! subtest. If the test is interrupted before these locations are re- 
323 os stored, unpredictable results may occur. 
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SEQ 0006 

325 
326 
327 
328 9.4 LINE TIME CLOCKS CODE 
329 This part of the program verifies the functions of all 4 clock 
330 lines: 3 of them from the serial line chip (50HZ, 60HZ, 800HZ) 
331 and BEVENT line. 
332 Note: in UFD mode only functions corresponding to Boot Rom 
333 selection are checked. 
334 
335 
336 9.5 SERIAL LINE UNIT CODE 
337 These tests verify the functionality of the SLU chip utilizing the 
338 maintenance mode of the chip. 
339 
340 
341 9.6 Q22BE CODE 
342 These tests verify interrupt arbitration of the KDJ11-8, DMA 
343 protocol, and cache functions related to the DMA activities, 
244 including PMG counter. 
345 
346 
347 9.7 LIST OF SUBTESTS PERFORMED 
348 The following list represents the sequential order of subtests 
349 performed in COKDAEO..... subtests which are subject to the APT 
aay qualifications of section 9.2 are indicated by ea Cache-APT label. 

1 
= TEST NO. TEST NAME/FUNCTION APT-CACHE sel NOTES. 
354 test 1 base instruction set tests 
355 test 2 check (cache) register access 
35¢é test 3 CCR register bit test 
357 test 4 force miss test 
358 test 5 hit/miss register test pert 1 
359 test 6 hit/miss register test 
360 test 7 byte allocation test 
361 
362 test 10 POR bit 15 (bypass) test 
363 test 11 flush cache test 
364 test 12 unconditional bypass test 
365 test 13 write wrong date parity test 
366 test 14 write wrong tag parity 
367 test 15 perity ebort test 
368 test 16 oe pl interrupt test 
369 test 17 miscellaneous parity test 
370 
371 . test 20 memory system error register test 
372 test 21 check parity eborts blocked ...... 
373 test 22 multi-processing instruction 
374 test 23 date store ram, tests 





——- 
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SEQ 0009 

376 test 24 tag store ram tests yes 

377 test 25 standalone mode tests yes 

378 test 26 moving inversions test date RAM yes 

a test 27 moving inversions for tag store yes 

381 test 30 PCR read/write bits j= = .uueaes 

382 test 31 besr read/write bits j= = aueeoes 

383 test 32 16 bit ROM checksum j= ..vaaes HOB on 

384 test 33 8 bit EEROM checksum test _....... HOB oni 

385 test 34 EEROM checkerboard mem test ........... note 1.0 

386 test 35 eS t—“(it*tséts 

387 test 36 LKS interrupt priority j= = ..seeee 

es test 37 line clock disable =  — nuuaaes 

390 test 40 unconditional clock interupts ....... 

391 test 41 uh i only done pass 1 

392 test 42 line clock interrupts yes not CACHE dep, APT break sensitiv 
e 

393 test 43 maintenance register test i ....... 

394 test 44 serial line unit registers ....... 

395 test 45 IES es ile 

396 test 46 RCSR bit 7 and XCSR bit 7 —_.......... done once in APT 

aad test 47 RESET end MCSR<2Z90> 0 lh te cee first pass only 

399 test 50 RESET and interrupt enable ....... 

400 test 51 interrupt priority for SLU ....... done once in APT 

401 test 52 ee done only once 

402 test 53 Overrun Geeeieien = i .. sevecevee done once in APT 

403 test 54 EERIE Se ee HOB on 

404 test 55 MEMORY mapping not done chain mode, APT, other than pass i 

405 test 56 9 yt se a ee 

= test 57 DMA TAG PARITY in standalone yes HOB disebled 

408 test 60 DMA tag parity w/o standalone yes 

409 test 61 OMA write hit cycles yes 

410 test 62 different levels of interrupts not UFD. only if Q22BE found 

411 test 63 Arbitration bet PIRQ interrupt not UFD, only if Q@22BE found 

412 test 64 power down test not UFD, only if Q@22BE found 

413 test 65 arbitration between interrupt levels not UFD. only if Q22BE found 

poo test 66 PMG counter yes not UFD. only if two Q22BE found 

41 

416 as of july 1984, this is the list of subtests. any added subtests wil] require 

417 editing of this list.... 

418 

419 

420 note 1. This test will only be run in first pass, and then only if bit 12 is set 

421 in the SWR.... Running this test will DESTROY everything in the EEROM 

422 except the first 109 bytes...... UFD erea, secondary buots, and locel 

423 language area's would all need to be restored after running this test. 


424 The first pass run time must be adjusted accordingly when running under 
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10. 


Version 


Version 





SEQ 0010 


PROGRAM UPDATES AND MODIFICATIONS 


COKDADO 2-22-85 Howard L. Marshell 
1. Changes made by Howard L. Marshall - denoted by “$$$” 
in comment lines of added or changed code, as of 2-22-85 


Added subroutine "DETFPA” (determine floating point accelerator) 


This subroutine is called just prior to the error macro for all 
floating point errors. This subroutine prints 1 of 2 possible 
error messages. they are: 


A.) ERROR DETECTED IN FLOATING POINT ACCELERATOR CHIP. 
B.) ERROR DETECTED IN J11 FLOATING POINT PROCESSOR. 


Of the 2 above error messages, the error message thet is 
printed is determined by the state of the “FPA” flag, dit 8, 

in the maintenance register. this bit is set to a 1 if the 
floating point accelerator chip is installed in the cpu board. 
Otherwise, the bit is cleared which indicetes thet the 

floating point accelertor chip is not installed. Based solely 
on this determination, it is logical to assume thet most, if 
not all eg point errors can be attributed to the FPA 
chip if the “FPA” bit is set or to the floating point processor 
within the jill if the “FPA” bit is cleared. 


COKDAEO 13-MAY-85 Howard L. Maershell 

Changes made by Howard L. Marshall - denoted by “$$$” 

Corrected error in 22-Bit MMU Tests (test #1) which used number 
157776 as virtuvel address intended to address last word of RAM 
just below the us oe. This virtual address in conjunction 
with e velue of 17 in KPAR6 ectually maps to physicel 
address 17767776 which is at 2046K (half-way into the I/0 page). 
Changed that virtual address to 147776 which when used with the 
above value in KPAR6, maps to physicel address 17757776 which 
is in the 2044K page, the lest non I/0 page address. 


Modified test #53, Overrun condition test to allow this test to 
work properly when the console terminal is running et the mini - 
mum ORION baud rate, 300 baud. Changed wait argument from: 

#150000 to #175000. 


€ 





—<— 
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482 
483 
484 


485 


487 
489 


TE 





167400 
000300 


000001 


000250 


177572 
177574 
177576 
172516 


177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 


177620 
177622 
177624 


$SWR=167400 
$SWRMK=300 
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-TITLE COKDAEO KDJ11-B8 CLUSTER DIAG. 


;#COPYRIGHT (C) MAY 85 


s#DIGITAL EQUIPMENT CORP. 


:*#MAYNARD, MASS. 01754 

;* 

;#PROGRAM BY DIAG. ENG. 

7 

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


s*PACKAGE (MAINDEC-11-DZQAC-C8), OCT, 1982. 


-SBTTL 
MMVEC= 


OPERATIONAL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 

LOOP ON TEST IN SWR<5:0> 

DO EXTENSIVE DATA RAM TEST 
EXTENSIVE TAG RAM TEST 


DO 
MEMORY MANAGEMENT DEFINITIONS 
3#KT1i1 = ADDRESS 


;#KT1i1 — ADDRESSES 


O= 


SR3= 


177602 
177604 
177606 
177610 
177612 
177614 


UIPDR7= 177616 
;*#USER “D” PAGE DESCRIPTOR REGISTORS 


UDPDRO= 
UDPDR1i= 
UDPDR2= 
UDPDR3= 
UDPDR4 = 
UDPORS = 
UDPDR6= 
UDPDR7= 


;#USER “I 


UIPARO= 
UIPAR1i= 
UIPAR2= 
UIPARS= 


177620 


177 


177640 
177642 
177644 
177646 


77636 
“ PAGE ADDRESS REGISTERS 





SEQ 0011 
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-— 





172214 


172314 





UIPAR4= 
UIPARS= 
UIPAR6= 
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177650 
177652 
177654 


UIPAR7= 17 


7656 
;#USER “D” — ADDRESS REGISTERS 


UDPARO= 

UDPAR1= 
UDPAR2= 
UDPAR3= 
UDPAR4= 
UDPARS= 
UDPAR6= 


177660 
177662 
177664 
177666 
177670 
177672 
177674 


UDPAR7= 17767 


6 
;*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 


SIPDRO= 172200 


SIPOR7= 


6 
ne tae “D” PAGE DESCRIPTOR REGISTERS 
SOPDRO= 20 


SDPORI= 1 
SOPDR2= 
SOPDR3« 


SOPOR7= 


36 
ce sthcee” PAGE ADDRESS REGISTERS 


SIPARO= 
SIPAR1= 
SIPAR2= 
SIPAR3= 
SIPAR4= 
SIPARS= 
SIPAR6= 


SIPAR7= 172256 
;*#SUPERVISOR "D” PAGE ADDRESS REGISTERS 
172260 


SDPARO= 

SDPARi= 
SOPAR2= 
SDPAR3= 
SDPAR4= 
SOPARS= 


SDPAR6= 1 


SOPAR7 = 


KIPDR6= 


17 


17 


6 
ag PAGE DESCRIPTOR REGISTERS 


172314 





SEQ 0012 
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— 


490 


172316 
172320 





KIPDR7= 


172316 


172320 
172322 
172324 
172326 
172330 
172332 
172334 
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RNEL “D” PAGE DESCRIPTOR REGISTERS 


172336 
; *KERNEL — ADDRESS REGISTERS 


KIPARO= 
KIPARI= 
KIPAR2= 
KIPAR3= 
KIPAR4= 
KIPARS= 
<IPAR62 


KIPAR7= 172356 
;*#KERNEL “D” PAGE ADDRESS REGISTERS 
KDPARO= 172360 


STACK= 
SCOPE= 


172362 
172364 
172366 
172370 
172372 
172374 
1723 


76 
TL BASIC DEFINITIONS 
;#INITIAL ADDRESS OF THE STACK POINTER ##* 1100 ses 


1100 


ssBASIC DEFINITION OF ERROR CALL 
3sBASIC DEFINITION OF SCOPE CALL 


*aMISCELLANEOUS DEFINITIONS 


HT= ii +;CODE FOR HORIZONTAL TAB 

LF= 12 ;;CODE FOR LINE FEED 

CR= 15 ;:;CODE FOR CARRIAGE RETURN 

CRLF= 200 :;CODE FOR CARRIAGE RETURN-LINE FEED 
a eae ;sPROCESSOR STATUS WORD 

STKLMT= 177774 :3STACK LIMIT REGISTER 

PIRQ= 177772 33PR 


OGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 3sHARDWARE SWITCH REGISTER 

DOISP= 177570 ;sHARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEF IN] TIONS 

RO= #80 s;GENERAL REGISTER 


Ri= si | GENERAL REGISTER 
R2= 62 ;;GENERAL REGISTER 
R3= 83 ; ;GENERAL REGISTER 
R4= a4 ;;GENERAL REGISTER 
R5= “5 ;sGENERAL REGISTER 
R6=< te) ;sGENERAL REGISTER 
R7= «7 ;;GENERAL REGISTER 
SP= thf ;:STACK POINTER 


PC= 87 ;sPROGRAM COUNTER 
;@PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;sPRIORITY LEVEL 0 





SEQ 0013 





7 
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BASIC DEFINITIONS 


000% -. PRi= 40 ssPRIORITY LEVEL 
00C¢ PRe= 100 ssPRIORITY LEVEL 
oor PR3= 140 ssPRIORITY LEVEL 
CWcrvy PR4= avd ssPRIORITY LEVEL 
000240 PRS= 240 ssPRIORITY LEVEL 
000300 PR6= 300 ssPRIORITY LEVEL 
000340 PR7= 340 ;;PRIORITY LEVEL 
3#"SWITCH REGISTER” SWITCH DEFINITIONS 
100C 20 SWi5= 100000 
040000 sWi4= 40000 
020000 SW1i3= 20000 
010000 SWi2= 10000 
004000 SWil= 4000 
002000 SW10= 2000 
001000 SWO9= 1000 
00 SWO8= 400 
000200 SWO7= 200 
000100 SWO6= 100 
SWOS= 40 
000020 SWO4= 20 
000010 SWO3= 10 
000004 SWO2= 4 
000002 SWOl= 2 
000001 SWOO= 1 
001000 SW9= SWO9 
000400 SW8= SWO8 
000200 SW7= SWO7 
000100 SW6= SWO6 
SW5= SWOS 
000020 SW4= SWO4 
000010 SW3= SWOS 
000004 SW2= SwO2 
000002 SWi= SWO1 
000001 . SWOO 
s;*#DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BITiS= 1 
040000 BIT14= 40000 
020000 BITi3= 20000 
010000 BITi2= 10000 
BIT1ii= 4000 
002000 BIT10= 2000 
001000 BITO9= 1000 
000400 BITO8= 400 
000200 BITO7= 200 
000100 BITO6= 100 
000040 BITOS= 40 
000020 BITO4= 20 
000010 BI,03= 10 
000004 BITO2= 4 
000002 BITOl= 2 
000001 BITOO= 1 
001000 BIT9= BsITO9 
000400 BIT8= BITOSs 
000200 BIT7= BIT07 
000100 BIT6= BITO06 
BITS= BITOS 
000020 BIT4= BITO4 





SOUS We 





SEQ 0014 


- 





COKDAEO KOJ11-8 CLUSTER DIAG. 
BASIC DEFINITIONS 


491 
492 


501 


000174 
000176 


000200 
000204 


000220 
000226 


000052 


000024 


000010 


001160 
004024 


000777 
004024 
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001160 


SEQ 0015 
BF*3= BITO3 
Blf2= 8sIT02 
BITi= B6ITO1 
BITO= 


BITOO 
;*BASIC ” al TRAP VECTOR ADDRESSES 


ERRVEC= 4 3sTIME OUT AND OTHER ERRORS 

RESVEC= 10 ;s;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33"T" BIT 

TRIVEC= 14 3; TRACE TRAP 

BPTVEC= 14 ;sBREAKPOINT TRAP (BPT) 

IOTVEC= 20 +s INPUT/OUTPUT TRAP (CIOT) #«SCOPEss 
PWRVEC= 24 3s;POWER FAIL 

EMTVEC= 30 ;sEMULATOR TRAP CEMT) «*eERRORes 
TRAPVEC=34 33 "TRAP” TRAP 

TKVEC= 60 ss TTY KEYBOARD VECTOR 

TPVEC= 64 3sTTY PRINTER VECTOR 

PIRQVEC=240 +;PROGRAM INTERRUPT REQUEST VECTOR 


UFDSET= FLAG FOR UFD 
.SBTTL TRAP CATCHER 
;@ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT” 


s*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
; *LOCATION .. CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


=174 

DISPREG: .WORD 0 ssSOFTWARE DISPLAY REGISTER 
oy -WORD 0 ;s;SOFTWARE SWITCH REGISTER 

CLR sTMPO 

JMP BOSTART 
« 2220 

MOV 0777, $TMPO 

JMP SeOSTART 


-SBTTL ACTI1L HOOKS 
5 p00 O006400600000660660006 66045604660600000006046000000000000000008448 
sHOOKS REQUIRED BY ACT1i1 

$SVPC=. sSAVE PC 


246 
SENDAD :31)SET LOC.46 TO ADDRESS OF SENDAD IN .sEOP 
“WORD 0 3:2)SET LOC.52 TO ZERO 

"= $SVPC 33 RESTORE PC 


.SBTTL APT PARAMETER BLOCK 


5s 8486666666866 6866 600660466006 66640646060666 04 6600604886 66040048060 020888 


sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
1 ae eneenconanncnese 


. $X=. SAVE CURRENT LOCATION 
-=24 :3SET POWER FAIL TO POINT TO START OF PROGRAM 
200 :3FOR APT START UP 
-=44 ;sPOINT TO APT INDIRECT ADDRESS PNTR. 
$SAPTHOR ;;POINT TO APT HEADER BLOCK 
=.$X  ;;RESET LOCATION COUNTER 


5p O0OO 06 60464606466660060000 06 06 00046444 440409090 RE REEDED 
;SETUP APT PARAMETER BLOCK AS CEFINED IN THE APT-PDP11 DIAGNOSTIC 
sINTERFACE SPEC. 

SAPTHD: 
$HIBTS: .WORD 0 


:;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 








COKDAEO KOJ11-6 CLUSTER DIAG. 


APT PARAMETER BLOCK 


—— 


0601200 
000000 
000900 


000000 
000052 


SMBADR: . 


$TSTM: 


$PASTM: . 
$UNITM: 
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SEQ 0016 


$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
ONGEST TEST 


ssRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
¢+sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$E TEND - sHAIL/2 ;;LENGTH MAILBOX-ETABLE( WORDS ) 





~~ - 


COKDAEO KDJ11-B CLUSTER DIAG. 
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SEQ 0017 


COMMON TAGS 
502 -SBTTL COMMON TAGS 
PELIIIITI TIE rrr rr rrrrrrritiiiiiiitiitiiiiiitiiititititttt itt 
;*#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;#USED IN THE PROGRAM. 
001100 -*1100 ) 
001100 $CMTAG: ssSTART OF COMMON TAGS 
001100 000000 -WORD 0 
001102 000 $TSTNM: .BYTE 0 s;sCONTAINS THE TEST NUMBER 
001103 000 SERFLG: .BYTE 0 ssCONTAINS ERROR FLAG 
001104 000000 $ICNT: .WORD 0 s;sCONTAINS SUBTEST ITERATION COUNT 
001106 000000 $LPADR: .WORD 0 ;sCONTAINS SCOPE LOOP ADDRESS 
001110 000000 $LPERR: .WORD 0 ssCONTAINS SCOPE RETURN FOR ERRORS 
001112 000000 SERTTL: .WORD 0 ssCONTAINS TOTAL ERRORS DETECTED 
001114 000 SITEMB: .BYTE 0 ;sCONTAINS ITEM CONTROL BYTE 
001115 001 SERMAX: .BYTE 1 ssCONTAINS MAX. ERRORS PER TEST 
001116 000000 SERRPC: .WORD 0 ssCONTAINS PC OF LAST ERROR INSTRUCTION 
001120 000000 $GDADR: .WORD 0 +s;CONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 000000 $BDADR: .WORD 0 ss;CONTAINS ADDRESS OF ‘BAD’ DATA 
001124 000000 $GDDAT: .WORD 0 s;sCONTAINS ‘GOOD’ DATA 
001126 000000 $BDDAT: .WORD 0 ;sCONTAINS ‘BAD’ DATA 
001130 000000 -WORD 0 ; sRESERVED--NOT TO BE USED 
001132 000000 -WORD 0 
001134 000 $SAUTOB: .BYTE 0 ;sAUTOMATIC MODE INDICATOR 
0C1135 000 SINTAG: .BYTE 0 ss INTERRUPT MODE INDICATOR 
001136 000000 -WORD 0 
001140 177570 : -WORD OSWR ;sADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD ODDISP ;sADDRESS OF DISPLAY REGISTER 
001144 177560 $TKS: 177560 73TTY KBD STATUS 
001146 177562 $TKB: 177562 3sTTY KBD BUFFER 
001150 177564 $TPS: 177564 ssTTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 177566 ssTTY PRINTER BUFFER REG. ADDRESS 
001154 000 SNULL: .BYTE 90 ssCONTAINS NULL CHARACTER FOR FILLS 
001155 002 SFILLS: .BYTE 2 ;sCONTAINS @ OF FILLER CHARACTERS REQUIRED 
001156 O12 SFILLC: .BYTE i2 ssINSERT FILL CHARS. AFTER A “LINE FEED” 
001157 000 STPFLG: .BYTE 0 33 "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
000002 -REPT 2 
001160 000000 $TMPO: .WORD 0 3;USER DEFINED 
001162 000000 $STMPi: .WORD 0 ;;USER DEFINED 
001164 000000 $TIMES: 3;MAX. NUMBER OF ITERATIONS 
001166 000000 SESCAPE:0 ;sESCAPE ON ERROR ADDRESS 
pou g bs ae 377 377 S$BELL: .ASCIZ <207><377><377> ;;CODE FOR BELL 
001174 077 $QUES: .ASCII /?/ ;;QUESTION MARK 
001175 ois SCRLF: .ASCII <i5> ;sCARRIAGE RETURN 
001176 012 000 $LF: -ASCIZ <12> ;;CINE FEED 
ECP Oooo iri rT Tree rrr rrr rrr iri rir rit titi ti iii t ttt? 
-SBTTL APT MAILBOX-ETABLE 
jp SSSR EEES EE EEEESE EE OS 4004 Ob OO 0604 040000004040000000000000 00000 
VEN 
001200 $MAIL: 3;APT MAILBOX 
001200 000090 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
001202 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001204 000000 $TESTN: .WORD ATESTN ;;TEST NUMBER 
001206 000000 $PASS: .WORD APASS ;;PASS COUNT 
001210 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
C01212 000000 $UNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
001214 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 


fe ceesestentesserin hanhigeustichepahcsswnepsmeessnssiniennvsasinisamctiin 





COKDAEO KOJ11-8 CLUSTER DIAG. 





APT MAILBOX-ETABLE 


000000 


000 
000 





$MSGLG: .WORD 
SE TABLE 

SENV: BYTE 
SENVM: BYTE 
$SWREG: .WORD 
SUSWR: WURD 
$CPUOP: .WORD 
3% 

;* 

;* 

38 

;* 

7% 

$MAMS1: .BYTE 
$SMTYP1: .BYTE 
as 

;* 

;* 

;% 

$MADR1: .WORD 
;* 

$MAMS2: .BYTE 
$MTYP2: .BYTE 
$MADR2: .WORD 
$MAMSS: .BYTE 
SMTYPS3: .BYTE 
$MADR3: .WORD 
$MAMS4: .BYTE 
SMTYP4: .BYTE 
$MADR4: .WORD 
$VECTi: .WORD 
$VECT2: .WORD 
$BASE: .WORD 
$DEVM: .WORD 
$COWi: .WORD 
$COW2: .WORD 
$D0WO: .WORD 
$DD0Wi: .WORD 
$D0W2: .WORD 
$DDWS: .WORD 
$DDW4: .WORD 
$DDWS: .WORD 
$DDW6: .WORD 
$0DW7: .WORD 
$D0W8: .WORD 
$D0W9: .WORD 
$00W1i0: .WORD 
$DDWil: .WORD 
$0DWi2: .WORD 
$D0DWi3: .WORD 
$D00W14: .WORD 
$D0W15: .WORD 
sE TEND 





AMSGLG 


AENV 
AENVM 
ASWREG 
AUSWR 
ACPUOP 


AMAMS1 
AMTYP1 
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SEQ 0018 


;;MESSAGE LENGTH 
;3APT ENVIRONMENT TABLE 
ssENVIRONMENT BYTE 
;;ENVIRONMENT MODE BITS 
;;APT SWITCH REGISTER 
;;USER SWITCHES 
33;CPU TYPE ,OPTIONS 
BITS 15-11*CPU TYPE 
11/04=01 ,11/05=02, 11/2003, 11/40=04, 11/4505 , 
11/70+06 ,PDQ=07,Q=10 A | 
BIT 10=REAL TIME CLOCK ’ 
BIT okt POINT PROCESSOR 
BIT 8=MEMORY MANAGEMENT 
;sHIGH ADDRESS,M.S. BYTE 
;3MEM. TYPE, BLK@1 
MEM.TYPE BYTE -- (HIGH BYTE) 
900 NSEC CORE=001 


300 NSEC BIPOLAR=002 
500 NSEC MO0S=003 
;;HIGH ADDRESS ,BLKG1 
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “TYPE” ABOVE 
;sHIGH ADDRESS,.M.S. BYTE 


;;MEM. TYPE BLK 

;;MEM.LAST ADDRESS .BLKO4 

ss INTERRUPT VECTOR@1,BUS PRIORITY#1 

: s INTERRUPT S2BUS PR 

33BASE ADDRE EQUIPMENT UNDER TEST 
;;DEVICE MAP 


;sDEVICE DESCRIPTOR WORDO4 


; 
;;DEVICE DESCRIPTOR WORD@11 


;sDEVICE DESCRIPTOR WORD@iS 








COKDAEO KDJ11-B8 CLUSTER DIAG. 


ERROR POINTER TABLE 


Rhnesvctrechesitrmeergmscetpomceshvestsenstesnetslonhahteaostatoanos 


001324 


127155 
134733 
136046 
000000 
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SEQ 0019 


-SBTTL ERROR POINTER TABLE 

:#THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

s*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
;*NOTE1: IF $ITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC). 

: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3% EM ;sPOINTS TO THE ERROR MESSAGE 


;* DH ;sPOINTS TO THE DATA HEADER 
3% OT ;;POINTS TO THE DATA 
;* DF ;:POINTS TO THE DATA FORMAT 
SERRTB: 
.SBTTL ERROR DEFINITIONS 
;ITEM 1 
EM1 ;CPU ERROR 
DH1 ;TEST #, ERROR PC 
‘ ;$TMP1, SERRPC 
;ITEM 2 
EM2 ;MMU ERROR 
DH1i ;TEST @, ERROR PC 
. ; $TMP1, SERRPC 
;ITEM 3 
EMS ;FPP ERROR 
DH1 ;sTEST @, ERROR PC 
‘es ;$TMP1, SERRPC 
;I TEM 4 
EM4 ;ERROR IN READ-WRITE BITS OF CCR 
OH4 sTEST @, PC, EXPECTED DATA, RECEIVED DATA 
- ;$TMP1, SERRPC.RL.CCR 
;ITEM 5 
sFORCE MISS WRITES TO CACHE 
DHS sTEST @, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
a ;$TMP1,SERRPC, R2,. Ri, $GDDAT 
sITEM 6 
EM6 ;FORCE MISS WRITE INVALIDATES CACHE 
DHS ;TEST @, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
_ ;$TMP1,SERRPC, R2, Ri, $GDDAT 
;ITEM 7 
EM7 ;UNEXPECTED PARITY INTERRUPT 
DH7 :TEST @, PC, ADDRESS ACCESSED, MSER 
DT7 ;$TMP1, SERRPC, $BDADR .MSER a 
;I1TEM 10 
;TAG PARITY ERROR 
DH7 ;sTEST @, PC, ADDRESS ACCESSED. MSER 
DT7 ;$TMP1, SERRPC, $BDADR .MSER 
sITEM 11 


Mil ;DATA PARITY ERROR 
Di17 ;TEST #, PC, ADDRESS ACCESSED, MSER 








COKDAEO KOJ11-8 CLUSTER DIAG. 


ERROR DEFINITIONS 


549 001430 
550 001432 
551 


136062 
000000 


127317 
135032 
136062 
000000 


127374 
134646 
136074 
000000 


127417 
134733 
136046 
000000 


127453 


134621 
136026 
000000 


127775 
135105 


136120 
000000 





;ITEM 24 
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;$TMP1, $ERRPC, $BDADR ,MSER 


;LOW BYTE PARITY ERROR 
sTEST #, PC, ADDRESS ACCESSED, MSER 
;$TMP1, $ERRPC, $BDADR ,MSER 


sHIGH BYTE PARITY ERROR 
;TEST #, PC, ADDRESS ACCESSED, MSER 
;$TMP1, $ERRPC, $BDADR ,MSER 


sERROR DATA PATH 
;sTEST @, PC, EYPECTED DATA, RECEIVED DATA 
;$TMP1, SERRPC, $GODAT , TSTLOC 


sFORCE MISS READS FROM CACHE 
;TEST #, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
;$TMP1,$ERRPC, R2, Ri, $GDDAT 


sFORCE MISS READS FROM CACHE AND MISS 
sTEST @, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
s$TMP1,$ERRPC, R2, Ri, $GODAT 


sERROR IN RECORDING HITS IN HIT/MISS 
sTEST @, PC, EXPECTED DATA, RECEIVED DATA 
;$TMP1, SERRPC, SGDDAT ,RECDAT 


gy ag: ALLOCATES CACHE 
‘ P 
;$TMP1, SERRPC 


;WRITE BYTE HIT DOES NOT RECORD HIT 
;TEST @, PC 
;$TMP1 , SERRPC 


sBYTES REVERSED ON WRITE CYCLES 
;TEST @, PC 
;$TMP1, SERRPC 


;CONDITIONAL BYPASS DOESN‘ T INVALIDATE CACHE 
;TEST #, PC, HIT/MISS, DATA IN CACHE, DATA IN MEMORY 
;$TMP1,SERRPC, R2, R1, $SODAT 


sHITS RECORDED AFTER FLUSHING CACHE 
;TEST @, PC, NUMBER OF HITS 
;$TMP1, $ERRPC,RS 





SEQ 0020 
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SEQ 9021 
ERROR DEFINITIONS 

;ITEM 25 
607 001564 130040 EmM25 je = INVALIDATE CACHE 
608 001566 134621 OH1 ;TEST @ 
609 001570 136026 OT1 ;$TMP1, SERAPC 
610 001572 000000 0 
611 ;ITEM 26 
612 001574 130100 EM26 ;MSER a NOT CLEAR ON WRITE REFERENCE 
613 001576 134621 DH1i ;sTEST @ 
614 001600 136026 OT1 ;$TMP1, SERRPC 
615 001602 000000 an 
616 ;ITEM 27 
617 001604 130147 27 ;PARITY ERROR DON’T CAUSE A MISS 
618 001606 135151 DH27 ;sTEST #, PC, MSER, HIT/MISS 
619 001610 136130 DT27 ;$TMP1, SERRPC,MSER,R3,0O 
620 001612 000000 0 
621 ;ITEM 30 
622 001614 130207 EM30 ;PARITY ERROR DON’T SET MSER WITH CCR<7>=0 
623 001616 135151 DH27 ;TEST @, PC, MSER, HIT/MISS 
624 001620 136130 DT27 ;$TMP1, SERRPC,MSER,R3,0 
625 001622 0 

;ITEM 31 
627 001624 130261 EM31 ;sPARITY ERROR IGNORED 
628 001626 134621 DH1i ;sTEST @, PC 
629 0C1630 136026 DT1i ;$TMP1, SERRPC 
630 001632 0 
631 ;ITEM 32 
632 001634 130306 EM32 ;PARITY ERROR IGNORED ON LOW BYTE 
633 001636 134621 DH1 sTEST @, PC 
634 001640 136026 DTi ;$TMP1, SERRPC 
635 001642 0 
636 ;ITEM 33 
637 001644 130347 EM33 sPARITY ERROR IGNORED ON HIGH BYTE 
638 001646 134621 DH1 sTEST @, PC 
639 001650 136026 DTi ;$TMP1, SERRPC 
640 001652 000000 0 
641 ;ITEM 34 
642 001654 130411 ;PARITY ABORT LOGIC DOESN’T WORK 
643 001656 134621 DH1i sTEST @, PC 
644 001660 136026 DTi ;$TMP1, SERRPC 
645 001662 000000 0 
646 ;ITEM 35 
647 001664 130451 sMSER NOT SET PROPERLY 
648 001666 134646 ;sTEST @, PC, EXPECTED DATA, RECEIVED DATA 
649 001670 136142 DT35 ;$TMP1, SERRPC, $GDDAT ,MSER,O 
650 001672 
651 :ITEM 36 
652 001674 130477 36 :PARITY INTERRUPT DOESN‘ T WORK 
653 001676 134621 DH1 sTEST @, PC 
654 001700 136026 DTi ;$TMP1, SERRPC 
655 001702 000000 0 
656 ;ITEM 37 
657 001704 130543 EM37 ;NXM AND PARITY ABORT DIN‘ T HAPPEN 
658 001706 134621 DHi ;sTEST @, PC 
659 001710 136026 OTi ;$TMP1, SERRPC 
660 001712 0 
661 ;ITEM 40 
662 001714 130605 ;PARITY ABORT NOT BLOCKED BY NXM TRAP 
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SEQ 0022 


663 001716 134621 DH1 sTEST #, PC 
664 001720 136026 DT1 ;$TMP1, SERRPC 
665 001722 9000000 0 
;ITEM 41 
667 001724 130652 EM41 sMULTI-PROCESSOR HOOK INSTRUCTION DOESN’ T CAUSE MISS 
668 001726 135214 DH41 ;TEST #, PC, INSTRUCTION OPCODE 
669 001730 136154 DT41 ;$TMP1, SERRPC, $BDDAT 
670 001732 000000 0 
671 ;ITEM 42 
672 001734 130736 EM42 ;ERROR IN PARITY LOGIC 
673 001736 134621 DH1 ;TEST @, PC 
674 001740 136026 OT1 ;$TMP1, SERRPC 
675 001742 000000 0 
676 ;I TEM 43 
677 001744 130764 EM43 ;ERROR IN CACHE DATA RAMS 
678 001746 135265 DH43 ;sTEST @, PC, EXPECTED DATA, RECEIVED DATA, CACHE LOCATION 
679 001750 136164 DT43 ;$TMP1, SERRPC,R1,RECDAT, SBDAOR 
680 001752 000000 0 
681 ;ITEM 44 
682 001754 131015 sERROR IN NXM IN STANDALONE MODE 
683 001756 134621 DH1 ;TEST #, PC 
684 001760 136026 DT1i ;$TMP1, SERRPC 
685 001762 000000 0 
686 ;ITEM 45 
687 001764 131055 M45 sHITS NOT RECORDED PROPERLY THRU HIT/MISS 
688 001766 134621 DH1 sTEST @, PC 
689 001770 136026 DT1i ;$TMP1, SERRPC 
690 001772 .¢) 
691 ;ITEM 46 
692 001774 131137 EM46 sHIT RECORDED FOR A LOCATION NOT IN CACHE 
693 001776 135365 DH47 ;TEST @, PC, LOCATION ACCESSED 
694 002000 136200 DT47 ;$TMP1, SERRPC ,KIPARG , $BDADR 
695 002002 000000 0 
696 ;ITEM 47 
697 002004 131227 7 sMISS RECORDED FOR A LOCATION THAT SHOULD BE IN CACHE 
698 00 135365 7 sTEST #, PC, LOCATION ACCESSED 
699 002010 136200 D147 ;$TMP1, SERRPC, KIPARG , $BDADR 
700 002012 000000 
701 ;ITEM 50 
702 002014 131314 EMSO sERROR IN TAG STORE 
703 002016 135365 DH47 ;TEST @, PC, ADDRESS 
704 002020 136212 DT50 :$TMP1, $ERRPC,R1, $BDADR 
705 002022 000000 
706 sITEM 51 
707 002024 131337 EMS1 sERROR PCR READ-WRITE BITS 
708 002026 134646 DH4 ;TEST @, PC, EXPECTED DATA, RECEIVED DATA 
709 002030 136224 OT51 ;$TMP1, SERRPC, $GODAT PCR 
710 002032 000000 0 
711 ;ITEM 52 
712 002034 131371 sERROR IN BCSR READ-WRITE BITS 
713 002036 134646 ;sTEST @, PC, EXPECTED DATA, RECEIVED DATA 
714 002040 136236 DTS2 ;$TMP1, $ERROC, $GDDAT .BCSR 
715 002042 000000 
716 ;ITEM 53 
717 002044 131427 EMS3 ;RESET Pe - il CLEAR BCSR<4> 
718 002046 134621 DH1 ;TEST @, PC 
719 002050 136026 OT1 ;$TMP1, SERRPC 
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ERROR DEFINITIONS 


720 002052 
721 


000000 
131463 


134621 
136026 
000000 


131521 
131555 


134621 
136026 
000000 


131601 


132141 
134621 


136026 
000000 








;ITEM 67 
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;CHECKSUM ERROR IN 16-BIT ROM 
s;TEST @, PC 
;$T41P1, $ERRPC 


s;CHCKSUM ERROR IN 8-BIT ROM 
sTEST @, PC 
;$TMP1, SERRPC 


; TIMEOUT READING LKS 
sTEST @, PC 
;$TMP1, SERRPC 


sLKS<O7> DOES NOT BECOME 1 
sTEST @, PC 
;$TMP1, SERRPC 


;sWRITE REFERENCE DOESN’T CLEAR LKS<07> 
sTEST @, PC 
;$TMP1, SERRPC 


sILLEGAL LKS INTERRUPTS 
;TEST @, PC 
;$TMP1, SERRPC 


sPROCESSOR INTERRUPTS DON’T CLEAR LKS<07> 
sTEST @, PC 
;$TMP1, $ERRPC 


3LKS READY DOESN'T GO LOW 
sTEST @, PC 
;$TMP1, SERRPC 


;WRONG NUMBER OF LKS INTERRUPTS 
;TEST @, PC 
3; $TMP1, SERRPC 


:LKS INTERRUPTS HAPPEN AT WRONG PRIORITY 
sTEST #, PC, PRIORITY 
;$TMP1, $ERRPC, $GDDAT 


;BCSR<1i2> DOES NOT DISABLES LKS 
;TEST @, PC 
;$TMP1, SERRPC 





SEQ 0023 
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ERROR DEFINITIONS 


—— 


132235 
134621 
136026 
000000 


132266 
134621 
136026 
000000 


132322 


132435 
134646 
136272 
000000 


132466 
134621 
136026 
000000 


132536 
134621 
136026 
000000 


132570 
134621 
136026 
000000 


132626 
134621 
136026 
000000 


132661 
134621 





;ITEM 101 
EM101 


DH1 
OT1 


0 
sITEM 102 
EM102 
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—.. ' SET LKS<06> 


;TEST #@, 
;$TMP1, SERRPC 


;RESET {DOESN'T SET LKS<7> 


;sTEST #, PC 
;$TMP1, SERRPC 


;RESET on CLEAR LKS<06> 


;TEST @ 


;$TMP1, $ERRPC 


s TIMEOUT READING SLU REGISTERS 
sTEST @, PC, ADDRESS FAI 
:$TMP1, $ERRPC, $BDDAT 


LED 


;XMIT . be DION’T GO LOW 


sTEST @ 


;$TMP1, SERRPC 


sRCSR DOESN’ T BECOME 1 


sTEST @, PC 


;$TMP1, SERRPC 


sWRONG CHARACTER RECEIVED 
TEST @, PC, EXPECTED DATA, RECEIVED DATA 
;$TMP1, SERRPC, $GDDAT , $BDDAT 


ae CLEARED AFTER READING RBUF 


; TEST 


;$TMP1, SERRPC 


a. SET ON RESET 


s TEST ¢, 


3; $TMP1, SCRRPC 


ss oo CLEARED ON RESET 


:TEST @, 


3; $TMP1, SERRPC 


sSLU iy ll HAPPEN AT 4 


:TEST @, 


;$TMP1, S$ERRPC 


sRESET — NOT CLEAR XCSR<6> AND RSCR<6> 


;TEST @, 





SEQ 0024 
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ERROR DEFINITIONS 


-— 


890 


002470 
002472 


133315 
134646 
136272 
000000 


133373 
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OT1 

0 
;ITEM 103 

EM103 


DH1 
OT1 


0 
sITEM 104 
EM104 


OH1 
OTi 


0 
; ITEM = 


0 
;ITEM 107 
—M107 


DH1 
OT1 


0 
;ITEM 110 
EM110 


DH1 
OT1 


0 
;ITEM 111 
EM111 


es 
sITEM 112 
EMil2 


DH105 
— 


;ITEM 113 
EM11 


DH105 
DT105 


0 
;ITEM 114 
E—M114 


OT1 

0 
;ITEM 115 

EM 


;$TMP1, SERRPC 


a. DOES NOT CLEAR XCSR<07> 
> ’ 
;$TMP1, S$ERRPC 


sRECEIVE INTERRUPTS DON’T CLEAR RCSR<07> 
;sTEST @, PC 
;$TMP1, SERRPC 


sBREAK CONDITION DOES NOT SET RBUF PROPERLY 
;TEST @, PC, RBUF 
; $TMP1, SERRPC, RBUF 


sRBUF WASN’'T CLEARED ON NEXT CHAR. 
sTEST @, PC, RBUF 
;$TMP1, SERRPC, RBUF 


sERROR IN WRITING TO XCSR<O> 
sTEST @, PC 
3; $TMP1, SERRPC 


sRESET DOES NOT CLEAR XCSR<00> 
sTEST @, PC 
;STMP1, SERRPC 


sFIRST CHARACTER WAS NOT OVERRUN BY THE SECOND 
Hh @, PC, EXPECTED DATA, RECEIVED DATA 
:$THP1, SERRPC, $GDDAT , $BDDAT 


sOVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF 
sTEST @, PC, RBUF 
;$TMP1 , SERRPC, RBUF 


s;RBUF WAS NOT CLEARED ON THE NEXT CHARACTER 
sTEST @, PC, RBUF 
;$TMP1, SERRPC, RBUF 


ERROR IN XCSR<2> 
;TEST @, PC 
;$TMP1, SERRPC 


sERROR IN TAG STORE FROM STANDALONE MODE 
sTEST @, PC, MSER, ADDRESS ACCESSED 
;$TMP1, $ERRPC, $BDDAT, KIPAR6, $BDADR 





SEQ 0025 
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ERROR DEFINITIONS a 
891 ;ITEM 116 
892 002474 133633 EM116 ;DMA TAG PARITY DOES NOT SET MSER<4> 
893 002476 134621 DH1 ;sTEST @, PC 
894 002500 136026 OT1 ;$TMP1, $ERRPC 
895 002502 000000 0 : 
896 ;ITEM 117 
897 002504 133714 EM117 a. oe SET IN STANDALONE MODE 
898 002506 134621 DH1 ;TEST @, PC 
899 002510 136026 DOT1i ;$TMP1, SERRPC 
900 002512 000000 0 
901 ;ITEM 120 
902 002514 133757 EM120 ;0MA — HITS DON’T INVALIDATE CACHE 
903 002516 134621 DH1 ;TEST @ 
904 002520 136026 OT1 +S TMP1 SERRPC 
905 002522 000000 ° 0 
906 ;ITEM 121 
907 002524 134025 EM121 ;IN BLOCK MODE ON WRITE OMA HITS NOT EVERYTHING IS INVALIDATED 
908 002526 134621 DH1 sTEST @, PC 
909 002530 136026 OT1i ;$TMP1, SERRPC 
910 002532 000000 0 
911 ;ITEM 122 
912 002534 134123 EM122 sREAD OMA HIT IS MESSED UP 
913 002536 134621 DHi sTEST @, PC 
914 002540 136026 OT1 ;$TMP1, SERRPC 
915 002542 000000 0 
916 ;ITEM 123 
917 002544 134151 EM123 sERROR IN DMA CYCLES FROM Q22BE 
918 002546 134621 DH1i sTEST @, PC 
919 002550 136026 DTi 3 $TMP1, SERRPC 
920 002552 000000 0 
921 ;ITEM 124 
922 002554 134203 EM124 sPIRQ INTERRUPTS DON’T TAKE PRIORITY OVER Q@ BUS INTERRUPTS 
923 002556 134621 DH1 ;TEST @, PC 
924 002560 136026 DT1i 3 $TMP1., SERRPC 
925 002562 000000 0 
926 ;ITEM 125 
927 002564 134275 EM125 sNO POWER DOWN TRAP TO 24 OCCUR 
928 002566 134621 DH1 sTEST @, PC 
929 002570 136026 OT1 ;$THP1, SERRPC 
930 002572 000000 0 
931 ;ITEM 126 
932 002574 134334 —M126 sERROR IN INTERRUPTS FROM Q22BE 
933 002576 134621 DH1 ; TEST PC 
934 002600 136026 DT1i ;$TMP1., SERRPC 
935 002602 000000 
936 ;ITEM 127 
937 002604 134371 EM127 sERROR IN PMG COUNTER 
938 002606 134621 DH1 ;TEST @, PC 
939 002610 136026 DTi ;$TMP1, SERRPC 
940 002612 000000 0 
94) sITEM 130 
942 002614 134433 —M130 sUNEXPECTED TIMEOUT 
943 002616 134621 CH1 ; TEST PC 
944 002620 136330 0T130 ; $TMP1, SERRPC 
%. 002622 000000 0 
946 sITEM 131 
947 002624 134460 —M131 sERROR WRITING TO LKS<6> 








a — = 
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ERROR DEFINITIONS 


948 002626 134621 OH1 sTEST %, P 

949 002630 136026 OT1 s$TMP1, SERRPC 

950 002632 000000 0 

951 sITEM 132 | 

‘952 002634 134510 EM132 sMAINTENANCE REGISTER ERROR 

953 002636 134621 DH1 sTEST @, PC 

002640 136026 OT1 ;$TMP1, SERRPC 

955 002642 000000 0 

956 ;ITEM 133 

957 002644 134546 EM133 ; T's TYPE ERROR 

958 002646 134621 DH1 sTEST @, PC 

959 002650 136026 OT1 :$TMP1, SERRPC 

960 002652 000000 0 

961 ;ITEM 134 

962 002654 134567 EM134 ; ERROM WRITE/READ ERROR 

963 002656 135671 0H134 sTEST @, PC, ERROR COUNT, PATTERN, DATA READ, ADDRESS 
964 002660 136336 O0T134 ;$TMP1, S$ERRPC, $TMPO,R3, $BDDAT, $BDADR 

a 002662 000000 

= -SBTTL GLOBAL VARIABLES AND REGISTER NAMES 

969 sREGISTERS FOR THE FIRST Q22BE 

970 002664 000000 CSRi: .WORD 0 sCONTROL REGISTER 1 FOR Q22BE 
971 0C2666 000000 CSR2: .WORD 0 sCONTROL/STATUS REGISTER 2 
972 002670 000000 BA -WORD 0 sDMA ADDRESS FOR Q226E 

973 002672 000000 -WORD 0 sWORD COUNT REGISTER 

974 002674 000000 DATA: .WORD 0 sDMA DATA FOR Q22BE 

975 002676 000000 VQBE1: .WORD 0 sADDRESS OF VECTOR FOR Q22BE 
976 002700 000000 VQ@PRi: .WORD 0 sPRIORITY 

= 0027062 000000 SIMGOA: .WORD 0 sSIMULTANEUOS GO ADDRESS REGISTER 
979 sREGISTERS FOR THE SECOND Q22BE 

980 002704 000000 CSRi2: .WORD 90 s;CONTROL REGISTER 1 FOR Q22BE 
981 002706 000000 SR22: .WORD 0 sCONTROL/STATUS REGISTER 2 
982 002710 000000 BAe: -WORD 0 sDMA ADDRESS FOR Q22BE 

983 002712 000000 WC2: -WORD 0 sWORD COUNT REGISTER 

984 002714 000000 DATA2: .WORD 0 ;DMA DATA FOR Q22BE 

985 002716 000000 VQBE2: .WORD 0 sADDRESS OF VECTOR FOR Q22BE 
oo 002720 000000 VQPR2: .WORD 0 PRIORITY 

988 002722 000000 LKSFL: .WORD 0 

989 002724 ACTCHS: .WORD 90 sACTUAL CHECKSUM 

990 002726 000000 SAVPCR: .WORD 90 

991 002730 000000 SAVBR: .WORD 0 

992 002740 -72740 

993 002740 000000 TEMP : -WORD 0 

994 002742 -BLKW 15. sRESERVED FOR BLOCK MODE TRANSFER 
995 003000 000000 TIMOUT: .WORD 0 

996 003002 000032 000012 000006 Q22EN: .WORD 32,12,.6.2 sPRIORITY 7-4 FOR Q22BE 

003010 000002 

997 

998 

999 177524 BCR= 177524 s;BOOT/DIAGNOSTICS CONFIGURATION 
1000 177524 BOR= 177524 ;BOOT/DIAGNOSTICS DISPLAY 
1001 177520 BCSR= 177520 sBOOT/DIAGNOSTICS STATUS 
1002 177746 CCR= 177746 sCACHE CONTROL REGISTER 

1C03 177752 HITMIS= 177752 sHIT OR MISS REGISTER 


Be 


SEQ 0027 | 





COKXDAEO KOJ11-B8 CLUSTER DIAG. 
GLOBAL VARIABLES AND REGISTER NAMES 








CPEREG= 


MMRO=SRO 
MMR1=SR1 
MMR2 =SR2 
MMR3=SR3 


POLY= 129001 


NULL = 





177734 
177546 
177750 
177744 
177522 
177772 
177562 
177560 
177566 
177564 


177766 


-SBTTL GLOBAL DATA SECTION 


3+ 
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SEQ 0028 


sUNIBUS CONFIGURATION REGISTER 
s;CLOCK STATUS REGISTER 
sMAINTENANCE REGISTER 

sMEMORY SYSTEM ERROR 

sPAGE CONTROL REGISTER 
sPROGRAM INTERRUPT REQUEST 
sRECEIVER DATA BUFFER 
sRECEIVER STATUS REGISTER 

s TRANSMITTER DATA BUFFER 

s TRANSMITTER STATUS REGISTER 


;CPU ERROR REGISTER 


sMEMORY MANAGEMENT REG. 
sMEMORY MANAGEMENT REG. 
sMEMORY MANAGEMENT REG. 
sMEMORY MANAGEMENT REG. 


wh oO 


; THE GLOBAL DATA TE CONTAINS DATA THAT ARE USED 


; IN MORE THAN ONE T 


; THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 
sWHEN THE TEST NEEOS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
FROM THE —s RESPONCE . 


SLOCOO: 
SLOCOL: 


0 


;THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA. 


LOWADD: 


RECFEC: 


SorpLeooceoreoocococooocooococoso 


;STORES LOW ADDRESS FOR RAM TESTS 

:STORES GOOD ADDRESS FOR RAM TESTS 

; CONTAINS TOTAL NO. OF EEROM ERRORS 
sADDRESS STORE FOR RAM TESTS 

;ADDRESS STORE FOR RAM TEST 

;USED TO STORE “FLAG” CONDITIONS 

: flag-counter for control of Cache subtests 
; flag-counter for control of EEROM subtest 
‘USED™ TO STORE SUPERVISOR STACK VALUE 

;USED TO STORE USER STACK VALUE 

;sUSED TO STORE MMU STATUS REGISTER 0 DATA 
;USED TO STORE MMU STATUS REGISTER 1 DATA 
;USED TO STORE MMU STATUS REGISTER 2 DATA 

; SAVE SFTWRE SWTCH REG DURING EEROM TEST 
;USEO TO STORE VALUES FOR MMU TESTS 

;USED TO STORE VALUES FOR MMU TESTS 

;STORES SEQUENCE NUMBER FOR JUMP TESTS 


sSTORES STACK POINTER FOR JUMP TESTS 
;STORES STACK POINTER FOR JUMP TESTS 
s;STORES EXPONENT DURING BIT TESTS 

;STORES RECIEVED DATA FOR BIT TESTS 
sERROR INDICATOR FOR FLOATING POINT TESTS 
sRECIEVED FLOATING POINT EXCEPTION CODE 








o-< 


COKDAEO KOJ11-B8 CLUSTER DIAG. 
GLOBAL DATA SECTION 


1071 

1072 

1073 003162 000000 
1074 003164 

107 

1076 000000 
1077 000001 
1078 000002 
1079 000003 
1080 000004 
1081 000005 
1082 000006 
1083 000007 
1084 

1085 

1086 

1087 000244 
1088 

1089 

1090 001000 
1091 

1092 

1094 003234 123456 
1095 003236 





RECST: .BLKW 4 sRECIEVED FLOATING POINT STATUS 
RECOST: .BLKW 4 sDESTINATION ADDRESS FOR FLOATING POINT TESTS 
sTHESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
ALLCTR: .WORD 0 
LOOPIN: .WORD 0 
;SOME MORE TEMPORARY STORAGE FOR RAM TESTS 
SAVPOS: .WORD 0 sSTORES TEMPORARY BIT POSITIONS FOR RAM TESTS 
MASK: .WORD 0 sSTORES BIT MASK FOR ERROR ISOLATION 
s!f!2!THIS IS IT. THE PROGRAM TEST LOCATION! !!!iissserssseegs 
TSTLOC: .WORD 0 

‘BLKW 20. 

;FPP "REGISTER DEFINITIONS 

ACO= #0 

ACi= #1 

AC2= #2 

AC3= #3 

AC4= #4 

ACS= #5 

AC6= #6 

AC7= #7 

sFPP INTERRUPT VECTOR 

FPVEC=244 

STBOT= 1000 
TABi: .WORD 123456 

-WORD 000000 

-WORD 0 

-WORD 1 
TAB2: .WORD O05 

-WORD 177777 

-WORD 145671 

-WORD 1 
TABS: .WORD 003000 

-WORD 123456 

-WORD 0 

-WORD O 
TABS: .WORD 55555 

-WORD -1 

-WORD 0 

-WORD 0 
TABS: WORD 43243 

-WORD 0 

-WORD 0 

-WORD 0 
TABSA: .WORD 162400 

WORD 0 

-WORD 0 

-WORD 0 
TABE: WORD 0 
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ES ET 





SEQ 0029 








COKDAEO KOJ11-B CLUSTER DIAG. 
GLOBAL DATA SECTION 


1119 003316 
1120 003320 


1121 


003322 


000000 


003000 


003000 


000000 


000000 000000 
100400 000000 000000 











MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-11 


000000 


000000 


000000 


TAB6A: 


TAB?: 


TABS: 


TABS: 
TAB1O: 


TABLI: 


TAB1IA: 


TAB12: 


TAB13: 


TAB138 : 
TAB14: 


TABILS: 


TAB16: 


TAB1iI7: 


TAB18: 


TAB21: 
TAB22: 


400,0,0,0 
30000 

3000 

0 

0 

16400 

0 

0 

0 

30000, 3000,2,0 
16100,0,0,1 


16200 


100200 ,0,0,0 
100400 ,0,0,0 





SEQ 0030 





COKDAEO KDJ11-8 CLUSTER DIAG. 
GLOBAL DATA SECTION 


-— 


1171 
1172 
1173 
1174 
1175 
1176 
1177 


00 
1178 
00 


1179 
1180 


1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 


1195 
1196 


032737 


177777 
177777 
177777 
124242 
000000 
124242 
000900 


004112 
000040 


177777 
000100 
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177777 
177777 
000000 
052525 
052525 
000000 
000000 


20¢,0,0,1 
62400,0,0,0 
1100,0,0,0 
100600,0,0,0 
1000,0,0,0 
600,0,0,0 
10100,0,0,0 
10100,0,2000,0 


500,0,0,0 
100400 ,0,0,0 
16000,0,0,0 
11600,0,0,0 
640,0,0,0 
77600,0,0,0 
100200,0,0,1 
340,0,0,0 
77,177777,177777 ,177776 
577,-1,-1,-1 
577,-1,0,0 


173737 , 124242, 05252512346 


0,0,052525 , 12346 
173737 ,124242,0,0 
600,0,0,90 


—<—_—_—_—___————————————_———— EE ————_——————————— — re 


;; LCP/ORION at SAVE EMTULATOR AND PRIORITY 


TAB23: .WORD 
TAB24: .WORD 
TAB25: .WORD 
TAB26: .WORD 
TAB27: .WORD 
TAB28: .WORD 
TAB29: .WORD 
TAB29A: .WORD 
TAB30: . WORD 
TAB31: .WORD 
TABS2: .WORD 
TAB33: .WORD 
TAB34: .WORD 
TAB40: .WORD 
TAB41: .WORD 
TAB42: .WORD 
TAB43: .WORD 
TAB4S: .WORD 
TAB46: .WORD 
TAB47: .WORD 
TAB47A: .WORD 
TAB48: .WORD 
TAB49: .WORD 
START: 
EMTSAV: TST 
BNE 
BE0 
BIT 


VMKOR 
@BITS,a#52 
VMKOR 
$- 1 o UF DFLG 
#BIT6, 8¢52 


FIRST TIME THROUGH ? 
BRANCH IF BEEN HERE ALREADY 
ARE WE IN UFD MODE ? 

LEAVE IF NOT 

SET UFD FLAG 

ARE WE IN QUIET MODE ? 


SEQ 0031 





COKDAEO KDJ11-B CLUSTER DIAG. 
GLOBAL DATA SECTION 


1197 004122 


72 
1198 004372 


012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 


013746 
012737 
012737 
012737 
022777 
001012 


012737 
013737 


177777 


000042 
000030 
000032 


000004 
004322 
177570 
177570 
177777 
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004120 


004112 
004114 


SAV30: 


. WORD 
. WORD 


1$ 
ceca 


2 
42(RO) 


30,SAV30 
32 ,SAV32 


VMKOR 
0 
0 
0 
0 


SEQ 0032 


33 BR IF NOT 

3: SET QUIET MODE 

3; GET ADDRESS OF XXDP DCA TABLE 
33 CLR XXDP+ “DRSERR 

3: SAVE EMULATOR ADDRESS 

+; SAVE EMULATOR PRIORITY LEVEL 
3: GET AROUND TAG AREA 

33 PUT EMULATOR INFO HERE 

;3 PUT PRIORITY LOCATION 

3; USER FRIENDLY MODE FLAG 

3; UFD QUIET MODE FLAG 


sSRKRAEEAESRAREEAEERAREEEREAAERAR EER EAAAEKEE EEK EEE EEE 


i$: 

-SBTTL INITIALIZE THE COMMON TAGS 

;;CLEAR THE COMMON TAGS ($CMTAG) AREA 
V @$CMTAG 


@STACK, 
| INITIALIZE A FEW VECTORS 


CR6)+ 


s3sFIRST LOCATION TO BE CLEARED 
;;CLEAR MEMORY LOCATION 


eae ; sDONE? : 


;;LOOP BACK IF NO 
;sSETUP THE STACK POINTER 


@$SCOPE,Q@@IOTVEC ;;I0T : eee FOR SCOPE ROUTINE 
0340, @@IOTVEC+2 ssLEVEL 7 
SsERROR,GSEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
$340 ,.Q@GEMTVEC+2 ;;LEVEL 7 
@$TRAP, BSeTRAPVEC or. VECTOR FOR TRAP CALLS 
0340, Q0TRAPVEC *2;LEVEL 7 


GOPWURVEC ; ;POWER * tec VECTOR 


@$PWRDN, 
$340, SOPWRVEC>2 ssLEVEL 7 


SENOCT , SEOPCT 
$STIMES 
SESCAPE 


#1, SERMAX 
gets 


ssALLOW ONE ERROR PER TEST 
ssINITIALIZE THE LOOP ADDRESS FOR SCOPE 
THE ERROR LOOP ADDRESS 


. SLPERR 33 SETUP 
3;SIZE FOR ", HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
; sEQUAL A A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 


30000$: 
30001$: 
30002$: 


30003$: 


SCERRVEC.-(SP) ;;SAVE ERROR VECTOR 

#30000$ , B@ERRVEC 3;SET UP ERROR VECTOR 

#DSWR, SUR ;;SETUP FOR A HARDWARE SWICH REGISTER 

SD0DISP ,.OTSPLAY ;;AND A HARDWARE DISPLAY REGISTER 

$-1,3SWR y ETRY TO REFERENCE HARDWARE SWR 

30002$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3;AND THE HARDWARE SWR IS NOT = -i 

30001 ;;BRANCH IF NO TIMEOUT 

#300013, (SP) 7;SET UP FOR TRAP RETURN 

@SWREG , SWR ;;POINT TO SOFTWARE SWR 

#DISPREG ,DISPLAY 

(SP)+,@@ERRVEC ,;RESTORE ERROR VECTOR 

$PASS ;;CLEAR PASS COUNT 

#APTSIZE,.$ENVM ;; TEST USER SIZE UNDER APT 

30003$ 7: YES,USE NON-APT SWITCH 

#$SWREG, SWR 33;NO,USE APT SWITCH REGISTER 

UF D+ LG ,UQUIET ;ABORT IN UFD ON ERROR 











COKDAEO KOJ11-8 CLUSTER DIAG. 
INITIALIZE THE COMMON TAGS 
1199 004400 


012737 


000403 


000423 


137542 


177777 
177777 
140440 
004554 
000042 
001220 
001140 


000001 


001220 


001224 


000017 


003032 
177777 
000001 
000000 
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000042 


000001 
000176 


001134 


000001 


003032 
003032 
003032 


@TOUT, S@ERRVEC 
#340 ,Q@VERRVEC+2 
ORAMPAR , 80114 
#340 ,80116 
@MMUTRP , 84250 
#340 ,8¢252 
80177766 

#BIT06 ,8#52 
LOOP 


#.+12,R1 


#-1,C(R1) 
.SBTTL TYPE PROGRAM NAME 
7; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC $-1 ;sFIRST TIME? 
;;BRANCH IF NO 
+3;ACT-117 
;;BRANCH IF YES 


-SBTTL 


30006$ : 
300075: 


;;30005$ 
30004$: 


BNE 
CMP 
BEQ 
TYPE 


BNE 
CMPB 
BEQ 
CMP 


30004$ 
@$ENDAD 9042 
30004$ 


30006$ 
SENV, #1 
30006$ 
SWR, @SWREG 
30007$ 


30007$ 
#1, $AUTOB 


30004 $ 
-ASCIZ 


SENV,@1 
20% 
SUSWR RO 
RO 

25% 
#17,R0 


RO 
RO 


RO 
RO 
RO,CCHPAS 
35% 
#-1,CCHPAS 
35$ 
#1,CCHPAS 
35$ 
#0 ,CCHPAS 


SEQ 0033 


;POINT TO Ea al ROUTINE 
sAT PRIORITY 

sPOINT PARITY. ABORT 

sAT PRIORITY7 

sPOINT MMU TRAP VECTOR 


i 

;CLEAR CPU ERROR REGISTER 

;IN UFD QUIET MODE ? 

;IF SO, SKIP PRINTOUT 

;STORE LOCATION POINTER 

sMAKE SURE TO PRINT NOT ONLY AT FIRST TIME 


, 30005 $ 
GET VALUE FOR SOFTWARE SiITCH 
TST 9042 


3s TYPE ASCIZ STRING 


REGISTER 
ARE WE RUNNING UNDER XXDP/ACT? 


; ;BRANCH IF YES 
3s;ARE WE RUNNING UNDER APT? 


;;BRANCH IF YES 
SOFTWARE SWITCH REG SELECTED? 
;;BRANCH IF NO 


33GET SOFT-SWR SETTINGS 
3sSET AUTO-MODE INDICATOR 
33;GET OVER THE ASCIZ 


. 
+ 
a 
; 
; 
‘ 


<CRLF>* KDJ11-8 CPU DIAGNOSTIC - COKDAEO *<CRLF> 


sid 
running under APT? 
default no-APT initialization 
work copy pess calculation 
if = 0 default velue 
setup default velue 


clear low order nibble 
essure no unknowns 

4 rotates = divide 

by 16 (=pass time) 

this erea subroutined 
with general se 
divide, this test to 
determine skip altogether 


;residue = no. of desired passes 


continue on 
largest number no apt mode?? 


normal default = 1 


no cache tests included 
debug aid 
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SEQ 0034 
GET VALUE FOR SOFTWARE SWITCH REGISTER . 
1236 004724 032737 000200 000052 BIT #BITO7 ,ae52 ;sUFD MODE? 
1237 004732 001002 BNE LOOP sIF YES, BRANCH 
1238 004734 004737 137070 JSR PC ,Q22SIZ ;SIZE FOR Q22BE 
1239 004740 LOOP: 
1240 .OSABLE AMA | 
1242 fp RRRRERASEEAEREEESASEEAREEAEAEREEEAEAEEEAADASEAEEEAEEEAEAEA EKER KEES 
004740 000004 TSTi: SCOPE 
1243 .SBTTL BASE INSTRUCTION SET TESTS 
1244 PRARAERERARESESEEAEREREEAKAEAEEAEBREAAEEAEEEEEEEEEAEAA SAAS EAAAAAEA RE RE EAE ASE 
1245 pRERRAAESESAEEEEEREREREEEEEEAKAEAEEAEEEEEAEREEEEKEEAEAEEEAAEAE EEE EASE ER EA EAS 
1246 3 BEGIN BASE INSTRUCTION SET TESTING 
1247 FRRARRAERAEAEEEEEEALEREAEAEKEREREAEAEAEAAEARAEEBEEEAEAAEK EEDA EERE EERE EK EEE 
1248 FRRRaREEREEAEEEEESREEEEEAREREKAEEASREEBEAEEAEEEAEBEEEKEBBAEAEAEEEKEAEE EEE EE EES 
1257 004742 FRSTST: 
1258 
1259 ;TEST BEQ BNE INSTRUCTIONS 
1260 ETT TTI iti rit ii tit itit iti tii tt itt iti ititit ttt tt ttt TTT TTT TTT ttt 
;THESE TWO INSTRUCTIONS ARE FUNDAMENTAL TO RECOGNIZING ERROR CONDITIONS 
1261 004742 000277 scc 
1262 004744 000244 CLZ :CC=#0100 - Z BIT CLEARED 
1263 004746 901401 BEQ 1$ ;*#TEST INSTR -TRY TO CAUSE A BEQ ERROR 
1264 004750 001001 BNE 2s sBRANCH IF GOOD 
1265 ;THE Z FLAG DIDNT CLEAR OR BRANCH FAILED. 
1266 sFAILURE AT THIS LOCATION 
1267 ;COULD MEAN A BUS PROBLEM, MICRO-CODE PROBLEM 
—- :CONDTTION CODE PROBLEM OR JUST ABOUT ANYTHING 
1270 004752 104001 i$ ERROR +1 ;CPU ERROR 
1271 004754 000257 2s: ccc ; 
1272 004756 000264 SEZ sCOND CODES = 0100 (ZERO) 
1273 004760 001001 BNE 3$ :*#TEST INSTR« TRY TO BRANCH ON ZERO FLAG 
1274 004762 001401 BEQ 4s s*TEST INSTR« BRANCH IF GOOD 
1275 sBRANCH FAILURE WITH Z BIT SET 
1276 004764 104001 3$: ERROR +1 sCPU ERROR 
1277 004766 4$: sEND OF TEST 
1287 004766 M2: 
1288 
1289 ; TEST BRANCH ON CARRY 
1290 5p 4446444 EOD OD 4S OS 04 Sb 044404664460404600460 066006 464400000464868084 
;THIS IS A TEST TO SEE IF THE MODULE FORM ANTICIPATED IS FEASIBLE. 
1291 004766 000257 ccc :CC=0000 
1292 004770 103001 Bcc 23 SaTEST INSTR« 
1293 :BRANCH CARRY CLEAR FAILED 
1294 004772 104001 1$: ERROR +1 ;CPU ERROR 
1295 004774 000261 2s: SEC ;CC=1111 
1296 004776 103401 BcS 4$ ;#TEST INSTRs 
1297 ; cong AL: CARRY SET FAILED 
1298 005000 104001 3$: ERROR +1 ;CPU E 
1299 005002 4$: 
1300 
1303 005002 M3: 
1304 
1305 ; TEST DATA PATHS 
1306 005002 005000 CLR RO 
1307 005004 001005 BNE is ;TRY TO INSURE WE ARE TESTING 
1308 ;THE DATA PATH AND NOT THE “CLR RO” INSTRUCTION 
1309 005006 005010 CLR CRO) sFORCE LOCATION TO ZERO 


—— 








COKDAEO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1310 005010 
1311 005012 
1312 005016 
1313 

1314 005020 
1315 005022 
1318 005022 


001003 
005737 
001401 
104001 


012737 
022737 
001401 


104001 


012737 
023727 
001401 
104001 


000000 


125252 
125252 


052525 
000000 


177777 
177777 


000900 


125252 
125252 


052525 
052525 
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000000 
000000 


000000 
052525 


177777 


i$: 


2s: 


3$: 


BNE 1$ 
TST 840 
BEQ 2s 
ERROR +1 


;TRY TO INSURE 0-0 

;AGAIN, TRY TO INSURE THAT 00 
;BRANCH IF GOOD 

;LOCATION O NOT SETUP PROPERLY 
;CPU ERROR 


TEST DATA PATHS - ONES AND ZEROS 


MOV 
CMP 
BEQ 


ERROR 


MO 525, 
CMP 8¢0, 2052525 
BEQ 2$ 

ERROR +1 


TEST DATA PATHS - 1'S 
CLR a¢0 


COM 
CMP 
BEQ 


RO BIT T 
V 


#125252, 800 
_— 


+1 


TEST DATA PATHS - DATA 0‘S AND 1’S 
V #052 960 


840 
800, 6177777 
2s 


+1 


ESTS 
1 


+1 
#125252 ,R0 
o_o 


+1 
#52525 ..RO 
RO, #52525 





70=125252 
;SEE IF DATA MADE IT 
;BRANCH IF IF DATA IS GOOD 
sERROP: EITHER THE BUS IS BAD, 
;0R THE MOV OR COMPARE 
s INSTRUCTIONS FAILED 
;CPU ERROR 
sEND OF TEST 


;SETUP DATA 
; TEST FOR CORRECT DATA 


:CPU ERROR 


;SET UP MEMORY LOCATION O = 111111 
; TEST DATA 

;BRANCH IF NO ERROR 
;CPU ERROR 


;RO=177777 
:D0ES RO=177777 


;YES ON 

;NO GO TO ERROR 
;CPU ERROR 

;RO=52525 

;D0ES RO=52525 





SEQ 0035 








COKDAEO KOJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1375 005156 
1376 


1 
1434 005316 
1435 
1436 005316 
1437 005322 


lestgemingctigrnicale 


001401 
104001 


012701 
020127 


012703 
020327 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 
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2$: 


3$: 


2s: 


3$: 


BEQ 
ERROR 


Ri BIT T 
MOV 


4$ 
+1 


ESTS 
#177777,R1 
rere 


+1 
Ri 
R1,#0 
2$ 


+1 
#125252,R1 


R1,#125252 
3$ 


+1 
#52525 ,R1 
— 


+1 


R2 BIT TESTS 
MOV 


$177777,R2 
CMP R2,%177777 
BEQ is 
ERROR +1 
CLR R2 
CMP R2,#0 
BEQ 2$ 
ERROR +1 
MOV #125252,R2 
CMP R2,#1252 
BEQ 3$ 
ERROR +1 
MOV #52525 ,R2 
CMP R2,#@52525 
BEQ 
ERROR +1 


R3 BIT TESTS 


MOV 
CMP 


9177777,R3 
R3,#177777 





;YES GO ON 
sNO GO TO ERROR 
;CPU ERROR 


3R1*177777 

;D0ES R1*177777 

;YES GO ON 

;NO GO TO ERROR 
;CPU ERROR 

;R1=0 

;DOES R1i=0 

;YES GO ON 

;NO GO TO ERROR 
;CPU ERROR 


;CPU ERROR 


3R2=177777 
;D0ES R2=*177777 
S GO ON 


52 
sDOES R2=125252 
sYES GO ON 
;NO GO TO ERROR 

;CPU ERROR 


GO ON 
:NO GO TO ERROR 
:CPU ERROR 


3R3*177777 
s;DOES R3=*177777 





SEQ 0036 


COKDAEO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1438 005326 
1439 


= <<a CL Ce EL LL LLL LLL LLL LLL 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 
125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
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2s: 


3$: 


2s: 


3$: 


1$: 


2s: 


+1 
#125252,R3 
—_— 


+1 
#52525 ,R3 
—_ 


+1 


—_ TESTS 


MO 0177777,R4 
CMP R4 #177777 
BEQ i$ 

ERROR +1 

CLR R4 

CMP R420 

BEQ 2s 

ERROR +1 

MOV #125252,R4 
CMP R4, #125252 
BEQ 3$ 

ERROR +1 

MOV #52525 ,.R4 
CMP R4 #52525 
BEQ 4$ 

ERROR +1 


RS BIT TESTS 
MOV 


CMP 
BEQ 


0177777,RS 
ss? 


+1 
RS 
R5,@0 
2$ 


+1 
#125252,R5 
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;YES GO ON 

;NO GO TO ERROR 
;CPU ERROR 

;R3=0 

;D0ES R3=0 

;YES GO ON 

;NO GO TO ERROR 
;CPU ERROR 

3R3=125252 

;D0ES R3=125252 

;YES GO ON 

;NO GO TO ERROR 
;CPU ERROR 


S GO ON 
sNO GO TO ERROR 
;CPU ERROR 


3R4=177777 
sDOES R4=*177777 
;YES GO ON 
= GO TO ERROR 


3R5*177777 
aaa 


;YES GO ON 

;NO GO TO ERROR 
;CPU ERROR 

sR5=125252 


SEQ 0037 





COKDAEO KOJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


—— 


020527 
001401 


104001 
012705 
020527 
001401 


104001 


022737 


125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


001000 


000377 
000357 


177776 
000000 


000105 
000105 


000252 
000252 
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177776 
177776 


177776 


177776 
177776 


177776 
177776 


3$: 


4$: 
GPR6TS: 
; 


i$: 

2$: 

3$: 

4$: 

; 
PSWBTS: 
; 

1$: 

2$: 


3$: 


CMP 
BEQ 


ERROR 
MOV 


CMP 
BEQ 


ERROR 


R6 BIT T 
V 


RS #125252 
3$ 


+1 
#52525,R5 
_—— 


+1 


ESTS 
#177777,R6 
_ 


+1 
R6 
R6, #0 
2$ 


+1 
#125252 ,R6 
——— 


+1 
#52525 .R6 
— 


+1 
@STBOT .R6 


BYTE BIT TESTS 
@377 ,80177776 
eimai 


«1 
96177776 
eels 


+1 
#105 ,80177776 
-- alanis tas 


+1 
#252 ,80177776 
naan 





sDOES R5=125252 
sYES GO ON 
;NO GO TO ERROR 
;CPU ERROR 


GO ON 
;NO GO TO ERROR 
s;CPU ERROR 


s5R6*177777 
s;D0ES R6=177777 
sYES GO ON 
- GO TO ERROR 


RR 
sRESTORE SP 


:PS=357 T BIT SHOULON’T SET 
sDOES PS=357 


;D0ES PS=252 
sYES GO ON 
3NO GO TO ERROR 





SEQ 0038 


COKDAEO KDJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


aS 


1560 005706 
561 005710 


1 
oa. 005710 


1611 005756 


1612 

1613 005756 
1614 005760 
1615 005762 
1616 005764 
1617 005766 


1618 
1619 005770 





104001 





4$: 


MSPO: 


3%: 
43: 


ERROR 





+1 
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SEQ 0039 


;CPU ERROR 


TEST SINGLE OPERAND INSTRUCTIONS- MODE 0 
j i SRRREREREEEEEEEEES DEEDES EE EEEEEEEEEEEEEEEDDDEAREEALE DEDEDE REEDS 


; THE _. CLR, AND DECREMENT INSTRUCTIONS ARE VERIFED 


L R4 
COM R4 
CLR R4 
BEQ 2$ 
ERROR +1 
COM R4 
INC R4 
BEQ 43 
ERROR +1 


CLR R 

CoM R4 
CLRB R4 
BEQ 2% 
ERROR +1 
DECB R4 
BPL 3$ 
COMB R4 
BEQ 44 
ERROR +1 


sINITIALIZE R4 WITH DATA 


; 
;*#TEST INSTRUCTION 
IF R4 CLEARED 


;*#TEST COMPLIMENT INSTRUCTION 

;#TEST INCREMENT INSTRUCTION 

;BRANCH IF R4 =0 

;COMPLIMENT OR INCREMENT FAILED 
;CPU ERROR 


;CPU ERR 


TEST — OPS - EVEN BYTE OF CLRB, DECB, AND COMB 


sSETUP TEST REGISTER 

;#TEST CLEAR BYTE INSTRUCTION 
;BRANCH IF GOOD 

;CLEAR EVEN BYTE FAILED 

;CPU ERROR 

s#TEST DECREMENT BYTE 
;DECREMENT BYTE FAILED 

;*#TEST COMPLIMENT BYTE 
;BRANCH IF GOOD 

;COMPLIMENT OR DECREMENT FAILED TO WORK 
;CPU ERROR 


TEST SINGLE OPS - MODE 1 CLRB, COMB, AND INCB 
CLR R4 


CLR 
Com 
CLR 
BEQ 
COM 
BEQ 
BPL 
INC 
BEG 
ERROR 


sSETUP TEST DATA 
s#TEST INSTRUCTION 
BRANCH IF GOOD 


) 
sMODE 1 FAILED 


:CPU ERROR 
;#TEST INSTRUCTION 
sCO)SHOULD = -1 


$ 
s*TEST INSTRUCTION 
sBRANCH IF GOOD 

:COM OR INC FAILED TO ALTER LOC O CORRECTLY 
;CPU ERROR 
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BASE INSTRUCTION SET TESTS 


1629 3 
et 006006 MSPD: 
1634 ; TEST SINGLE OPS MODE1-EVEN BYTE-CLRB,COMB, INCB 
1635 006006 005004 CLR R4 | 
1636 006010 005014 CLR CR4) 
1637 006012 005114 COM (R4) ;sSETUP TEST DATA 
1638 006014 105014 CLRB CR4) 3*TEST INSTRUCTION 
1639 006016 105014 CLRB CR4) s*#TEST INSTRUCTION . 
1640 006020 001401 BEQ 2s sBRANCH IF GOOD 
1641 ;CLEAR (0) EVEN BYTE FAILED 
1642 006022 104001 1$: ERROR +1 ;CPU ERROR 
1643 006024 105214 23: INCB CR4) ;*#TEST INSTRUCTION 
1644 006026 100405 BMI 3$ ; TEST FLAGS 
1645 006030 001404 BEQ 33 
1646 006032 105114 COMB CR4) s#TEST INSTRUCTION 
1647 006034 105214 INCB (R4) 
1648 006036 105214 INCB CR4) 
1649 001401 BEQ 4$ sBRANCH IF GOOD 
1650 ;COMB OR INCB FAILED 
1651 006042 104001 3$: ERROR +1 ;CPU ERROR 
1652 4$: 
1653 
1654 
pon dl 006044 MSPEO 
16 
1659 3 TEST SINGLE OPS - ODD BYTE - CLRB, COMB, DECB 
1660 006044 005004 CLR RS 
1661 006046 005014 CLR CR4) 
1662 006050 005114 COM CR4) sSETUP TEST DATA 
1663 006052 005204 INC RS sPOINT TO ODD BYTE 
1664 006054 195014 CLRB CR4) ;*#TEST INSTRUCTION 
1665 006056 001401 BEQ is ;BRANCH IF GOOD 
1666 sCLEAR ODD BYTE FAILED 
1667 006060 104001 ERROR +1 ;CPU ERROR 
1668 006062 005304 1$: Cc sPOINT TO EVEN BYTE 
1669 006064 0052:4 INC CR4) 3LOC 0-1 0 
1670 006066 005204 sPOINT TO ODD BYTE 
1671 006070 105114 COMB (R4) 7*#7EST INSTRUCTION 
1672 006072 105214 INCB (R4) sLOC O=-1 6 
1673 006074 100003 BPL 2$ ;BRANCH IF ERROR 
1674 006076 001402 BEQ ; 
1675 006100 105214 INCB CR4) ;#TEST INSTRUCTION 
1676 006102 001401 BEQ 3$ ;BRANCH IF GOOD 
1677 7MODE 1, ODD BYTE FAILED 
1678 006104 104001 2$ ERROR +1 ;CPU ERROR 
1679 006106 3$ 
1680 
1681 $ 
1684 006106 MSPF : 
1685 ; TEST SINGLE OP - MODE 2 - CLR, COM, INC 
1686 006106 00 RS 
1687 006110 105104 COMs R4 
1688 006112 005204 INC Ra ;R4=400 
1689 “006114 005014 CLR CR4) 3400-0 

90 006116 005114 COM (R4) 34002-1 
1691 006120 005024 CLR (R4)>+ ;#TEST INSTRUCTION 





SEQ 0040 


COKDAEO KOJ11-8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1692 006122 
1693 


34 
1751 006236 
1752 006240 





001401 
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BEQ i$ sBRANCH IF GOOD 
sMODE 2 CLEAR FAILED 
ERROR +1 ;“PU ERROR 
1$: DEC R4 
DEC R4 3R4=400 
COM (R4)> :#TEST INSTRUCTION 
BPL 2s sBRANCH IF FAILURE 
DEC R4 
DEC R& 3R4*400 
INC CR4)>+ :*TEST INSTRUCTION 
BEQ 38 sBRANCH IF GOOD 
sMODE 2 FAILURE 
+. ERROR +1 ;CPU ERROR 
MSPG: 
: TEST CLRB, COMB, DECB, MODE 2 - EVEN BYTE 
CLR R4 
COMB 4 
INC R4 3R4=400 
CLR CR4) 
COM CR4) :400=-1 
CLRB CR4)>+ ;*TEST INSTRUCTION 
BEQ is ;BRANCH IF GOOD 
sMODE 2 EVEN BYTE FAILED 
ERROR ol ;CPU ERROR 
1s: DEC R4& 
DECB (R4)- s*#TEST INSTRUCTION 
BPL 2$ ;BRANCH IF BAD 
DEC R4 sPOINT TO EVEN BYTE 
COMB (R4)>+ s*#TEST INSTRUCTION 
BEQ 3$ :BRANCH IF GOOD 
sMODE 2, EVEN BYTE FAILED 
= ERROR +1 ;CPU ERROR 
; 
MSPH 
; TEST CLRB, COMB, INCB MODE 2 - ODD BYTE 
CLR R4 
COMB R4 
INC RA 3R4=400 
CLR CR4) 
COM (R4) 7400=-1 -1 
INC (R4) ;POINT TO ODD BYTE 
CLRB CR4)> :*#TEST INSTRUCTION 
BEG 1$ ;BRANCH IF GOOD 
;MODE 2,000 BYTE FAILED 
ERROR +1 ;CPU ERROR 
1$: DEC R4 sPOINT TO ODD BYTE 
DEC R4 
INCB (R4)+ 7400-1 0 
COMB CR4)+ ;*#TEST INSTRUCTION 
BPL 2$ ;BRANCH IF MODE 2 FAILED 





SEQ 0041 


COKDAEO KOJ11-6 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 
1753 006242 
754 


-— 





005304 
105224 
001401 


104001 
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DEC R4 
INCB (R4)+ 
BEQ 3$ 


Hh ERROR +1 ;CPU ERROR 
: 
MSPI: 
: TEST CLR, COM, INC - MODE 3 
CLR R4 ; 
CLR CR4) 30=0 
COMB CR4) ; 
INC (R4) 302400 
CLR OC R4)> ;#TEST INSTRUCTION 
BEQ i$ ;BRANCH IF GOOD 
sMODE 3 FAILED, 400 SHOULD=-0 
ERROR ol ;CPU ERROR 
i$: DEC R4 
DEC R4 3R4=0 
COM OC R4 )+ s#TEST INSTRUCTION 
BPL 2$ sBRANCH IF BAD 
DEC R4 
DEC . R4 sREPOSITION POINTER 
INC OC R4)> s*#TEST INSTRUCTION 
BEQ 33 ;BRANCH IF GOOD 
sMODE 3 FAILED 
os ERROR +l ;CPU ERROR 
: 
MSPJ 
: TEST CLRB, COMB, INCB - MODE 3, EVEN/ODD BYTE 
CLR R4 3;R4=0 
CLR Ri 
COMB Ri 
INC Ri ;R1=400 
CLR CR1) 
CR1)>+ 3400=-1 
CLR (R1) 3 
COMB CR1) 3402-000 377 
CLR (R4) : 
COMB (R4) : 
INC (R4) 302400 
= _— s*TEST INSTRUCTION 400=377 000 
; TEST INSTRUCTION FAILED 
ERROR +1 ;CPU ERROR 
i$: DEC R4 ;sREPOSTION POINTER 
DEC R4 
COMB AC R4)- ;*TEST INSTRUCTION 
DEC R4 
DEC R4 sREPOSITION POINTER 
INCB OCR4)>+ :#TEST INSTRUCTION 
BEQ 3$ ;BRANCH IF GOOD 


;BRANCH IF MODE 3 EVEN BYTE CLEARED 





sPOINT TO ODD BYTE 


;BRANCH IF GOOD 
sMODE 2,000 BYTE FAILED 





SEQ 0042 


COKDAEO KOJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 





005004 
105104 





2s: 
3$; 


4$: 
S$: 


1$: 


3$: 


MSPM: 


ERROR 
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sMODE 3, EVEN BYTE FAILED 
;CPU ERROR 


;R4=401 
;*TEST INSTRUCTION 
;BRANCH IF 402 NEQ 0 


:R4*401 
:401=0 

sBRANCH IF GOOD 
;000 BYTE FAILED 
;CP) ERROR 


3R4=401 
34032377 


s#TEST INSTRUCTION 
sBRANCH IF GOOD 

sMODE3S ODD BYTE FAILED. 
;CPU ERROR 


TEST CLR, COM, DEC - MODE 4 
CL R4 


3R4=400 
a 
;400=-1 


; 
;4021 

:*#TEST INSTRUCTION 
;BRANCH IF GOOD 
;MODE 4 FAILED 


;CPU ERROR 

;*TEST INSTRUCTION 400=-2 
3400-1 

;BRANCH IF BAD 

;BRANCH IF BAD 


;R4=400 

:*TEST INSTRUCTION 
;BRANCH IF GOOD 
sMODE 4 FAILED 
;CPU ERROR 


TEST COMB, INCB, CLRB - MODE 4, ODD BYTE 
CLR R4 


COMB 


R4 





SEQ 0043 


staan et OCC 


oo - 


COKDAEO KDJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1875 006504 
1876 006506 
1877 006510 
1878 006512 
1879 006514 
1880 006516 





005204 
005044 





1$: 
2s: 


INC R4 

CLR -CR4) 

COMB (R4) 

INC (R4)+ 

CLR CR4) 

COM CR4)+ 
C R4 

CLRB -CR4) 

BEQ 

ERROR 1 

INC R4 

INC 

COMB -CR4) 

DEC 

DEC 

INCB -CR4) 

BEQ 

ERROR + 

DECB -CR4) 

BEQ 

ERROR +1 
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3R4=400 
33760 


:376=001 000 


7400-1 

3;R4=403 

; TEST INST. CLEAR ODD BYTE (401) 
;BRANCH IF GOOD 

sMODE 4 BYTE FAILED 

;CPU ERROR 


3R4=403 
; TEST INST. 401377 


; TEST INST. 401-0 


sBRANCH IF GOOD 
sMODE 4 ODD BYTE FAILED 
;CPU ERROR 


;*TEST INST. 

;BRANCH IF GOOD 

sMODE 4 DECREMENT ODD BYTE FAILED 
;CPU ERROR 


TEST CLR, COM, INC - MODE 5 
CLR 4 


R 
CLR CR4) 
COMB (R4) 
INC CR4)+ 
CLR 8-CR4) 
BEQ is 
ERROR +i 
INC R4 
INC 


TEST NEG MODE 5 





302400 

;*#TEST INST. 400-0 
;BRANCH IF GOOD 
;MODE 5S FAILED 
;CPU ERROR 


sRESET POINTER TO 0 
s#TEST INST. 376=1 
;BRANCH IF BAD 


sREPOSITION POINTER 
s#TEST INST. 376=0 
;65RANCH IF BAD 

30=401 R4=2 

s#TEST INST. ,400= 0 376 
;BRANCH IF GOOD 

sMODE 5 FAILED 

;CPU ERROR 





SEQ 0044 
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BASE INSTRUCTION SET TESTS 


1936 006624 005004 
1937 006626 105104 


1949 
1950 006656 104001 1$; 
1951 006660 005334 23: 


1957 

1958 006674 104001 3$: 
1959 0C6676 005334 4$: 
1960 006700 001401 

1961 

1962 006702 104001 S$: 
1963 006704 105212 6$: 


1969 

1970 006720 104001 7$: 
1971 006722 105212 8$: 
1972 006724 001401 

1973 006726 104001 9$: 
1974 006730 10$ 
1975 

1976 ; 
1978 

1980 006730 MSPP 
1981 

1982 ; 


-— 








;R4=400 


3R1=376 
;R2=0 
3920 


: 
3400=-1 
3376-0 


3020 

;BRANCH IF GOOD 
;NEG FAILED 
;CPU ERROR 
;0=-1 


;071 
;BRANCH IF BAD 


sBRANCH IF GOOD 
sNEG FAILED 
CPU ERROR 
TEST RESULT OF NEGATE 
sBRANCH IF GOOD 
sRESULT OF NEGATE BAD 
ERROR 


;CPU ERROR 


TEST a a INC - MODE 6 


;R4=2 


;R1=400 


; 
;400=-1 
;R1=402 
7402-1 
;R2=0 
3020 





SEQ 0045 





COKDAEO KOJ11-8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


1995 006760 


2050 007122 
2051 007124 
2052 007130 
2053 


RS 


000376 


000376 
000400 


000400 
000400 


177776 


000002 


000002 


000000 


000374 


000374 
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1$: 
2s: 


i$: 
2$: 


3$: 
4$: 


5$: 


6$: 
7$: 


376(R4) 
2s 


+1 
376CR4) 
400(R4) 
3$ 
400(R4) 
400(R4) 
4$ 

+1 
-2(R1) 
6$ 


+1 


TEST NEG MODE 6 
R R 


CL i 
CLR RO 
COMB R4 
INC R4 
CLR (R4) 
COM CR4) 
CLR -C(R4) 
CLR -CR4) 
INC CR4)+ 
NEG 2(R4) 
BEQ is 
BYVS is 
BMI 1$ 
BCS 2s 
ERROR +1 
DEC 2(R4) 
BEQ 4G 
ERROR +1 
NEG OCR4) 
BEQ $ 
ERROR +1 
NEGB 374(R1) 
BVS 6$ 
BEQ 6$ 
BPL 6$ 
BCS 7$ 
ERROR +1 
INCB 374(R1) 
BEQ 9$ 


;4002#0 


;BRANCH IF GOOD 
;CPU ERROR 


:400=-1 
5402-1 


;BRANCH IF BAD 


3402=-2 


s;BRANCH IF GOOD 


s;MODE 6 FAILED 


;CPU ERROR 


3400-0 


sBRANCH IF GOOD 


;INC MODE 6 FAILED 


;CPU ERROR 


7R1=0 


3R4=400 


; 
3400=-1 
337620 


; 
3374*1 R4=376 


5 #1 
:NEGATE 


;BRANCH 
sNEGATE 


FAILED 


IF GOOD 
FAILED 


;CPU ERROR 
; TEST RESULT OF NEGATE 


;BRANCH 
sRESULT 


IF GOOD 
OF NEGATE FAILED 


;CPU ERROR 


740-0 


; BRANCH IF GOOD 


;NEGATE 
RR 


;CPU E 


FAILED 
OR 


3374=0 377 


;BRANCH 
;NEGATE 


IF GOOD 
FAILED 


;CPU ERROR 


3374-0 
;BRANCH 
;NEGATE 


IF GOOD 
FAILED 





SEQ 0046 





COKDAEO KOJ11-8 CLUSTER OIAG. 
BASE INSTRUCTION SET TESTS 


-—— 


2054 007132 
2055 007134 


104001 


000000 


000401 


177400 


000400 
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8$: ERROR +1 

9$: 

; 

MSPR: 

: TEST CLR, COM, INC - MOD 
CLR Ri 
CLR R4 
COMB R4 
INC R4 
CLR CR1) 
COMB CR1i) 
INC CR 
INC CR1) 
INC CR1) 
CLR CR4) 
CLR 2CR4) 
COM 2C(R4) 
CLR 8-400(R4) 
BEQ 

1$: ERROR +1 

2$: COM @0CR1) 
BMI 43 

3$: ERROR +1 

4$: COM RS 
INC 8401(R4) 
BEQ 6$ 

5$: ERROR +1 

6$: 

; 

MSPS 

; TEST NEG MODE 7 
CLR R4 
CLR (R4) 
CLR R2 
COMB R2 
INC 
CLR CR2) 
NEG 8-400(R2) 
BCS $ 
BEQ 2$ 

1$: ERROR o1 

2$: DEC CR4) 
NEG 8+400(R4) 
BEQ $ 
BVS 3$ 
BMI 3$ 
bcs 43 

3$: ERROR +1 





;CPU ERROR 


E 7 


7R1=0 
H 


’ 
3R4=400 


s;BRANCH IF GOOD 


:CPU ERR 

s INSTRUCTION FAILED 

7402=-1 

;BRANCH IF GOOD 
ERROR ‘ 


;CPU 


s;BRANCH IF GOOD 
s;CPU ERROR 
sMODE 7 FAILED 


30=0 
° 


sR2=400 


3400-0 


;ekee 


s;BRANCH IF GOOD 
RROR 


;CPU E 
; 
302-1 


;0=1 
;BRANCH IF ERROR 


; 

s;BRANCH IF GOOD 

;CPU ERROR 

sNEGATE MODE 7 FAILED 





SEQ 0047 


COKDAEO KOJ11-6 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 
2115 007270 

2116 


007270 








4$: 


3 
MSPT : 


i$: 
2$: 


1$: 


by y — OPERAND MODE 2 REG 7 


LR R 
COMB R4 
INC R4 
CLR 
-WORD -1 
BEQ 3$ 
ERROR +1 


R4 
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3R4=400 
;CLEAR NEXT LOCATION 
;SETUP INITIAL DATA 
sBRANCH IF GOOD 

;CPU ERROR 


3R420 
sCONDITION CODES =1111 
:CC=#1011 

;*#TEST INSTRUCTION 


sBRANCH IF ERROR 
;BRANCH IF GOOD 
;CPU ERROR 

;TST MODE O FAILED 
;R4=-1 


:CC=0111 


s*#TEST INSTRUCTION MODE 0 
sBRANCH IF ERROR 


PU OR 
:TST FAILED 


30-000 377 


;CC#0111 
;#TEST INSTRUCTION ON EVEN BYTE 
;BRANCH IF ERROR 


; 
;BRANCH IF GOOD 
;CPU ERROR 





SEQ 0046 


COKDAEO KDJ11-B8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


2178 007376 
2179 007400 
2180 007402 
2181 007404 


2182 
2183 007406 
84 


5 
2188 007406 





005204 
105704 
001401 
104001 
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1$: 
2$: 


3$: 
4$: 


2s: 


CR4) 


;POINT TO 1 

; TEST INSTRUCTION 
;BRANCH IF GOOD 
;CPU ERROR 

;TST FAILED ON BYTE 


3020 
;CC=1011 


s#TEST INSTRUCTION IN MODE 1 
sBRANCH IF ERROR 


; 
;BRANCH IF GOOD 
;CPU ERROR 

30-1 

; TEST INSTRUCTION 
;BRANCH IF ERROR 
;BRANCH IF GOOD 
;CPU ERROR 

;TST FAILED MODE 1 


3R420 


:0=001 000 


;CC=1011 

:*#TEST INTRUCTION 
;BRANCH IF ERROR 
; 


:;BRANCH IF GOOD 
;CPU ERROR 


sR4=1 
; TEST INSTRUCTION 
s;BRANCH IF ERROR 


s;BRANCH IF GOOD 


LORE TNS ST 





SEQ 0049 


COKDAEO KDJ11-B CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


—— 





2239 007520 104001 
2240 
pete 007522 


3 
— 007522 


3$: 
4$: 


MSPY: 


i$: 
2$: 


i$: 
2$: 


3$: 


; 
;CC=1011 


ERROR +1 
TEST TST MODE 2 
CLR R4 
CLR (R4)+ 
CLR CR4) 
COM (R4) 
CLR R4 
scc 

CLZ 

TST CR4)+ 
BCS 1$ 
BVS i$ 
BMI i$ 
BEQ 2$ 
ERROR +1 
TST CR4)>+ 
6cS 3$ 
BVS 3$ 
BEQ 3$ 
BMI 4$ 
ERROR el 


TEST TST MODE 
CLR R4 
CLR CR4)+ 
-(R4) 
DEC 
scc 
CLZ 
TSTB CR4)+ 
BVS 1$ 
Bcs 1$ 
BMI i$ 
BEQ 2s 
ERROR +1 
scc 
CLN 
TSTB CR4)+ 
BEQ 3$ 
BCS 3$ 
BVS 3$ 
BMI 4$ 
ERROR +1 


2 BYTE 
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;CPU ERROR 
; 


: 

3020 
s22-1 
;R4=0 


; TEST INSTRUCTION 
s;BRANCH IF ERROR 


;BRANCH IF GOOD 
;CPU ERROR 

sMODE 2 TEST FAILED 
sTST LOC2 


;CPU ERROR 
sMODE 2 FAILED 


. 
30=377 000 
3R4=0 


;CC=1011 
; 
;BRANCH IF ERROR 


;BRANCH IF GOOD 
;CPU 


ERROR 
sMODE 2 EVEN BYTE FAILED 


:CC=O111 
; 
’ 


;BRANCH IF GOOD 
3;CPU OR 


ERR 
sMODE 2 ODD BYTE FAILED 





SEQ 0050 


COKDAEO KOJ11-8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 


-— 


2300 007640 
230 


2308 007640 
2309 007642 
2310 007644 
2311 007646 
2312 007650 
2313 007652 
2314 007654 
£315 007656 
2316 007660 
2317 007662 
2318 007664 
2319 007666 
2320 007670 
2321 007672 


2359 
2360 007762 





4$: 


a 
MSPAA: 


1$: 
2s: 


4s: 


1$: 
2s: 


TEST TST MODE 3 
CLR R4 
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30=400 
3400=0 
sR4=0 


sCC=1011 

; TEST MODE 3 
s;BRANCH IF ERROR 
; 


;BRANCH IF GOOD 
;CPU ERROR 
sMODE 3 FAILED 


;R4=0 

7400-1 

sCC-O111 

; TEST INSTRUCTION 


‘ 
;BRANCH IF ERROR 





SEQ 0051 
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BASE INSTRUCTION SET TESTS 
2361 007764 005304 DEC R4 


SEQ 0052 


2362 007766 005704 TST R4 ;SEE IF AUTO-INC WORKED 
2363 007770 001401 BEQ 4$ sERROR IF R4 NE O 
2364 007772 104001 3$: ERROR +i ;CPU ERROR 

2365 ;AUTO-INC FIALED 

2366 007774 4$: 

2367 

2368 : 

oese 007774 MSTB3: 

2373 : TEST TST MODE 3 BYTE 

2374 007774 00 CLR R4 

2375 007776 005014 CLR (R4) 

2376 010000 105114 COMB (R4) 

2377 010002 005214 INC CR4) 

2378 010004 005214 INC CR4) 30=401 

2379 010006 005001 CLR Ri 

2380 010010 105101 COMB Ri 

2381 010012 005201 INC Ri 3R1=400 

2382 010014 005011 CLR (Ri) 

2383 010016 005111 COM CR1) 

2384 010020 105011 CLRB CR1i) ;4002377 000 

2385 010022 105734 TSTB OC R4)+ 3#@ TEST INSTRUCTION 
2386 010024 001403 BEQ i$ sERROR IF EQUAL 
2387 010026 103402 BCS i$ sERROR IF CARRY SET 
2388 010030 102401 BVS i$ sERROR IR OVERFLOW 
2389 010032 100401 BMI 2s ;BRANCH IF MINUS 
2390 010034 104001 1$: ERROR ei sCPU ERROR 

2391 :CC ERROR 

2392 010036 005304 2s: DEC R4 

2393 010040 005304 DEC Ra 

2394 010042 001401 BEQ 4s ;BRANCH IF AUTO-INC WORKED 
2395 010044 104001 3$: ERROR «1 ;CPU ERR 

2396 ;AUTO-INC FAILED 

2397 010046 43 

2398 

2399 ; 

2402 010046 MST4: 

2403 

2404 $ TEST TST MODE 4 

2405 010046 005004 CLR RA 

2406 010050 005014 CLR (R4) 3020 

2407 010052 005204 INC P4 

2408 010054 005204 INC Ra 3R4=2 

2409 010056 000277 scc 

2410 010060 000244 CLZ :CC#1011 

2411 010062 005744 TST -(R4) ;*e@TEST INTRUCTION 
2412 010064 103403 BCS 1s sERROR IF CARRY 
2413 010066 102402 BVS 18 ;ERROR IF OVERFLOW 
2414 010070 100401 BMI is sERROR IF MINUS 
2415 010072 001401 BEQ 2s sBRANCH IF GOOD 
2416 010074 104001 18: ERROR +1 ;CPU ERROR 

2417 ;CC WRONG 

2418 010076 005704 2s: TST Ra sINSURE CORRECT AUTO-DEC 
2419 010100 001401 BEO 43 ;BRANCH IF GOOD AUTO-DEC 
2420 sBAD AUTO-DEC 

2421 010102 104001 38: ERROR +1 ;CPU ERROR 


- 











COKDAEO KDJ11-8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 
e422 010104 
2423 
2424 
2427 010104 


2430 010104 005004 
2431 010106 005014 
2432 010110 005114 
2433 010112 105114 


2464 010166 104001 
2466 010170 005704 
2467 010172 001401 
2468 010174 104001 


2470 010176 
2475 010176 


2478 010176 005004 


MACRO YOS.02 


4$; 


‘ 
MST4B: 








rr mm 
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SEQ 0053 


TEST TST MODE 4 BYTE 
CLR R4 


(R4) 
(R4) 
(R4) 30*377 000 
R4 
R4 3R4=2 
-(R4) ;#*#TEST INSTRUCTION 
is sERROR IF EQUAL TO 0 
i$ sERROR IF CARRY 
i$ ;ERROR IF OVERFLOW 
2s ;BRANCH IF MINUS 
o1 ;CPU ERROR 
:CC SHOULD EQUAL 0100 
-(R4) ;#aTEST EVEN BYTE 
7 sBRANCH IF GOOD 
- 


:CPU ERROR 
;CC SHOULD EQUAL 0100 AND R4--1 


TEST TST MODE 5 
R R4 


CL 5 
CLR (R4)> 3070, R4=2 
scc 
CLZ 7CC=1011 
TST @-(R4) ; TESS INSTRUCTION 
BcS is sERROR IF CARRY 
BYVS is sERROR IF OVERFLOW 
BMI is ;ERROR IF MINUS 
BEQ 23 ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 

;CC WRONG, SHOULD = 0100 
TST R4 
BEQ 43 ;BRANCH IF AUTO-DEC WORKED 
ERROR +1 PU ERROR 





3C 
;AUTO-DEC FAILED 


TEST TST MODE S BYTE 
CLR R4 


(R4) 

CR4) 

(R4) 30=400 

aC R4)+ 340020, R4=2 
a-(R4) : 

OC R4)+ 34002377 000 R4=2 


eee 





COKDAEO KOJ11-8 CLUSTER DIAG. 
BASE INSTRUCTION SET TESTS 
2485 010214 


2486 
2487 


2544 
2545 


010216 


010236 
020240 


010240 


0 
010342 


177400 


000400 


177402 
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1$; 
2s: 


1$: 


en ee 


8-(R4) 344@TEST INSTRUCTION 
i$ ;ERROR IF CARRY 
i$ sERROR IF MINUS 
i$ s;ERROR IF OVERFLOW 
2$ sBRANCH IF GOOD 
+1 ;CPU ERROR 
;CC SHOULD = 0100 
CR4)> 30*401 
@-(R4) s*#*@TEST INSTRUCTION 
sBRANCH IF GOOD 
;EVEN BYTE FAILURE 
+1 ;CPU ERROR 
R4 
CR4) 3020 
R4 
R4 3R4=400 
CR4) 
(R4) ;400=-1 
-400(R4) seaTEST LOCATION 0 
is sERROR IF CARRY 
is sERROR IF OVERFLOW 
is sERROR IF MINUS 
23 sBRANCH IF ZERO 
ol ;CPU ERROR 
- ;CC ARE WRONG 
” 
400(R4) :TST LOCATION 400 
33 sERROR IF EQUAL 
4$ sBRANCH IF MINUS 
«1 ;CPU ERROR 
sCC ERROR 
R4 
CR4) 
(R4)+ 70-1 
(R4) 3220 
R2 ;R2=0 
R4 
R4 
R4 3R4=400 
(R4) 3400-0 
8-376(R4)  aaTEST LOCATION 0 
i$ ;ERROR IF CARRY 
i$ ;ERROR IF OVERFLOW 
i$ sERROR IF ZERO 
es ;BRANCH IF GOOD 





SEQ 0054 


—_-- 
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SEQ 0055 

BASE INSTRUCTION SET TESTS 

2546 010344 104001 1$: ERROR +1 ;CPU ERROR 

2547 sERROR IN CC 

2548 010346 005222 2$: INC CR2)+ 30*-2 R2=2 

2549 010350 005774 177402 TST 8-376(R4) 3*#* CHECK CONTENTS OF LOCATION 2 

2550 010354 100401 BMI 3$ s;ERROR IF MINUS 

2551 010356 001401 BEQ 4$ ;BRANCH IF GOOD 

2552 010360 104001 3$; ERROR +1 ;CPU ERROR 

2553 ;CC SHOULD = 0100 

2554 010362 4$: 

2555 

2556 ; 

2558 : 

2559 : 

2560 : 

2561 ; 

2562 -SBTTL seeeeee40404 DOUBLE OPERAND TESTS 442466444 646446446 

2563 : 

2565 010362 MDMO : 

2566 

2567 : TEST MOVE MODE 0 

2568 010362 005004 CLR R4 7R4=0 

2569 010364 005001 CLR Ri 

2570 010366 005101 COM Ri ;Ri=-1 

2571 010370 010104 MOV R1i,R4 :#*#TEST MOVE INSTRUCTION 

2572 010372 001402 BEQ is sERROR IF R4=0 

2573 010374 102401 BVS i$ sERROR IF OBERFLOW 

2574 010376 100401 BMI 2s ;BRANCH IF MINUS 

2575 010400 104001 1$ ERROR ol ;CPU ERROR 

2576 3CC SHOULD = 100-, R4 SHOULD=--1 

2577 010402 005204 2$: INC R4 sR4 SHOULD -0 

2578 010404 001375 BNE is sERROR IF R4 NE O 

2579 

2 

2583 010406 MDAO 

2534 

2585 3 TEST ADD MODE 0 

2586 010406 005004 R4 7R4=0 

2587 010419 00500i CLR R1 

2588 010412 005101 COM Ri ;Ri=-1 

2589 010414 060104 ADD R1L,R4 ;#@ TEST ADD OF R1 TO R4& 

2590 010416 001403 BEG is ;ERROR IF ZERO 

2591 010420 103402 BCS is sERROR IF CARRY 

2592 010422 102401 BVS 1$ sERROR IF OVERFLOW 

2593 010424 100401 BMI 2$ ;BRANCH IF MINUS 

2594 010426 104001 1$: ERROR +1 ;CPU ERROR 

2595 ;CC SHOULD = 1000 , R4&=-1 

2596 010430 005204 23: INC R4 :R4 SHOULD =0 

2597 010432 001401 BEQ 4$ ;BRANCH IF R4=0 

2598 010434 104001 3$: ERROR +1 ;CPU ERROR 

2599 7R4 SHOULD = 0 

2600 010436 4$ 

2601 

2602 

2605 010436 MDSO 

2606 

2607 $ TEST SUB MODE O 

2608 010436 005004 CLR R4 








COKDAEO KO0J11-8 CLUSTER DIAG. 
@eeeeeeeeees DOUBLE OPERAND TESTS seeeceatassecsace 


2609 010440 


2610 


010442 


000257 
012704 
001401 
100401 
104001 


012701 
1 


125252 


052525 


125252 
052525 
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SEQ 0056 


INC 1 ;R1l=1 R420 
SUB R1,R4 ;**#TEST OF R4-R1, R4=-1 
BVS i$ sERROR IF V SET 
BCC i$ sERROR IF NO CARRY 
BEQ i$ ;ERROR IF =0 
BMI 2s ;BRANCH IF MINUS 
1$: ERROR +1 sCPU ERROR 
;CC SHOULD = 1001 
2s: COM Ri sRie=1 
INC Ri ;GET TWO'S COMPLIMENT, Ri--1 
SuB R1,R4 s#*#TEST R4-R1 C1- 1= O 
BEQ 4$ sBRANCH IF ZERO 
33: ERROR +1 ;CPU ERROR 
;CC SHOULD = 0100 
4$: 
‘ 
MOM27: 
: TEST MOV MODE 27,00 
ccc :CC=0000 
MOV #125252 ,R4 ;**#TEST MOVE 
BEQ is :ERROR IF = O 
BMI es ;BRANCH IF MINUS 
i$: ERROR +1 ;CPU ERROR | 
:CC SHOULD = 1000 
2$: MOV #052525,R! ;*#TEST MOVE 
BMI 3$ sERROR IF MINUS 
BNE 4$ ;BRANCH IF NE 0 
3$: ERROR +1 ;CPU ERROR 
;CC SHOULD = 0000 
4$: ADD R1,R4 sR1+R4=-1 
BMI 6$ ;BRANCH IF MINUS 
5$: ERROR el ;CPU ERROR 
sMOV FAILED 
6$: INC R4 3R4+1=0 
BNE 5$ ;ERROR IF NOT ZERO 
MBIOO 
; TEST BIC, BIS MODE 0,0 
CLR R4 
COM 4 ;R4=-1 
MOV $125252,R1 ;sSETUP Ri TEST DATA 
oa #052525 ,R2 ;R2=COMPLIMENT OF R1 
BIC R1,R4 :##TEST BIC WITH CARRY SET 
BCC 1$ sERROR IF NO CARRY 
BVS 1$ ;ERROR IF OVERFLOW 
BEQ 1$ ;ERROR IF O 
BPL 2$ ;BRANCH IF PLUS 
1$: ERROR +1 ;CPU ERROR 
;CC SHOULD = 0001 
2$: CMP R4,R2 ;COMPARE CONTENTS OF R4 AND R2 
BEQ 4$ ;BRANCH IF EQUAL 
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seee¢e000442 DOUBLE OPERAND TESTS seeeeeeececececce SEQ 0057 
2670 010570 104001 3$: ERROR +1 ;CPU ERROR 
2671 sR4 AND R2 SHOULD BE EQUAL 
2672 010572 005301 4$: DEC Ri #R1*125251 
2673 010574 050201 BIS R2,R1 BIS 052525 AND 125251177775 
2674 010576 100401 BMI 6$ | ;BRANCH IF MIUS VALUE 
2675 010600 104001 S$: ERROR +1 ;CPU ERROR 
2676 ;BAD BIS OPERATION 
2677 010602 005201 6$ INC Ri 
2678 010604 005201 INC Ri 
2679 010606 005201 INC Ri ;R1=0 
2680 010610 001373 BNE 5$ ;ERROR IF NE O 
2681 
2682 : 
2685 010612 MBCOO: 
2686 
2687 ; TEST BIT, CMP MODE 0,0 
2688 010612 012701 125252 MOV #125252,R1 #R1=125252 
2689 010616 012704 100000 MOV #100000,R4 +R4=100000 
2690 010622 012702 052525 MOV #052525,R2 3F2*052525 
2691 010626 030401 BIT R4,R1 s;#4;EST OF BIT ,CC=1000 
2692 010630 001401 BEQ $ sERROR IF EQ 0 
2693 010632 100401 BMI 2$ sBRANCH IF 
2694 010634 104001 1$: ERROR +1 ;CPU ERROR 
2695 ;CC SHOULD = 1000 
2696 010636 020401 2$ CMP R4,R1 :#TEST 100000-125252=25252 
2697 010640 001402 BEQ sERROR IF EQUAL 0 
2698 010642 103001 BCC 3$ sERROR IF CARRY CLEARED 
2699 010644 100401 I 4$ ;BRAn CH GOOD 
2700 010646 104001 3$ ERROR +1 ;CPU ERROR 
2701 s;CC SHOULD = 0010 
2702 010650 020104 4$ CMP R1,R4 3125252-100000 = 25252 
2703 010652 001403 BEQ IF EQUAL 
2704 010654 103402 BCS 5$ sERROR IF CARRY 
2705 010656 102401 BVS 5$ sERROR IF OVERFLOW 
2706 010660 100001 L 6$ ;BRANCH GOOD 
2707 010662 104001 5$: ERROR +1 ;CPU ERROR 
2708 ; =0001 
2709 010664 005004 6$: CLR R4 
2710 010666 005204 INC R4 ;R4=1 
2711 010670 000277 Cc 
2712 010672 030401 BIT R4,R1 7R4 ¢ RI = 2 
2713 010674 001401 BEQ ;BRANCH IF GOOD 
2714 010676 104001 7$: ERROR 1 :;CPU ERROR 
2715 sCC SHOULD = 0101 
2716 010700 8$: 
2717 
2718 ; 
phat 010700 MM1i1: 
2723 ; TEST MOV, MOVB MODE 1,1 AND SIGN EXT ON MOVB TO GPR 
2724 010700 012704 000400 MOV #400 ,R4 ;R4=400 
2725 019704 012701 000402 MOV #402 ,R1 3#R1=402 
2726 010710 005014 CLR (R4) ; 
2727 010712 005114 COM (R4) 7400=-1 
2728 010714 005011 CLR (R1) ; 
2729 010716 105111 COMB (Ri) 3402=000 377 
2730 010720 005002 CLR R2 ;R2=0 








COKDAEO KO0J11-B CLUSTER DIAG. 
eeeeeeeeeeee DOUBLE OPERAND TESTS seaeeetececcsacens 
012703 000405 
000277 


010722 


010742 


010744 
010746 
010750 
010752 
010754 
010756 
010760 


010762 
010764 


010766 
010770 
010772 
010774 
010776 
011000 
011004 


011006 
011010 


011010 


011010 
011014 


177777 


000400 
000402 
177753 
000024 


012704 000400 
012701 000404 
012714 000003 
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MOV #405 ,R3 3R3=405 
SCC sCC#1111 
MOV CR4),CR2) ;MOV 400 10 0 ,0#-1 
BEQ i$ sERROR IF O 
BVS 1$ sERROR IF OVERFLOW 
BCC i$ sERROR IF NO CARRY 
BMI 2$ ;BRANCH IF GOOD 
1$: ERROR +1 ;CPU ERROR 
3CC SHOULD =1001 
2$: INC CR2) :0=0 
BNE 3$ ;ERROR IF NOT O 
ccc :CC=0000 
MOVB CR1),CR3) 3405*377 
BEQ 3$ ;ERROR IF EQUAL 
BMI as ;BRANCH IF GOOD 
3$: ERROR +1 s;CPU ERROR 
4$: INCB CR3) 3405=0 


BNE 3$ sERROR IF 405 NOT O 
; CHECK yr! ae OCCURS ON A MOVB TO GENERAL REGISTER. 


2 
MOVB le R2 


BPL sERROR! BIT 15 SHOULD BE SET. 
BYVS 5$ ;V BIT SHOULD BE CLEARED 
BCS 5$ ;CARRY BIT SHOULD BE UNAFFECTED 
CMP 4177777,R2 ;TEST R2 
BEQ 6$ ;SIGN EXTENDED THROUGH UPPER BYTE 
;ERROR! BYTE SHOULD HAVE 
sSIGN EXTENDED THROUGH UPPER BYTE 
= ERROR +1 ;CPU ERROR 
: 
MALI: 
; TEST ADD MODE 1,1 
MOV $400 ,R4 7R4=400 
MOV $402 ,R1 7R1=402 
MOV o-25,(CR4) ;4002-25 
MOV #24, (R1) 3;402=24 
ADD CR1),CR4) 3-25+24=-1 
BEQ is sERROR IF 0 
Bcs is ;ERROR IF CARRY 
BPL 1$ ;ERROR IF POSITIVE RESULT 
INC CR4) ;-1¢1=0 
BEQ 2$ ;BRANCH IF GOOD 
is: ERROR +1 ;CPU ERROR 
;CC SHOULD = 1000 
2$: 
; 
MS1i1 
3 TEST SUB MODE 1,1 
MOV #400 ,R4 ;R4=400 
MOV $404 ,R1 7R1=404 
MOV #3 ,CR4) 34003 





SEQ 0058 








COKDAEO KDJ11-B CLUSTER DIAG. 
e¢ee200000464 DOUBLE OPERAND TESTS aaeeeaceeeescacaana 


—— 


2792 011062 
2793 011066 
2794 011070 
2795 011072 
2796 011074 
2797 011076 
2798 011100 


2800 011102 
2801 011104 


2806 011106 


2809 011106 
2810 011112 
2811 011116 
2612 011122 
2813 011126 
2814 011130 
2815 011132 
2816 011134 


2818 011136 
2619 011140 
2820 011142 


2622 011144 
2823 011146 
2824 011150 
2825 011152 
2826 011154 


2828 011156 

2829 011160 

2830 011162 

2831 011164 
832 


2833 011166 


012711 000006 
000277 


104001 


161411 
001375 


012704 000400 
012701 000402 
012714 052525 
012711 125252 
051411 
001401 
100401 
104001 


005211 
001401 
104001 


005311 
041411 
001401 
100401 
104001 


005111 
041114 
001401 
104001 
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1$: 
2$: 


1$: 
2s: 


MOV #6, CR1) 
SUB CR4),(R1) 
Q i$ 


BE 

BMI 1$ 
BCC 2$ 
ERROR +1 


;ERROR IF O 
sERROR IF MINUS 
;BRANCH IF GOOD 
;CPU ERROR 


;CC SHOULD = 0000 


SUB CR4),CR1) 
BNE 1$ 


TEST BIC, BIS MODE 1,1 
MOV oR4 


33-320 
sERROR IF NOT O 


#400 sR4=400 
MOV #402 ,R1 sR1=402 
MOV #052525, (R4) :400=052525 
MOV #125252, (R1) 3402125252 
BIS CR4),CR1) sR4V RIL = -1 
BEQ i$ sERROR IF 0 
BMI 2$ sBRANCH IF GOOD 
ERROR +1 ;CFU ERROR 

sCC SHOULD = 1000 

INC (Ri) 34020 
BEQ 4s sBRANCH IF GOOD 
ERROR +1 CPU ERROR 


DEC CR1i) 02=-1 

BIc (R4),CRL) 7R1=125252 

BEQ 5$ sERROR IF O 

BMI 6$ ;BRANCH 

ERROR +i ;CPU ERROR 
C SHOULD = 1000 

COM (R1) 3402=052525 

BIC CR1),CR4) 3400-0 

BEQ 8$ ;BRANCH IF 

ERROR +1 ;CPU ERROR 


sCC SHOULD = 0100 


TEST BIT, CMP MODE 1,1 
MOV #400 ,R4 
MOY #052525, (R4) 
#402 ,R1 
MOV #125252, (R1) 
BIT CR4),CR1) 
i$ 


BEQ 2$ 
ERROR +1 


CMP CR4),CR1) 
3$ 





;R4=400 
;400=052525 


3##052525t125252=0 
s;ERROR IF CARRY 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD = 0100 
3400 -402=125253 
;ERROR IF ZERO 


SEQ 0059 





COKDAEO KOJ11-8 CLUSTER DIAG. 
eee444460444 DOUBLE OPERAND TESTS seee00e044044444% 


2853 011224 
2854 011226 
2855 011230 
2856 011232 


2858 011234 
2859 011236 
2860 011240 
2861 011242 
2862 011244 


2864 011246 


2887 011310 


2889 011312 
2890 011314 
2891 011316 


2893 011320 
28698 011320 


2901 011320 
2902 011324 
2903 011330 
2904 011334 
2905 011340 
2906 011342 
2907 011344 

11346 
2909 011350 
mor} 011352 


2911 
2912 011354 
2913 011356 


001401 
104001 


005241 
162721 


000400 
000402 
177760 
177750 


177771 
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CR4) 

CR4) 
(R1),CR4) 
6$ 

+1 


TEST MOV MODE 2,2 
V #400 ,R4 


;ERROR IF NO CARRY 
sERROR IF NO OVERFLOW 
;BRANCH IF GOOD 

;CPU ERROR 

sCC SHOULD = 1000 


7400-1 
;125252t1=0 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD= 0100 


MO 00, 3R4=400 
MOV #402 ,R1 3;R1=402 
MOV #5,(CR4) 34005 
CLR CR1i)+ 3;402=0 
CLR (R1) : 
COM (RL) ;404=-1 
TST -(R1) ;R1=402 
scc ;CC=1111 
MOV CR1)+,CR4)+ 740020 R4=402 R1=404 
BMI i$ ;ERROR IF MINUS 
BCC i$ ;ERROR IF NO CARRY 
BVS i$ ;ERROR IF OVERFLOW 
BEQ 2$ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 

;CC SHOULD= 0101 
INC -(R4) 3400-1 R4=400 
ADD CR4),CR1L) sie -1 =O 
BEQ 4$ ;BRANCH IF GOOD 
ERROR +i CPU ERROP 


TEST SUB MODE 2,2 
#400 ,k4 


#402 ,R1 
#177760, (R4) 
#177750,(R1i) 
elas 


-(R1) 
#177771,C(R1)+ 


; 
sCC SHOULD = 0100 


;R4=400 
;R1=402 
;400=177760 
3402177750 
;R1*177770 
;ERROR IF ZERO 
;ERROR IF OVERFLOW 
;ERROR IF NO CARRY 
;BRANCH IF GOOD 
;CPU ERROR 
;CC SHOULD=1000 
3R1=1777771 
:R1i=0 


tsb ncperhethan abiinciebietinpsiipeitiosecnienhinninnsianmethe 





SEQ 0060 
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SEQ 0061 

eeeeeeeeeese DOUBLE OPERAND TESTS 4040000044 44464844 

2914 011362 100401 BMI 3$ sERROR IF MINUS 

2915 011364 001401 BEQ 45 ;BRANCH IF GOOD 

2916 011366 104001 3$: ERROR +1 ;CPU ERROR 

2917 ;CCSHOULD = 0100 

2918 011370 4$: 

2919 

2920 3 

2936 011370 MBB22: 

2937 

2938 : TEST BIC, BICB, BIS, BISB MODE 2,2 

2939 011370 012704 000400 MOV #400 ,R4 3R4=400 

2940 011374 012701 000402 MOV #402 ,R1 ;R1=402 

2941 011400 012702 000404 MOV $404 ,R2 ;R22404 

2942 011404 012714 141401 MOV #141401, (R4) 34002303 001 

2943 011410 012711 177405 MCV #177405, (R1) 34022377 005 

2944 011414 012722 000070 MOV $70, CR2)+ 340422070 

2945 011420 012722 177777 MOV #-1,(R2)+ ;406=-1 

2946 011424 042421 BIC CR4)+,CR1)+ 34027074004 

2947 011426 001401 BEQ i$ ;ERROR IF ZERO 

2948 011430 100001 BPL 2e$ sBRANCH IF GOOD 

2949 ;CC SHOULD = 1000 

2950 011432 104001 1$: ERROR +1 ;CPU ERROR 

2951 011434 052421 2$: BIS C(R4)+,CR1)+ 34042074074 

2952 011436 142421 BICB (R4)+,CR1)+ 34062074 

2953 011440 005301 DEC R1 7R4=405 R1=406 

2954 011442 152421 BISB (R4)+,CR1)+ 3406-1 R4=406 R1=407 

2955 011444 100401 BMI 4$ ;BRANCH IF GOOD 

2956 3406 SHOULD=--1 

2957 011446 104001 3$: ERROR +1 ;CPU ERROR 

2958 011450 005214 4$: INC CR4) 3406 SHOULD=-0 

2959 011452 001401 BEQ 6$ ;BRANCH IF GOOD 

2960 sERROR! 406 NE 0 

2961 011454 104001 5$: ERROR +1 ;CPU ERROR 

2962 011456 6$: 

2963 

2964 ; 

2967 011456 MBC22: 

2968 

2969 ; TEST BIT, CMP MODE 2,2 

2970 011456 012704 000400 MOV #400 .R4 7R4=400 

2971 011462 012701 000402 MOV #402 ,R1 3R1=402 

2972 011466 012714 125252 MOV #125252, (R4) 34002125252 

2973 011472 012721 100001 MOV #100001,(R1)+ 3402=100001 

2974 011476 012711 100002 MOV #100002, (R1) 34042100002 

2975 011502 005741 TST -(R1) 7R1=402 

2976 011504 132421 BITB CR4)+,CR1)+ ;##ANDED RESULT= 000 

2977 011506 100401 BMT 1$ ;ERROR IF MINUS 

2978 011510 001401 BEQ 2$ :BRANCH IF GOOD 

2979 011512 104001 1$: ERROR +1 ;CPU ERROR 

2980 ;CC SHOULD = 0100 

2981 011514 132124 2s: BITB CR1)+,CR4)+ ;## ANDED RESULT = 200 

2982 011516 001401 BEQ 3$ ;ERROR IF EQUAL 

2983 011520 100401 BMI 4$ ;BRANCH IF GOOD 

2984 011522 104001 3$: ERROR +1 ;CPU ERROR 

2985 ;CC SHOULD= 1000 R4=402 R1=404 

2986 011524 022421 4$: CMP (R4)+,CR1)+ sRESULT =+1 

2987 011526 001402 BEQ 5$ ;ERROR IF EQUAL 


-— 

















@-- 


COKDAEO KOJ11-8 CLUSTER DIAG. 


MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-43 | 
SEQ 9062 
eeeeeeeesese DO! GLE OPERAND TESTS e24646604606606446% | 
2988 011530 103001 BCC 5$ sERROR IF NO CARRY 
2989 011532 100401 I 6$ ;BRANCH IF GOOD 
2990 011534 104001 5$: ERROR +1 ;CPU ERROR 
2991 ;CC SHOULD = 0000 
2992 011536 005341 6$: DEC -CR 3404=100001 
2993 011540 005741 TST -C(R1) 7R4=404 R1=402 
2994 011542 022124 CMP CR1)+,CR4)+ ;RESULT =0 
2995 011544 001401 BEQ 8$ ;BRANCH IF GOOD 
2996 ;CC SHOULD = 0100 R1=404 R4=406 
2997 011546 104001 7$: ERROR +1 ;CPU ERROR 
2998 011550 8$: 
2999 
3000 ’ 
3003 011550 MS33: 
3004 
3005 : TEST SUB MODE 3,3 
3006 011550 CLR R4 7R4=0 
3007 011552 012701 000002 MOV #2,R1 ;Riz2 
3008 011556 012702 000400 MOV 6400 ,R2 ;R2=400 
3009 011562 012714 000400 MOV €400,CR4) ;0=400 
3010 011566 012711 000402 MOV #402 ,(R1) :27402 
3011 011572 012722 000200 MOV #200 ,CR2)-+ 400=200 
3012 011576 012712 054320 MOV #54320,(R2) 3;402=54320 
3013 011602 163431 SUB -@CR4)+,8CR1)+ 354320 - 200=54120 
3014 011604 001402 BEQ i$ sERROR IF ZERO 
3015 011606 103401 BCS 1$ sERROR IF CARRY 
3016 011610 100001 BPL 2$ sBRANCH IF GOOD 
3017 011612 104001 1$: ERROR +1 ;CPU ERROR 
3018 ;CC =0001 
3019 011614 022712 054120 2s: CMP #54120,(R2) ; TEST R4& AUTO-INC AND R=SULT 
3020 011620 001401 BEQ 4$ ;BRANCH IF GOOD 
3021 011622 104001 3$: ERROR +1 ;CPU ERROR 
3022 :CC SHOULD = 0100 R4=2 R1i=4 
3023 011624 005067 166150 4$: CLR 0 ;RESTORE VECTORS 
3024 011630 005067 166146 CLR 2 ; " 
3025 
3026 
3027 ; 
3030 011634 MCB44: 
3031 
3032 ; TEST CMP, BIT MODE 4,4 
3033 011634 012704 000400 MOV #400 ,R4 7R4=400 
3034 011640 012701 000402 MOV $402 ,R1 ;R1=402 
3035 011644 012721 125366 MOV #125366,(Ri)+ 3402125366 R1=404 
3036 011650 012724 173001 MOV #173001,(R4)-+ ;400#173001 R4=402 
3037 011654 024441 CMP ~CR4),-CR1) 3173001 - 125366=045603 CC=0000 
3038 011656 103401 BcsS i$ ;ERROR IF CARRY 
3039 011660 100001 BPL 2$ ;BRANCH IF GOOD 
3040 :BAD COMPARE 
3041 011662 104001 1$: ERROR +1 ;CPU ERROR 
3042 011664 005204 2$: INC R4 
3043 011666 005201 INC Ri 3R1=403 
3044 011670 000261 SEC ;SET CARRY 
3045 011672 134144 BITB -CR1), -CR4) ;173t120 
3046 011674 103001 BCC $ ;C SHOULD REMAIN SET 
3047 011676 001401 BEQ af ;BRANCH IF GOOD 
3048 ; INCORRECT COMPARE R4=400 R1=402 





- - 





COKDAEO KOJ11-B8 CLUSTER DIAG. 
eeeeeeeeeees DOUBLE OPERAND TESTS ae40e064004046666 


3049 011700 


3050 011702 
05 


011704 


O52 011706 


011710 
011712 


056 011714 


011714 


011714 
011720 
011724 
011730 
011734 
011740 
011744 
011746 
011750 
011752 
011754 


011756 
011762 
011764 
011766 


011770 


011770 


011770 


3 
3109 012036 


000004 


000405 
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177774 


177772 


3$: ERROR +1 

4$: TST CR4)+ 
INC Ri 
CMPB -(R4),-CR1) 
BEQ 6$ 

5$: ERROR +1 

6$: 

; 

MASS 

: TEST ADD MODE 5,5 
MOV 00 ,R4 


MOV #410,R1 
ADD 8-(R4),8-C(R1) 
BEQ i$ 
BPL 1$ 
BCC 2$ 
1$; ERROR +1 
2$ ADD #4 ,R4 
ADD 8-(R1),8-C(R4) 
BEQ 4$ 
3$: ERROR +1 


;TEST DOP BIT(B) MODE 6,6 
; 


MB66 : 

: TEST BIT. BITB MODE 6.6 
CLR R4 
MOV #400 ,R1 
MOV #125252,(R1)+ 
MOV #1,CR1L)+ 
MOV #100000, (R1)+ 
BIT 400(R4), -4(R1) 
BEQ 2$ 

$ ERROR +1 

2$ BITB 405(R4), -6(R1) 
BEQ 3$ 
BMI 43 

3$: ERROR +1 


;CPU ERROR 
3R42=402 
;R1=403 
3173 - 173-0 
;BRANCH IF GOOD 
;BAD COMPARE 
;CPU ERROR 


;400-1 

3402=-2 

3404=400 

3406=402 R4=406 

3;R1=410 

sie -22 -1 

;ERROR IF ZERO 

;ERROR IF PLUS 

;BRANCH IF GOOD 
;CPU ERROR 


sCPU ERROR 


3404=1000000 R1=406 
3€400)t(402)=0 
;BRANCH IF GOOD 

;CC SHOULD = 0100 


RROR 
;€405)t(400)=200 
sERROR IF ZERO 
;BRANCH IF GOOD 
;CC SHOULD = 1000 

;CPU ERROR 


;CPU E 


ah epi ee ihn ilhiaicininny 





SEQ 0063 





COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeeeeeseees DOUBLE OPERAND TESTS eeaeeesaseeseecee 


3110 012040 


— 


012114 


012116 
012122 


012126 


012176 
012200 


012200 


012200 
012202 


005004 
012714 


000400 


177776 
177777 
00 


000402 
177372 


177777 


165656 
165654 


125252 


052525 


125252 


125124 


052525 
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000403 


177776 


4$: 


: 
MS77: 


i$: 
2s: 


1%: 
2s: 


3$: 
4$: 





SEQ 0064 


TEST SUB MODE 7,7 
MOV ag 


R4 ; 
CLR Ri 
MOV @-2,CRA)> 3400=-2 
MOV #-1,C0R4)>+ ;402+-1 
MOV #400 ,CR4)+ 3404=400 R4=406 
MOV #402 ,CR1) 30=402 
TNC Ri sRiel 
3U6 8-406(R4), 8403(R1) 3-2 - -1 = -1 
BEQ i$ sERROR IF ZERO 
BMI 2s sBRANCH IF GOOD 
#CC SHOULD=1000 

ERROR +1 ;CPU ERROR 
SUB 8-1(R1),8-20R4) s-1 - -1 = 0 
BEQ 4$ sBRANCH IF GOOD 
ERROR +1 ;CPU ERROK 

sERROR ON SUBTRACT 400-0 
CLR 0 sRESTORE VECTORS 
CLR 2 ; a 
TEST ROL, ROLB MODE 0 
MOV #125252 ,R4 3R4=125252 
scc sCC#1111 
ROL RS 3R4=052525 WITH CARRY SET 
BYC is sERROR IF V CLEAR 
Bcc is sERROR IF CARRY CLEAR 
CMP #052°°5,R4 :SEE IF RO = EXPECTED 
BEQ 23 sERROR IF R4 NE EXPECTD 
ERROR +i ;CPU ERROR 

sROL FAILED, CC SHOULD=-0011 
MOV #125252,R4 3R42125252 
ccc :CC=0000 

R4 sROTATE EVEN BYTE 

Bcc 3% :ERROR IF NO CARRY 
BYC 3$ sERROR IF NO OVERFLOW 
BMI 3$ ;ERROR IF MINUS 
CMP $125124,R4 ;SEE IF R4 = EXPECTED 
BEQ 4$ ;BRANCH IF GOOD 
ERROR «il ;CPU E 


RROR 
;sROLB FAILED, CC SHOULD=1011, R4=125125 


TEST ROL, ROLB MODE 1 
CLR RG 
MOV 52525 ,(R4) 


;R4=0 
30*52525 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
eeee¢eeeeeee DOUBLE OPERAND TESTS seecesescansesece 


aes 012206 


Pp 


30 
3231 


012216 
012222 


012224 


012336 


32352 012340 
3233 012344 


006114 
100005 
102004 
103403 
021427 
001401 


005004 
012714 
000277 


125252 


125252 


052652 


100000 


004040 


052525 
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1$: 
23: 


3$: 
4$: 


i$: 
2$: 


3$: 
4$: 


ROL (R4) 

BPL i$ 

BVC i$ 

BCS i$ 

CMP (R4), 125252 
BEQ 2$ 

ERROR +1 

MOV #125252,(R4) 
INC R4 

scc 

ROLB C(R4) 

BMI 3$ 

BCC 3$ 

BVC 3$ 

DEC R4 

CMP #52652 ,(R4) 
BEQ 

ERROR +1 


TEST ROL, ROLB MODE 2 
R R4 


CL 

MOV #100000, (R4) 
ccc 

ROL CR4)+ 

Bcc i$ 

BYC is 

BEQ 2¢ 

ERROR 1 

DEC R4 

DEC RS 

BNE 3% 

MOV 64040, (R4) 
CLC 

ROLB (R4)+ 

Bcs 3% 

BYS 3$ 

DEC R48 

CMP 04100 ,(R4) 
BEQ ay 

ERROR ol 


TEST ROL, ROLB MODE 3 
CLR R4 


MOV 052525, (R4) 
scc 





SEQ 0065 


;#*#TEST INSTRUCTION, 0*125252 
;ERROR IF PLUS 

sERROR IF NO OVERFLOW 

sERROR IF CARRY 

s;SEE IF R4=EXPECTED 

;BRANCH IF GOOD 

;BAD ROL ,CC SHOULD=1010 


;CPU ERROR 


30*125252 

;R4=1 

;CC#1111 

;#*#TEST INSTRUCTION 

sERROR IF RESULT IS POSITIVE 
;ERROR IF NO CARRY 

;ERROR IF V CLEAR 

3R420 

sERROR IF O NE EXPECTED 
:BRANCH IF GOOD 


;CPU ERROR 
sE4D ROLB ODD BYTE,CC SHOULD=-1011 


3R420 

392100000 

:CC=0000 

;*#TEST INSTRUCTION 
sERROR IF NO CARRY 
sERROR IF NO OVERFLOW 
BRANCH IF GOOD 


3 H 
;ROL FAILED .CCSHOULD= 0100 


;CPU ERROR 


sERROR IN AUTO-DEC 
=4040 


- 
; 


s#*#TEST INSTURCTION 


sERROR IF CARRY SET 
sERROR IF V 
;SEE IF O= EXPECTED RESULT 
;BRANCH IF GOOD 
;CPU ERROR 
:BAD ROL 
3R4=0 
70252525 
:CC*1111 








COXDAEO KOJ11-8 CLUSTER DIAG. 
eeeceseeeese DOUBLE OPERAND TESTS eeeeeeeassecaeeesce 


012346 
012352 
012354 
012356 
012360 
012364 


012366 
012370 
012374 
022376 
012402 
012404 
012406 

£2410 


012412 


012412 


012412 


006137 000000 
100005 


102004 
103403 


022714 
001401 


125253 


125252 
000000 


000002 
054321 


130643 


000400 
123456 


047135 000400 


1$: 
2s: 


3$: 
4$: 





ROL 90 

BPL is 

BVC 1$ 

BCS i$ 

CMP #125253, (R4) 
BEQ 2$ 

ERROR +1 

MOV #125252, (R4) 
SEC 

ROLB 900 

MI 3$ 

BCC 3$ 


BVS 43 
ERROR +1 


TEST ROL MODE 4 
LR Ri 


#2 ,R4 
MOV #54321,(R1) 


ROL -(R4) 

BPL 1$ 

BYC i$ 

BCS a3 

CMP #130643, (R1) 
BNE is 

TST R4 

BEQ 2s 

ERROR +1 


TEST ROL MODE & 
CLR R4 


MOV #400 ,(R4) 
MOV #123456, 8(R4)+ 


BMI 
BCC 1$ 
BYC 1$ 
TST R4 
BNE 


i$ 
CMP rr 
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SEQ 0066 


3#*#TEST INSRUCTION MODE 3 WITH PC 
sERROR IF PLUS 
sERROR IF NO OVERFLOW 
;ERROR IF CARRY 
sCOMPARE RESULT WITH EXPECTED 
;sBRANCH IF GOOD 
sBAD ROL CC SHOULD=1010 
;CPU ERROR 
:0*=125252 
;CC=.---1 
;*#*#TEST INSTRUCTION 
sERROR IF MINUS 
sERROR IF NO CARRY 
;BRANCH IF OVERFLOW 
;CPU ERROR 
;BAD ROL, CC SHOULD=1011 


;R1=0 

;R422 

30254321 

:CC=1111 

;**@TEST INSTRUCTION 
sERROR IF PLUS 

sERROR IF NO OVERFLOW 
sERROR IF CARRY 

;SEE IF EXPECTED RESULT 
;BRANCH IF ROL FAILED 
;SEE IF AUTO-DEC WORKED 
:BRANCH IF GOOD 

sERROR! BAD ROL INST 
;CPU ERROR 


302400 

7400=123465, R4=2 

;CC=1111 

;##TEST INSTRUCTION 

sERROR IF RESULT IS MINUS 

;ERROR IF NO CARRY 

sERROR IF NO OVERFLOW 

;SEE IF AUTO-DEC WORKED 

sERROR OF AUTO-DEC 

;SEE IF CORRECT RESULT 

;BRANCH IF GOOD 

;BAD ROL MODE 5 
;CPU ERROR 





- 





COKDAEO KOJ11-B CLUSTER DIAG. 
eeeeneeeecase DOUBLE OPERAND TESTS saeeeesssaccaeese 


3295 
3296 
3299 012514 


3333 012612 104001 


3400 012614 012704 
3401 012620 012714 
3402 012624 000337 
3403 012630 100406 
3404 012632 022714 
3405 012636 001003 
3406 012640 000337 
3407 012644 100401 


3409 012646 104001 


000400 
032525 
177400 


065253 


000000 


000400 
040700 
000400 
140101 


000400 
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000000 


MR'.6: 


1$: 
2s: 


1$: 
2s: 


TEST ROL MODE 6 
MOV #400 ,R4 


Ri 
MOV #32525 ,(R1) 


ROL -400(R4) 
BMI i$ 

BCS i$ 

BYVS 


i$ 
CMP nes 
3 


ERROR +l 


TEST ROL MODE 7 
MOV 4 


CLR 96402 

MOV #100000, 860 
ROL a82(R4) 

BMI i$ 

BNE is 

BCC 1$ 

BYC i$ 

TST 340 

BEQ 2s 

ERROR +1 


TEST SWAB MODE 37 

MOV #400 ,R4 

MOV #40700 ,CR4) 
36400 


1$ 
CMP ee 


SWAB 84400 
BMI 2s 
ERROR +1 


TEST ROR MODE 0 





;CPU ERROR 


SEQ 0067 


3R4=400 
7R1=0 
30=32525 


3##TEST INSTRUCTION 
sERROR IF MINUS 

sERROR IF CARRY 

;ERROR IF OVERFLOW 
sSEE IF CORRECT RESULT 
;BRANCH IF GOOD 

s;BAD ROL MODE 6 


;CPU ERROR 


3R4=400 

3402-0 

;0=100000 

;##TEST INSTRUCTION 
;ERROR IF MINUS 
sERROR IF NOT ZERO 
sERROR IF NO CARRY 
sERROR IF NO OVERFLOW 
;CHECK RESULT 
;BRANCH IF GOOD 
;BAD ROL MODE 7 


;CPU ERROR 


3R4=400 

3400= 101 300 

3400 SHOULD = 300 101 
sERROR IF MINUS 

sSEE IF EXPECTED RESULT 
;BRANCH IF BAD 

:400=101 300 

s;BRANCH IF GOOD 

sERROR! BAD SWAB MODE 37 


er i rr 


——— 








COKDAEO KDJ11-8 CLUSTER DIAG. 
@eeeeeeeeene DOUBLE OPERAND TESTS aaseceeeasasacees 


3418 
3419 
3420 


012650 
012654 


012716 
012720 


012720 


012720 
012726 
012732 
012734 
012742 


012744 
012746 
012752 
012754 


012756 
012762 
012766 
012770 
012772 
013000 
013002 


013004 
013010 
013014 
013016 
013024 
013026 


012704 
000257 


104001 


012737 


052525 


025252 


000001 


000200 


000001 
012772 


003072 


012736 


003072 
012770 


003972 


003072 
012734 


003072 











MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-49 


003072 


000002 


000001 


000003 


1$: 
MJU2A: 


MJU2B: 


MJ2: 
MJUL: 
3$: 


MJUIA: 


MJU3: 


#52525 ,R4 
R4 
i$ 
#25252 ,R4 
2$ 


+1 


TEST RORB MODE 1 
LR R4 


c 

MOV #1,CR4) 
scc 

RORB CR4) 

Bcc i$ 

BPL i$ 

CMP 200 ,(R4) 
BEQ 2$ 

ERROR ol 

TEST JMP - ALL MODES 
MOV #1,8@SEQ 
MOV @MJUL, Ri 
JMP (R1) 

CMP @eSEQ, 2 
BEG MJU2A 
ERROR +1 

CMP R1, OMJU2+2 
BEQ 

ERROR +1 

INC BeSEQ 
MOV @MJ2 .R1 
JMP aC R1L)- 

. WORD 

CMP @eSEQ, #1 
BEQ MJULA 
ERROR ol 

INC @eSEQ 
MOV oMJU2, Ri 
JMP C(R1i)+ 
CMP Q¢SEQ, #3 
BEQ MJU3A 
ERROR el 


SEQ 0068 


3R4*52525 
:CC #0000 
3R4 SHOULO = 25252 WITH CARRY 
sERROR IF NO CARRY 
;SEE IF R4= EXPECTED 
;BRANCH IF GOOD 
;ROR MODE O FAILED 
;CPU ERROR 


30=000200, NO C 
sERROR IF NO CARRY 
sERROR IF PLUS 
s;CHECK RESULT 
;BRANCH IF GOOD 
;CPU ERROR 
;BAD RESULT 


sSETUP TEST SEQUENCER 
;SET MODE 1 JUMP ADDRESS 
;#JMP MODE 1 
;CHECK FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 
sMODE 2 JUMP FAILED 
;CPU ERROR 
;CHECK FOR AUTO-INCREMENT 
;BRANCH IF GOOD 
;CPU ERROR 
;AUTO-INCR FAILED 
sUPDATE TEST SEQUENCER 
;SETUP MODE 3 JUMP 
;JUMP MODE 3 
INATION 


DET 
; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 
;CPU ERROR 
;JMP OUT OF SEQUENCE 
;UPDATE SEQUENCE 
:SETUP MODE 2 DESTINATION 
; JUMP MODE 2 
; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 
;CPU ERROR 
;JMP OUT OF SEQUENCE 








COKCAEO KDJ11-8 CLUSTER DIAG. 
@eee00000000@ DOUBLE OPERAND TESTS saeeeeaeaceseacene 


3479 013030 


0131i2 
013114 
013120 
013122 


013124 


013160 
013162 


022701 
001401 


023727 
001401 
104001 


005237 
012701 
000161 


000240 
022701 
001401 
104001 


023727 
001401 
104001 


005237 
012701 
000151 


013054 


022737 
001401 
104001 


005237 
012701 
000171 
013204 


000000 
022737 
001401 
104001 


012701 


000040 
012717 
000240 


012772 


003072 
013114 


013150 


003072 


003072 
013145 
000005 


013112 


003072 


003072 
013152 


000006 


003072 
013210 
177770 


000007 


013526 
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000005 


000004 


003072 


003072 


MJUSA: 
5$: 
MJU3B: 


MJUS : 


@MJ2+2,R1 
MJU3B 
+1 


8¢SEQ 
aM JU4+2 ‘ Ri 


(R1> 


@MJ5 ,R1 
MJUSA 
+1 


a 


MJUS 
+1 


8#SEQ 
@MJU6-5,R1 
+5(R1) 


@MJU4 ,R1 
MJU4A 
+1 


BeSEQ, 04 
MJU4 


@eSEQ 
@MJ7+10,R1 
8-10(R1) 
MJU7 


$7 ,84SEQ 
MJU7TE 
+1 


SEQ 0069 


; TEST AUTO-JNCREMENT 
;BRANCH IF GOOD 
;CPU ERROR 
;sAUTO-INCREMENT FAILED MODE 3 
sUPDATE SEQUENCER 
sSETUP DESTINATION MODE 4 
;EXECUTE JUMP MODE 4 


sCHECK AUTO-DECREMENT 
;BRANCH IF GOOD AUTO-DEC 
;CPU ERROR 
;AUTO-DEC FAIELD MODE 5 
; TEST CORRECT SEQUENCE 
s;BRANCH IF GOOD SEQUENCE 
;CPU ERROR 
;JMP OUT OF SEQUENCE 
sUPDATE SEQUENCE COUNT 
;SETUP DESTINATION MODE6 
sJUMP MODE 6 


; TEST AUTO-DECR 
;BRANCH IF GOOD 
;CPU ERROR 


RR 
sMODE 4 AUTO-DEC FAILED 
; TEST FOR CORRECT SEQUENCE 
;BRANCH IF CORRECT SEQUENCE 
;CPU ERROR 
s INCORRECT JMP SEQUENCE 
sUPDATE SEQUENCE 
;SETUP MODE 5S POINTER 
;EXECUTE MODE S UMP 


sPOINTER MODE 5 


sCHECK FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 

:;CPU ERROR 

s; INCORRECT SEQUENCE 
sUPDATE SEQUENCER 
sSETUP INDEX 
sEXECUTE MODE 7 JUMP 
;POINTER FOR MODE 7 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD SEQUENCE 
;CPU ERROR 
; TESTING OUT OF SEQUENCE 


TEST THAT PRE-FETCH BUFFER CAN BE OVER WRITTEN 


MOV 


32. 
MOV 


. WORD 


#128$,R1 


(PC)+, CPC) 
NOP 


;SET UP R1 WITH ADDRESS OF ERROR 
;ROUTINE 


;WRITE THE NOP OVER THE JMP INSTRUCTION 
sNOP INSTRUCTION 


‘ ——— ee ne 
PO 





COKDAEO KOJ11-B8 CLUSTER DIAG. 








seeeeeeee06 DOUBLE OPERAND TESTS seeeeteeeeeaeecce 


30008$: 


300093: . 


30010$: 


30011$: . 
MO 
300123: . 
MO 
30013$: . 
MO 
360145: . 
MO 
30015$: . 
MO 
30016$: . 
30017$: . 
MO 
300183: . 
300193: . 
MO 
30020$: . 
MO 
30021$: . 
MO 


300223: . 


300235: 


30024$: 


300255: . 
MO 


300263: . 
MO 


. WORD 
MO 





111 
CPC)+, (PC) 
NOP 
111 
NOP 
111 
(PC)+, CPC) 
NOP 
111 
CPC)+, CPC) 
NOP 
111 
(PC)+, CPC) 
NOP 
111 
CPC)+, CPC) 
NOP 
111 
CPC)+, (PC) 
NOP 
111 
C(PC)+, (PC) 
NOP 
111 
CPC)+, CPC) 
NOP 
i111 
CPC)+, CPC) 
NOP 
111 
(PC)+, (PC) 
NOP 
111 
CPC)+, (PC) 
NOP 
111 
CPC)+, (PC) 
NOP 
111 
CPC)+, (PC) 
NOP 
111 
CPC)+, CPC) 
NOP 
111 
(PC)+, CPC) 
NOP 
111 
NOP 
111 
(PC)+, (PC) 
NOP 


111 
(PC)+, (PC) 
NOP 


i seeerseseirmaetapnnsaarrggbsovvanainescesbsnsosasinssinsnesonesnsnins 
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; JMP (R1) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP (Ri) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP (Ri) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP Ri) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP (R1) 

:WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP C(R1) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP (Ri) 

;sWRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1) 

:WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1i) 

:WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1i) 

:WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1i) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1) 

;sWRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1) 

;WRITE THE NOP OVER 
:NOP INSTRUCTION 

; JMP CR1i) 

;WRITE THE NOP OVER 
:NOP INSTRUCTION 

; JMP CR1i) 

;sWRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1i) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 

; JMP CR1L) 

;WRITE THE NOP OVER 
;NOP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 


JMP INSTRUCTION 





SEQ 0070 








COKDAEO KOJ11-B CLUSTER DIAG. 
eeeeeeeeees DOUBLE OPERAND TESTS seatesesacecacace 


104001 


012702 


077205 


012737 
000117 


013530 


000040 
013216 
000910 
000111 
000006 


000000 003072 


300273: 


300283: . 
300298: . 
30030$: . 
30031$: . 
30032$: . 
30033$: . 
300348: . 
30035$: . 
30036$: . 
30037$: . 


30038$: . 


30039$: 
128$: 


MUP: 
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SEQ 0071 

-WORD 111 ; JMP (R1) 
MOV CPC)+, CPC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD 111 ; JMP Ri) 
MOV CPC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP s;NOP INSTRUCTION 

WORD i111 ; JMP (R1) 
MOV (PC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD 111 ; JMP (R1) 
MOV (PC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD 111 ; JMP R1) 
MOV CPC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD 111 ; JMP C(R1) 
MOV (PC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD iil ; JMP (R1) 
MOV CPC)+, (PC) ;sWRITE THE NOP OVER THE JMP INSTRUCTION 
-WORD NOP :;NOP INSTRUCTION 

WORD 111 ; JMP (Ri) 
MOV (PC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD i111 ; JMP (Ri) 
MOV (PC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
-WORD NOP sNOP INSTRUCTION 

WORD ill ; JMP (R1) 

MOV CPC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTION 

WORD iil ; IMP (Ri) 

MOV (PC)+, (PC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
WORD NOP sNOP INSTRUCTIGN 

WORD i111 ; JMP (Ri) 

MOV (PC)+, CPC) sWRITE THE NOP OVER THE JMP INSTRUCTION 
-WORD NOP sNOP INSTRUCTION 

-WORD 111 ; JMP Ri) 

JMP 9¢129$ ;JUMP OVER ERROR CALL 

sERROR! PRE-FETCH BUFFER WAS NOT 
;OVER WRITTEN 
ERROR +1 ;CPU ERROR 


NOW RESTORE THE OVER WRITTEN JMP INSTRUCTIONS FOR THE NEXT PASS. 
MOV #32. ,R2 :SET UP R2 AS COUNTER 


MOV #MJUTE .RS ;SET UP R3 AS POINTER. $$$ 
ADD #10,R sADD OFFSET TO POINT TO ist. JMP IN TABLE. $$$ 
MOV #111,CR3) sRESTORE OVER WRITTEN JUMPS 

#6 .RS sPOINT TO NEXT OVER WRITTEN ADDR. 


ADD ’ 
SOB R2,130$ 300 UNTIL R2=0 


TEST JMP MODES 17,27,37,67,77 
MOV #0 , 84SEQ 
JMP (R7) 


;SETUP TEST SEQUNCER 
sJUMP MODE 17(SHOULD BE IN-LINE) 








COKDAEO KDJ11-B CLUSTER DIAG. 
e¢e2000¢¢004 DOUBLE OPERAND TESTS see0600440440446% 


3568 
3569 013566 


3570 
3571 


013572 


013574 
013576 
013602 


6 
013606 


013706 


3606 013712 


3626 


’ TT 


013716 


013716 


013716 


013754 


005737 
001401 


013662 


023727 
001412 
104001 


023727 
001401 
104001 


005237 
000167 


003072 


003072 
000401 


003072 


003072 
013674 
003072 


003072 


000002 


003072 


003072 


003072 
177714 


000002 








TT 
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000001 


000003 


000004 


000002 


003076 
003072 


003072 


° 
MJP17: 


i$: 
2s: 


MUP27: 


MJP27A: 


MJP67: 
2s: 


MJP67A: 


; 
MJSR2: 


TST 
BEQ 


ERROR 


INC 
JMP 


HALT 


8SEQ 
2$ 


+1 
8¢SEQ 
$401 


OeSEQ, #1 
MJP27A 


TEST ae MODES 


MOV 6,88SPS 
MOV R6 ,B¢SPSJ 
SUB 2 ,80SPSJ 
MOV #1,80SEQ 
MOV #MJSR1,R1 
CLR R4 

COM R4 

JSR R4,(R1) 
CMP #2 ,8@SEQ 


SEQ 0072 


;CHECK SEQUENCE 
;BRANCH IF GOOD 
;ERROR! BAD JUMP 
;CPU ERROR 
sUPDATE SEQUENCE NUMBER 
sJUMP MODE 27 
;( THE #401=BR UPDATED PC+2) 


;CHECK IF CORRECT SEQUENCE 
;BRANCH IF IN SEQUENCE 
;CPU ERROR 
; TEST OUT OF SEQUENCE 
sUPDATE SEQUENCER 
sJUMP MODE 37 
;CHECK FOR CORRECT SEQUENCE 
) ;BRANCH IF IN SEQUENCE 
;CPU ERROR 
; TEST OUT OF SEQUENCE 
sUPDATE SEQUENCER 
sINSURE ZBIT=0 
;JUMP MODE 7 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF IN SEQUENCE 

;CPU ERROR 

; TEST OUT OF SEQUENCE 
; TEST FOR CORRECT SEQUENCE 
;BRANCH IF IN SEQUENCE 


QUENCE 
;UPDATE SEQUENCER 
;JUMP MODE 6 


sSAVE STACK POINTER LOCATION 
; 

;SPSJ = R6 AFTER DECRIMENT 
sSETUP SEQUENCE COUNTER 
sSETUP INITIAL JUMP IN MODE 1 


; 
:R4=-1 TO BE SAVED ON STACK 
;JSR MODE 1 


; TEST FOR CORRECT SEQUENCE 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
eeeecececece DOUBLE OPERAND TESTS seeeeeeeaeeeeseese 


-— 


014110 
014114 


014116 


3666 014124 


014126 


014130 
014134 
014136 
014142 
014144 
014150 


014152 
6 


014154 
014160 
014164 


3680 014170 


014174 
014176 
014200 


003076 
125252 
014116 


000001 


003076 
177777 
013754 


003072 
003074 
125252 
013754 


000004 


003076 
052525 
014264 


003072 
003074 
000377 
014202 
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003072 


003072 


5$: 


MJSR2A: 


6$: 


MJSR2B : 


MJSRA: 
MUSRL: 
7$: 


MJSR1A: CMP 


MJSR1B : 


10$: 


MJSR4B : 


MJSRB: 


HALT 
. WORD 


MJSR2A 

+1 
_— 
+ [rca 
aM JSR4 ,R4 
MJSR2B 

+1 

OeSEQ 
OeSPS,R6 
@MJSRA,R1 
R4 
R4,8C(R1)+ 
MJSR3 

#1 ,8@SEQ 
MJSR1A 

+1 
BeSPSJ,R6 
8$ 
CR6),@-1 
8$ 

@MJSR2 ,R4 
MJSR1iB 


@MJISR2 Ri 
R4,CR1)+ 


#4, 8eSEQ 
MJSR4A 

+1 
BeSPSJ.RE 
10$ 
CR6) , 052525 
10$ 

@MJSRE ,R4- 
MJSR4B 

- . 

@4SEQ 

BOSPS ,R6 
$377 ,R4 
@MJISRB +2 ,R1 
R4,8-C(R1) 


MJSR5 





;BRANCH IF GOOD 

;CPU ERROR 

sMODE 2 JUMPED TO OUT OF SEQUENCE 
sVERIFY STACK DECRIMENT 
sBRANCH IF STACK INCORRECT 
;VERIFY CONTENTS OF STACK 
;BRANCH IF DATA ON STACK INCORRECT 
sSEE IF CORRECT RETURN ADDRESS 
;BRANCH IF GOOD 

;CPU ERROR 

JSR MODE 2 FAILED 
sUPDATE SEQUENCE COUNTER 
sRELOAD STACK POINTER 
sSETUP JSR MODE 3 
sDIFFERENT DATA TO R4 
sJSR MODE 3 


;sLITERAL FOR JUMP MODE 3 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 
;CPU ERROR 
;MODE 1 JUMPED TO OUT OF SEQUENCE 
;VERIFY STACK DECRIMENT 
;BRANCH IF STACK INCORRECT 
;VERIFY CONTENT OF STACK 
;BRANCH IF DATA ON STACK INCORRECT 
;SEE IF CORRECT RETURN ADDRESS 
;BRANCH IF GOOD 
;CPU ERROR 
;JSR MODE 2 FAILED 
sUPDATE SEQUENCE COUNTER 
:RELOAD STACK POINTER 
;SETUP R4 DATA 
:SETUP MODE 2 JUMP ADDRESS 
;*JUMP MODE 2 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 

;CPU ERROR 

sMODE 4 JUMPED TO OUT OF SEQUENCE 
;VERIFY STACK DECRIMENT 
;BRANCH IF STACK INCORRECT 
;VERIFY CONTENTS OF STAACK 
;BRANCH IF DATA ON STACK INCORRECT 
;SEE IF CORRECT RETURN ADDRESS 
;BRANCH IF GOOD 

;CPU ERROR 

;JSR MODE 4 FAILED 
;sUPDATE SEQUENCE COUNTER 
;sRELOAD STACK POINTER 
;SETUP R4 DATA 
;SETUP JSR VECTOR 
;JSR MODE 5 


sMODE S VECTOR 





SEQ 0073 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
eeeeeeseeees DOUBLE OPERAND TESTS eaeecasacaascacee 


—— 


014202 
014210 
014212 


014214 


014264 
014272 
014274 


014276 
014302 
014304 
014310 
014312 
014316 
014320 


014322 


014412 
014416 


rod 


‘ 
000003 003072 MUJSR3: 


003076 
000000 


000006 


177770 


000005 


003976 
000377 
014176 


003072 
003074 
123456 





003072 


003072 


11$: 


MJSR3A: 


14$: 


3 

; 
MJSRS: 
15$: 


MJSRSA: 


16$: 


MJSRSB : 


a ee A 
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#3 ,AeSEQ 
MJSR3A 

+1 
BOSPSJ,R6 
12$ 


CR6),#0 
le$ 


@MJSR4 +2, Ri 
R4,-C(R1) 

06 ,8eSEQ 
MJSR6A 

+1 

> ai R6 
(A) ,0123456 


@MJSRC+10,R1 
R4,8-10(R1) 
MJSR7 


#5 ,8e@SEQ 
MJSR5SA 

+1 
BeSPSJ,R6 
16% 

(R6), 0377 
16$ 
#MJSRB -2 P R4 
MJSR5SB 

+1 

8¢SEQ 


9¢SPS,R6 
#123456 ,R4 





SEQ 0074 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 

;CPU ERROR 

sMODE 3 JUMPED TO OUT OF SEQUENCE 
;VERIFY STACK DECRIMENT 
;BRANCH IF STACK INCORRECT 
;sVERIFY CONTENTS OF STAACK 
;BRANCH IF DATA ON STACK INCORRECT 
;SEE IF CORRECT RETURN ADDRESS 
sBRANCH IF GOOD 

;CPU ERROR 

;JSR MODE 3 FAILED 
;UPDATE SEQUENCE COUNTE 
sRELOAD STACK POINTER 
;SETUP R4 DATA 
;SETUP JSR VECTOR 
;CLEAR CONDITION CODES 

:JSR MODE 4 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 
;CPU ERROR 
sMODE 6 JUMPED TO OUT OF SEQUENCE 
sVERIFY STACK DECRIMENT 
sBRANCH IF STACK INCORRECT 
;sVERIFY CONTENTS OF STACK 
s;BRANCH IF DATA ON STACK INCORRECT 
;SEE IF 7 ane RETURN ADDRESS 


$ 
;CPU ERROR 
;JSR MODE 6 FAILED 

sUPDATE SEQUENCE COUNTER 


sSETUP JSR VECTOR 
:JSR MODE 7 
;JSR VECTOR 


; TEST FOR CORRECT SEQUENCE 
;BRANCH IF GOOD 
;CPU ERROR 
;MODE 5S JUMPED TO OUT OF SEQUENCE 
;VERIFY STACK DECRIMENT 
;BRANCH IF STACK INCORRECT 
;VERIFY CONTENTS OF STACK 
;BRANCH IF DATA ON STACK INCORRECT 
;SEE IF CORRECT RETURN ADDRESS 
;BRANCH IF GOOD 
;CPU ERROR 
:JSR MODE 5 FAILED 
;UPDATE SEQUENCE COUNTER 
;RELOAD STACK POINTER 
;SETUP DATA IN R4 











COKDAEO KDJ11-8 CLUSTER DIAG. MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-56 


SEQ 0075 
eeeeeeeeeese DOUBLE OPERAND TESTS seeeeeseseeseecas 
3741 014422 012701 014274 MOV @MJSR6+10,R1 ;SETUP JSR VECTOR 
3742 014426 004461 177770 JSR R4,-10(R1) ;JUMP MODE 6 
3743 ; 
3744 ; 
3745 014432 022737 000007 003072 MJSR7: CMP #7 ,8¢SEQ ; TEST FOR CORRECT SEQUENCE 
3746 014440 001401 BEQ MJSR7A ;BRANCH IF GOOD 
3747 014442 104001 17$: ERROR +1 ;CPU ERROR 
3748 ;MODE 7 JUMPED TO OUT OF SEQUENCE 
3749 014444 023706 003076 MJSR7A: CMP ia R6 sVERIFY STACK DECRIMENT 
3750 014450 001006 BNE ;BRANCH IF STACK INCORRECT 
3751 014452 021627 177773 CMP (Re), $-5 ;VERIFY CONTENTS OF STAACK 
3752 014456 001003 BNE 18$ ;BRANCH IF DATA ON STACK INCORRECT 
3753 014460 022704 014346 CMP @MJSR5-2,R4 ;SEE IF CORRECT RETURN ADDRESS 
3754 014464 001401 BEQ MJSR7E ;BRANCH IF GOOD 
3755 014466 104001 18$: ERROR +1 ;CPU ERROR 
3756 ;JSR MODE 7 FAILED 
3757 014470 MUSRT7E : i 
de 014470 013706 003074 MOV BeSPS,R6 ;REPLACE STACK 
3760 i - 
3763 014474 MJRA: 
3764 
3765 ; TEST JSR MODES 27, 37, 67, 77 
3766 014474 012737 000001 003072 MOV $1 ,80SEQ ;SETUP SEQUENCER 
3767 014502 010637 003074 MOV R6 , SPS ;SAVE STACK ADDRESS 
3768 014506 010637 003076 MOV R6 ,@OSPSJ ;SAVE STACK DECRIMENT ADDRESS 
3769 014512 162737 000002 003076 SUB #2 ,80SPSJ ; 
3770 014520 012704 177777 MOV @-1,R4 sSETUP R4 DATA 
Z idk, 014524 004427 000240 JSR R4 , #240 sEXECUTE A JSR MODE 27 

; 
3773 014530 022737 000001 003072 MJR27: CMP #1 ,88SEQ sVERIFY COERRECT TEST SEQUENCE 
3774 014536 001011 BNE i$ sINCORRECT TEST SEQUENCE 
3775 014540 023706 003076 CMP BeSPSJ RE ;VERIFY STACK POINTER 
3776 014544 001006 BNE 1$ 
3777 014546 021627 177777 CMP CR6),@-1 ;VERIFY R4 GOT LOADED ON THE STACK 
3778 014552 001003 BNE i$ ;BRANCH IF INCORRECT STACK CONTENTS 
3779 014554 020427 014530 CMP R4, @MJR27 ;VERIFY CORRECT RETURN ADDRESS 
3780 014560 001401 BEQ MJR27A s;BRANCH IF GOOD RETURN ADDRESS ON STACK 
3781 014562 104001 1$: ERROR +1 ;CPU ERROR 
3782 sMODE 27 FAILED 
3783 014564 005237 003072 MJR27A: INC 8éSEQ ;UPDATE SEQUENCER 
3784 014570 012704 152525 MOV $152525,R4 ;SETUP R4 TEST DATA 
3785 014574 013706 003074 MOV BESPS ,R6 ;RESET STACK POINTER 
3786 014600 004437 014666 JSR R4, GOMIR3S7 :JSR MODE 37 
Le 014604 000000 MJR27B: HALT 

; 
3789 014606 023727 003972 000003 MJRE7: CMP SeSEQ, o3 ;VERIFY TEST SEQUENCE 
3790 014614 001011 BNE 2$ ;INCORRECT TEST SEQUENCE 
3791 014616 023706 003076 CMP @OSPSJ,R6 sVERIFY STACK DECRIMENT 
3792 014622 001006 BNE 2$ s INCORRECT STACK DECRIMENT 
3793 914624 021627 000125 CMP (R6),¢125 ;VERFIFY STACK WAS LOADED 
3794 614630 001003 BNE 2s 
3795 014632 020427 014742 CMP R4 , OMJIR77 ;VERIFY RETURN ADDRESS 
3796 014636 001401 MJR67A ;BRANCH IF GOOD 
3797 014640 104001 2$: ERROR +1 ;CPU ERROR 
3798 sMODE 67 FAILED 
3799 014642 005237 003072 MJR67A: INC @¢SEQ sUPDATE SEQUENCER 
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eeceececeoesoe® DOUBLE OPERAND TESTS seeeceatesesecetes 
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014742 
014750 
014752 
014756 
014760 
014764 
014766 
014772 
014774 


014776 
014776 


38 015002 


013706 
012704 
004477 
000000 


014742 


003072 
003076 
152525 
014604 


003072 
003074 
000125 
177644 
003072 
003076 
000001 


014662 


003074 


015046 
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000002 


000004 


MJRGA: 
MJR6B : 


MJR37: 


2$: 
MJR37A: 


+ 
MJR77: 


RTS1: 


RTS6: 





SEQ 0076 


MOV BOSPS,R6 ‘RESET STACK 
MOV 1,R4 sSETUP R4 DATA 
oi R4 , BMJR6B ;JSR MODE 77 
-WORD MJR77 sDATA FOR MODE 77 JUMP 
CMP OGSEQ, #2 ;VERIFY TEST SEQUENCE 
BNE 2$ s INCORRECT TEST SEQUENCE 
CMP BOSPSJ,R6 sVERIFY STACK DECRIMENT 
BNE 2$ sINCORRECT STACK DECRIMENT 
a ae ;VERFIFY STACK WAS LOADED 
CMP R4 , @MJR27B ;VERIFY RETURN ADDRESS 
BEQ MJR37A ;BRANCH IF GOOD 
ERROR +1 s;CPU ERROR 

sMODE 37 FAILED 
INC 8¢SEQ sUPDATE SEQUENCER 
MOV BOSPS ,R6 sRELOAD STACK 
MOV #125 ,R4 sSETUP R4 TEST DATA 
JSR R4 ,MJR67 sJSR MODE 6 
CMP BOSEQ, 04 ;sVERIFY TEST SEQUENCE 
BNE 2$ sINCORRECT TEST SEQUENCE 
CMP BOSPSJ,R6 sVERIFY STACK DECRIMENT 
BNE 2$ sINCORRECT STACK DECRIMENT 
aes sVERFIFY STACK WAS LOADED 
CMP R4, @MJREA ;VERIFY RETURN ADDRESS 
BEQ MJR77A ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 

sMODE 77 FAILED 
MOV BOSPS,R6 sRESET STACK 


TEST RTS AND RTS R6 
Vv #STBOT ,R6 


MO . sINSURE VALID STACK 
MOV #123456, -C(R6) sSETUP TEST REGISTER 
MOV ORTS1.RS sSETUP TEST PC 
RTS R3 ;##TEST INSTRUCTION 
ERROR +1 ;CPU ERROR 

s INCORRECT PC ON RTS 
CMP #123456 ,R3 
BEQ RTS6 ;BRANCH IF GOOD 
ERROR +1 


;CPU ERROR 

s;sREGISTER CONTENTS INCORRECT 
; 

;THIS TEST CHECKS AN UN-TESTED PLA TERM 


MOV R6,R1 sSAVE STACK IN Ri 

MOV #13,R5 sMOVE EXPECTED RETURN ADDR TO RS 
MOV RS ,R6 sMOVE RETURN ADDR TO R6 

RTS R6 : 

ERROR +1 ;CPU ERROR 











— 
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-— 





SEQ 0077 

eeeeceeesesee DOUBLE OPERAND TESTS se4e0000640600406 

3859 ;ERROR! RTS NOT EXECUTED 

3860 015046 021506 1$: CMP CRS) ,R6 ;IS R6=315067 

3861 015050 001401 BEQ RTSE ;IF IT IS THEN GO TO END OF TEST 

3862 015052 104001 ERROR +1 ;CPU ERROR 

3863 sERROR! WRONG ADDR IN R6 

aoe 015054 010106 RTSE: MOV R1,R6 ;RESTORE STACK 

3868 015056 TSMMUO : 

3869 : SETUP AND TEST KERNEL, SUPERVISOR AND USER STACKS 

3870 015056 012737 040000 177776 MOV #40000 , 841 77776 ;SET PS TO SUP MODE 

3871 015064 012706 177777 MOV #177777,R6 SINIT SUP STACK TO ALL ONES 

2872 015070 022706 177777 CMP #177777, R6 ;ARE ALL BITS SET 

3873 015074 001401 BEQ i$ 1YES GO ON 

3874 ;NO GO TO ERROR 

3875 015076 104001 ERROR +1 ;CPU ERROR 

3876 015100 005006 1$: CLR R6 ;SET SUP STACK TO ALL ZEROES 

3877 015102 022706 000000 CMP 00 ,R6 ;ARE ALL BITS CLEARED 

3878 015106 001401 BEQ 2$ ;YES GO ON 

3879 :NO GO TO ERROR 

3880 015110 104001 ERROR +1 ;CPU ERR 

3881 015112 012706 125252 2s: V #125252 ,R6 ;SET SUP STACK id ALTERNATING PATTERN 

3882 015116 022706 125252 CMP #125252,R6 ;IS SUP SP 

3883 015122 001401 BEQ 3$ ;YES GO 

3884 ;NO GO TO ERROR 

3885 015124 104001 ERROR +1 ;CPU ERROR 

3886 015126 012706 052525 3$ MOV #52525 .R6 ;SET SUP STACK TO ALTERNATING PATTERN 

3887 015132 022706 152525 CMP #52525 ,R6 :IS SUP SP CORRECT 

3888 015136 001401 BEQ 4$ ;YES GO ON 

3889 ;NO GO TO ERROR 

3890 015140 104001 ERROR +1 ;CPU ERROR 

3891 015142 012706 000700 4$: MOV $700 ,.R6 ;SETUP SUP SP 

3892 015146 012737 140000 177776 MOV #140000 , 80177776 ;SET PS TO USER MODE 

3893 015154 012706 177777 MOV #177777,R6 :INIT USER STACK TO ALL ONES 

3894 015160 022706 177777 CMP 0177777 ,R6 ;ARE ALL BITS SET 

3895 015164 001401 BEQ 5$ ;YES GO ON 

3896 ;NO GO TO ERROR 

3897 015166 104001 ERROR +1 ;CPU ERROR 

3898 015170 005006 5$: CLR ;SET USER STACK TO ALL ZEROES 

3899 015172 022706 000000 CMP 00 ,R6 ;ARE ALL BITS CLEARED 

3900 015176 001401 BEQ 6$ :YES GO ON 

3901 :NO GO TO ERROR 

3902 015200 104001 ERROR i ;CPU ERR 

3903 015202 012706 125252 6$: MOV $125252,R6 ;SET USER STACK TO ALTERNATING PATTERN 

3904 015206 022706 125252 CMP 6125252 ,R6 :IS USER SP CORRECT 

3905 015212 001401 BEQ 7$ ;YES GO ON 

3906 | ;NO GO TO ERROR 

3907 015214 104001 ERROR +1 ;CPU ERROR 

3908 015216 012706 052525 7$: MOV #52525 .R6 ;SET USER STACK TO ALTERNATING PATTERN 

3909 015222 022706 052525 CMP #52525 .R6 :IS USER SP CORRECT 

3910 015226 001401 BEQ 8$ ;YES GO ON 

3911 ;NO GO TO ERROR 

3912 015230 104001 ERROR +1 ;CPU ERROR 

3913 015232 012706 000600 8$: MOV $600 ,R6 :SETUP USER SP 

3914 015236 005037 177776 CLR 86177776 ;SET PS TO KER MODE 

3915 015242 012706 001000 MOV @STBOT ,R6 ;SETUP KERNEL SP 

3916 015246 005037 000700 CLR 96700 ;CLEAR FIRST WORDS OF SUP, KER, AND USE STACKS 

3917 015252 005037 000600 CLR 8¢600 ; 
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3918 015256 005037 001000 CLR @eSTBOT ; 
3919 015262 004767 000054 JSR PC ,CHECK ; TEST KER, SUP, AND USE STACKS 
3920 015266 012737 040000 177776 RET1: MOV #40000 ,80177776 sSET PSW TO SUP MODE 
3921 015274 022706 000700 CMP #700 ,R6 sIS SUP SP CORRECT 
3922 015300 001401 BEQ i$ _ $YES GO ON 
3923 ;NO GO TO ERROR 
3924 015302 104001 ERROR +1 ;CPU ERROR 
3925 015304 012737 140000 177776 1%: MOV #140000, 80177776 sSET PSW TO USE MODE 
3926 015312 022706 000600 CMP #600 ,R6 sIS USE SP CORRECT 
3927 015316 001401 BEQ 2$ sYES GO ON 
3928 sNO GO TO ERROR 
3929 015320 104001 ERROR +1 ;CPU ERROR 
3930 015322 005037 177776 23: CLR 80177776 s;SET PSW TO KER MODE 
3931 015326 022706 001000 CMP @STEIT .R6 sIS KER SP CORRECT 
3932 015332 001401 BEQ 3$ sYES GO ON 
3933 s3NO GO TO ERROR 
3934 015334 10400: ERROR +1 s;CPU ERROR 
3935 015336 3$: 
coat 015336 000167 000206 JMP MTSO 

i 
te sROUTINE TO CHECK STACKS AFTER TWO RTS STATEMENTS 

i 
3940 015342 012737 040000 177776 CHECK: MOV #40000 ,80177776 s;SET PSW TO SUP MODE 
3941 015350 004767 000044 JSR PC ,CHECK1 ; TEST SUP, KER, AND USE STACKS 
3942 015354 022716 000000 RET2: CMP #0 CSP) :3IS SUP STACK CLEARED 
3943 015360 001401 EQ i$ ;YES GO ON 
3 ;3NO GO TO ERROR 
3945 015362 104001 ERROR el ; RR 
3946 015364 012737 140000 177776 i$: MOV #140000 , 80177776 sSET PSW TO USE MODE 
3947 015372 022716 900000 CMP #0, (SP) sIS USE STACK CLEARED 
3948 015376 001401 BEQ 2% sYES GO ON 
3949 NO GO TO ERROR 
3950 015400 104001 ERROR +1 s;CPU ERROR 
3951 015402 005037 177776 23: CLR 90177776 ;SET PSW TO KER MODE 
3952 015406 022716 015266 @RET1, CSP) ;D0ES KER STACK HAVE CORRECT DATA 
3953 015412 001401 BEQ 3$ ;YES GO ON 

;3NO GO TO ERROR 

3955 015414 104001 ERROR +1 ;CPU ERROR 
cone 015416 000207 3$: RTS PC sRETURN 

; 
oes sROUTINE TO CHECK STACKS AFTER ONE RTS 

i 
3960 015420 012737 140000 177776 CHECKi: MOV 9140000 , 0177776 sSET PSW TO USE MODE 
3961 015426 004767 000044 JSR PC ,CHECK2 ; TEST KER, SUP, AND USE STACKS 
3962 015432 022716 000000 RETS: CMP 00,(SP) sIS USE STACK CLEARED 
3963 015436 001401 BEQ i$ sYES GO ON 
3 3NO GO TO ERROR 
3965 015440 104001 ERROR +1 sCPU ERROR 
3966 015442 005037 177776 18: CLR 90177776 ;SET PSW TO KER MODE 
3967 O01 022716 015266 CMP @RET1, CSP) isIS KER STACK CORRECT 
3968 015452 001401 BEQ 2s YES GO ON 
3969 3NO GO TO ERROR 
3970 015454 104001 ERROR 1 OR 
3971 015456 012737 040000 177776 23%: MOV #40000,80177776 sSET PSW TO SUP MODE 
3972 015464 022716 015354 CMP @RET2, (SP) sIS SUP STACK CORRECT 
3973 015470 001401 BEQ 3$ sYES GO ON 
3974 sNO GO TO ERROR 


om 








SEQ 0078 
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3975 
3976 
3977 


015472 
015474 


015572 


104001 
000207 


022716 
001401 


005004 
005104 
000277 
000244 
032704 
100403 
102402 


015432 


040000 
015354 


177776 
015266 


140000 


000000 


100000 


000000 
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177776 


177776 


;CPU 


sCPU ERROR 


sRETURN 


sIS USE STACK CORRECT 
sYES GO ON 
sNO GO TO ERROR 


sSET PSW TO SUP MODE 
31S SUP STACK CORRECT 


sYES GO ON 
sNO GO TO ERROR 


;CPU ERROR 


sSET PSW TO KER MODE 
IS KER _— CORRECT 


sYES GO 
= GO TO ERROR 


;SET PSW TO USE MODE 
sRETURN 


; 
:CC=1011 
;CC=0101, R4=0 
sERROR IF N FLAG 
sERROR IF V FLAG SET 
sERROR IF C FLAG CLEAR 
;SKIP IF Z FLAG SET 
;CC SHOULD=0101 

;CPU ERROR 


;CC=0110 


sEXIT IF N SET 
;CPU ERROR 
:CC SHOULD= 1000 


ERROR +1 
3$: RTS PC 
: 
sROUTINE TO CHECK STACKS AFTER ZERO RTS 
: , 
CHECK2: CMP @RET3, (SP) 
BEQ i$ 
ERROR +1 ; 
1$: MOV #40000 ,80177776 
CMP ORET2, (SP) 
BEQ 2s 
ERROR +1 
2s: CLR 80177776 
CMP @RET1, (SP) 
BEQ 3$ 
ERROR +1 
3$: MOV #140000, 86177776 
RTS PC 
MTSO: 
MMVCC: 
; TEST MOV CONDITION CODES - #s0- 
scc 
CLZ 
MOV $0 ,R4 
BMI is 
BYS is 
Bcc i$ 
BEQ 23 
1$: ERROR ei 
2s: scc 
-WORD 251 
MOV #100000, R4 
BEG 33 
BVS 3$ 
BCS 3$ 
BMI 4$ 
3$: ERROR +1 
4$: 
MBTCC: 


R4 


TEST BIT CONDITION CODES - #40- 
CLR R4 


3;R4=-1 


: 
;CC=1011 

;CC=0101 

;ERROR IF N FLAG 
sERROR IF V FLAG SET 


SEQ 0079 


- 
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103001 
001401 
104001 


000277 
000251 
032704 
001403 
102402 
103401 
100401 
104001 


104001 


100000 


177777 


077777 


000000 











MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-61 


1$; 
2s: 


3$: 
4$: 


1$: 
2s: 


3$: 


4$: 


1$: 
2$: 


BCC i$ 
BEQ 2s 
ERROR +1 
scc 

-WORD 251 
BIT #100000,R4 
BEQ 3$ 
BVS 3$ 
BCS 3$ 
BMI 4$ 
ERROR +1 


TEST BIC CONDITION CODES 
CLR R4 


COM R4 
Scc 
CLZ 
BIC 0177777 ,R4 
BMI is 
BVS is 
BCC i$ 
BEQ 23 
ERROR +1 
COM R4 
scc 
. WOR 1 
BIC 877777 ,R4 
BEQ $ 
BVS 3$ 
S 3$ 
I 4¢ 
ERROR +1 


CLR 

scc 

-WORD 246 
BIS #0 ,R4 
BMI i$ 
BVS i$ 
BCC Le 
BEQ 2$ 
ERROR +1 
Scc 


sERROR IF C FLAG CLEAR 
;SKIP IF Z FLAG SET 
;CPU ERROR 
:CC SHOULD=0101 


:CC#0110 


s;CPU ERROR 
sCC SHOULD= 1000 


- #£240- 
3R4=-1 
5 
;CC=1011 
:CC=0101 
sERROR IF N FLAG 
sERROR IF V FLAG SET 
sERROR IF C FLAG CLEAR 
;SKIP IF Z FLAG SET 
;CPU ERROR 
:CC SHOULD=0101 
;R4=-1 
;CC=0110 
;CC=1000 
sERROR IF Z SET 
sERROR IF V SET 
sERROR IF C SET 
sEXIT IF N SET 
;CPU ERROR 


:CC=1000 
sERROR IF Z SET 


;EXIT IF N SET 


CC SHOULD= 1000 


3R4=0 


;CC=1001 


;ERROR IF C CLEAR 
;BRANCH IF GOOD 


;CPU ERROR 


;BIS CC 


FAILED 





SEQ 0080 
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SEQ 0081 


4097 015764 000241 cLC :CC#1110 

4098 015766 052704 100076 BIS #100076, R4 3R4*100076, CC=1000 
4099 015772 001403 BEQ 3$ sERROR IF Z SET 
4100 015774 102402 BVS 3$ sERROR IF V SET 
4101 015776 103401 Bcs 3$ sERROR IF C SET 
4102 016000 100401 BMI 4$ sBRANCH IF GOOD 
4103 016002 104001 3$: ERROR ol ;CPU ERROR 
4104 ;BAD BIS CC 
4105 016004 4$ 
4106 
4107 
aaia 016004 MOCCC: 
4112 : TEST DEC. INC CONDITION CODES 
4113 016004 012704 077777 MOV #77777 ,R4 3R4277777 
4114 016010 000257 ccc 
4115 016012 000261 SEC ;CC=0001 
4116 016014 005204 INC R4 3R4=100000, CC=0011 
4117 016016 001403 BEQ i$ sERROR IF ZERO 
4118 016020 100002 BPL i$ sERROR IF POSITIVE 
4119 016022 102001 BYC is sERROR IF V CLEAR 
4120 016024 103401 BcS 2s ;BRANCH IF GOOD 
4121 016026 104001 1$: ERROR el ;CPU ERROR 
4122 ;INC FAILED 
4123 016030 000257 2s: ccc 
4124 016032 005204 INC R4 #R4=100001, CC=1000 
4125 016034 103413 BCS 3$ sERROR IF C SET 
4126 016036 102412 BVS 3$ sERROR IF V SET 
4127 016040 DEC R4 :R4=100000, CC=1000 
4128 016042 102410 BYVS 3$ sERROR IF V SET 
4129 016044 103407 Bcs 3$ sERROR IF C SET 
4130 016046 000277 scc : 
4131 016050 000252 -WORD 252 :CC=0101 
4132 016052 005304 DEC RS 3R4277777, CC=1011 
4133 016054 001403 BEQ 3$ sERROR IF Z SET 
4134 016056 102002 BVC 3$ ;ERROR IF V CLEAR 
4135 016060 103001 BCC 3$ sERROR IF C CLEAR 
4136 016062 100001 BPL 4$ ;BRANCH IF GOOD 
4137 016064 104001 3$: ERROR +1 ;CPU ERROR 
4138 ;BAD CC 
4139 016066 4$: 
4140 
4141 
pees 016066 MCTSCC: 

1 
4153 : TEST CLR, TST, SWAB CONDITION CODES 
4154 5 PRR eS KREEEKEEEDED DODDS EDDKERDERES EE OEDD 4244 00000000080000004 

70100 - #400 - #200 

4155 016066 000277 scc 
4156 016070 000244 CLZ ;CC=1011 
4157 016072 005004 CLR R4 7R4=0, CC=0100 
4158 016074 100403 BMI i$ ;ERROR IF MINUS 
4159 016076 102402 BVS i$ ;ERROR IF V SET 
4160 016100 103401 BCS i$ ;ERROR IF C SET 
4161 016102 001401 BEQ 2$ ;BRANCH IF GOOD 
4162 016104 104001 i$: ERROR ol ;CPU ERROR 

4163 ;BAD CC ON CLR 


SE TRS Rr 





COKDAEO KOJ11-B8 CLUSTER DIAG. 
eeeeseeecese DOUBLE OPERAND TESTS eeaceceaeaeaeceeee 


4164 
4165 


016166 


016170 
016172 


012704 
pon he 


012704 


077777 
000001 


177777 


2s: 


3$: 
4$: 


3$: 





TEST ADD CONDITION CODES 
MOV ' 


€77777 
MOV #1,R1 
ccc 
ADD R4,R1i 
BYVC i$ 
Bcs i$ 
BEQ i$ 
BMI 2s 

+1 
INC R4 
ADD R4,R1 
BVC 3% 
Bcc 3$ 
BEQ 43 
ERROR el 
ADD R4,R1 
BYVS 5$ 
bcs 5$ 
BMI S$ 
ERROR +1 


TEST ADC CONDITION CODES 
MOV 
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sR4=-1 

;CC#1111 
;CC=1000 

sERROR IF Z SET 


;BRANCH IF GOOD 
;CPU ERROR 
;BAD TST CC 
;CC#1111 
;CC=#1000 
sERROR IF V SET 
sERROR IF C SET 
;BRANCH IF GOOD 
;CPU ERROR 
;BAD SWAB CC 


3R4=77777 
sRi=1 
;CC=0000 
377777 + 1 = 100000 IN R1 
sERROR IF V CLEAR 
sERROR IF CARRY 
sERROR IF Z SET 
;BRANCH 
;CPU ERROR 
;CC SHOULD =1010 
3R4=100000 
3100000 + 100000 = 0 IN Ri 
sERROR IF V CLEAR 
sERROR IF CARRY CLEAR 
;BRANCH GOOD 
:CPU ERROR 


sCC SHOULD = 1000 


#177777,R4 :R42177777 
:CC=1111 

R4 7R4=0 CC=0101 

i$ ;ERROR IF MINUS 

i$ ;ERROR IF V SET 

i$ ;ERROR IF C SET 


SL 2 ee 





SEQ 0082 
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4225 016234 
4226 016236 


016370 
016372 
016374 


001401 
10400) 


012704 
7 


012704 
; 


012701 
7 


077777 


077777 


077777 
170000 
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1$: 
2s: 


3$: 
4$: 


5$: 
6$: 


i$: 
2$: 


3$: 


5$: 
6$: 


BEQ 2s 

ERROR el 

MOV #077777,R4 
scc 

CLV 

ADC R4 

BPL 3$ 

BCS 3$ 

BEQ 3$ 

BVS 43 

ERROR +1 

scc 

ADC R4 

BVS 5$ 

BCS 5$ 

BMI 6$ 

ERROR el 

TEST NEG, CMP, C 
MOV $077777,R 
ccc 

NEG RS 

BVS i$ 

BCC i$ 

BEQ i$ 

BMI 2s 

ERROR > 

CLR R4 

ccc 

NEG R4 

BMI 3$ 

BCS 3$ 

BYVS 3$ 

BEQ 4$ 

ERROR +1 

MOV 977777 ,R4 
MOV #170000,R1 
ccc 

CMP R4,R1 
BVC 5$ 

BCC 5$ 

BEQ 5$ 

BMI 6$ 
ERROR +1 

ccc 

COM Ri 

BMI 7$ 


SEQ 0083 


s;BRANCH IF GOOD 


;CPU ERROR 


;BAD ADC 


3R4*077777 
; 
;CC#1101 


sR4=100000 CC=1010 
sERROR IF PL 


s;BRANCH IF GOOD 


;CPU ERROR 


;BAD ADC 


;CC#1111 
+R4=100000 CC=1000 
sERROR IF V SET 
sERROR IF C SET 
;BRANCH IF GOOD 


;CPU ERROR 


;BAD ADC 


4 CONDITION COD 


CC SHOULD= 1000 


ES 
3R4*77777 


. CC=1001 
sERROR IF C CLEAR 


sERROR IF Z SET 
;BRANCH IF GOOD 


;CPU ERROR 
;BAD NEGATE 


;R4=0 

:CC=0000 
;CC=0101 

;ERROR IF N SET 
sERROR IF C SET 
;ERROR IF V SET 
;BRANCH IF GOOD 


;CPU ERROR 
;BAD NEG 


;CPU ERROR 
;BAD CMP 


3R4=77777 
;R1=170000 
;CC=0000 
377777 - 170000 = 107777 CC= 1011 
;ERROR IF V CLEAR 
;ERROR IF C CLEAR 
;ERROR IF ZERO 
;BRANCH IF GOOD 


;R1=*7777 
;ERROR IF MINUS 
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016376 


016512 
016514 


016516 
016520 
016522 
016524 


077775 
137757 


000005 
000012 


100000 


2$: 


3$: 
4$: 


i$: 
2$: 


BEQ 7$ 
BCC 7$ 
BVC 8$ 
ERROR +1 
SCC 
COM Ri 
I 10$ 
ERROR +1 


TEST SUB CONDITION CODES 


MOV #77775 ,R4 
ccc 
SUB #137757,R4 
BYC i$ 
BPL i$ 
Q 1$ 
BCS 2$ 
ERROR +1 
MOV #5 ,R4 
ccc 
SUB #12,R4 
BCC 3$ 
BVS 3$ 
BEQ 3$ 
BMI 45 
ERROR +1 


MOV 

ccc 

SBC R4 

BPL i$ 

BVS i$ 

SEC 

SBC R4 

BYC 1$ 

BCS 1$ 
L 2$ 

ERROR +1 

CLR R4 

scc 

CLC 

SBC R4 
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SEQ 0084 


sERROR IF ZERO 
sERROR IF CARRY 
;BRANCH IF GOOD 


;CPU ERROR 


;BAD COM 


s;BRANCH IF GOOD 


;CPU ERROR 


sBAD COM 


3R4277775 

:CC=0000 

377775 - 137757 

;TRY TO CAUSE AN ARITHMETIC OVERFLOW 
sERROR IF V CLEAR 

;ERROR IF RESULT IS POSITIVE 

sERROR IF Z SET 

;BRANCH IF GOOD 


;CPU ERROR 
;BAD SUBTRACT 


;CPU 


7R4=5 

;CC=0000 

;5-12=-5 AND SETS CARRY 
;ERROR IF CARRY CLEAR 
;ERROR IF OVERFLOW 
sERROR IF ZERO 

;BRANCH IF GOOD 


ERROR 
s;SUBTRACT FAILED 


TEST SBC CONDITION CODES 
#100000, R4 


:R4=100000 

;C=0000 

;TRY TO SET V 

;ERROR iF N CLEAR 

sERROR IF V SET CHAVENT SET C YET) 
;CC SHOULD = 1001 

;TRY AGAIN TO SET V 

;ERROR IF V CLEAR 

sERROR IF C SET 

;BRANCH IF GOOD 


;CPU ERROR 
;SBC FAILED 


;R4=0 


;CC=1110 
;TRY TO CAUSE C FLAG FAILURE 





COKDAEO KOJ11-B8 CLUSTER DIAG. 
eeeeeeeescasce DOUBLE OPERAND TESTS «ee0004204044420% 


4345 
4 


o 


016526 


016570 


016572 
016574 


060000 


000003 


3$: 
4$: 


5$: 


MRRCC: 


BCS 3$ 
BYS 3$ 
BNE 3$ 
SEC 

SBC R4 
BCC 3$ 
BVS 3$ 
BEQ 3$ 
BMI $ 
ERROR +1 
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;ERROR IF C SET 
;ERROR IF V SET 
;ERROR IF NOT ZERO 
;SET CARRY 


sNOW, O - CARRY = 177777 


sERROR IF CARRY CLEAR 
;ERROR IF V SET 
sERROR IF ZERO 
;BRANCH IF GOOD 


;CPU ERROR 


;SBC FAILED 


TEST ROL CONDITION CODES 
MOV #60000 ,R4 


ccc 
ROL R4 
BCS i$ 
BYC i$ 
BMI 2$ 
ERROR > | 
ROL R4 
BCC 3$ 
BVS 3$ 
BMI 4$ 
ERROR +1 
ROL R4 
BYVC 5$ 
BCC 5$ 
BMI 5$ 
BNE 6$ 
ERROR +1 
RG 
BVS 7$ 
BCS 7$ 
BPL 8$ 
ERROR +1 


MO 

ccc 

ROR R4 
BCC 1$ 
BVC i$ 
BPL 2$ 
ERROR +1 


7R4= 0110000000000000 

;CC=0000 

sR4= 11900000000000000 

sERROR IF CARRY 

s;ERROR IF V CLEAR 
GOOD 


;BRANCH IF 


sCPU ERROR 
sROL FAILED 


sR4= 10000000000000006 
sERROR IF CARRY CLEAR 
sERROR IF V SET 
;BRANCH IF GOOD 


sR4=000000000000011 
sERROR IF V SET 
sERROR IF C SET 
;BRANCH IF GOOD 


;CPU ERROR 


;BAD ROL 


sR4= 0000000000000011 
:CC= 0000 

sR4= 0000000000000001 
;ERROR IF NO CARRY 
;ERROR IF V CLEAR 
;BRANCH IF GOOD 


;CPU ERROR 


SEQ 0085 


COKDAEO KDJ11-B CLUSTER DIAG. 
eeeee0¢0000¢ DOUBLE OPERAND TESTS seas eattcacacacane 


4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 


Bn tien 


016652 
016654 
016656 
016660 
016662 


016664 
016666 
016670 
016672 
016674 


016676 
016700 
016702 
016794 
016706 


016710 


016710 


016710 
016714 
016716 
016720 
016722 
016724 
016726 
016730 
016734 
016736 
016740 
016744 
016746 
016750 
016752 
616754 
016756 
016760 
016764 
016766 
016770 


016770 


016770 
016774 
016776 
017000 


006004 
103002 
102401 
100401 
104001 


006004 
102002 
103401 
100401 
104001 


006004 
102402 
103401 
100001 
104001 


012701 
000241 


052525 


045252 


125252 


052522 


060000 
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;ROR FAILED 
2s: ROR R4 :R4= 1000000000000000 
BCC 3$ ;ERROR IF CARRY CLEAR 
BVS 3$ ;ERROR IF V SET 
BMI 4$ sBRANCH IF GOOD 
3$: ERROR +1 ;CPU ERROR 
;BAD ROR 
4$: ROR R4 :R4 = 1100000000000000 
BYVC 5$ ;ERROR IF V 
BCS 5$ ;ERROR IF C SET 
BMI 6$ ;BRANCH IF GOOD 
5$: ERROR +1 ;CPU ERROR 
:BAD ROR 
6$: ROR R4 :R4= 011000000000000 
BVS 7$ ;ERROR IF V SET 
BCS 7$ ;ERROR IF C SET 
BPL 8$ ;BRANCH IF GOOD 
7$: ERROR +1 ;CPU ERROR 
;BAD ROR 
8$: 
XCBIT: 
3 TEST C BIT WITH ROR/ROL 


5 RRRRARERAEREASEESSALEAEEADEEEE ED DS EE EEEEEE SS ESOS EE EEEKEEEEEEEEE 
sTHIS TEST IS TO CHECK FOR A SLOW C 7IT PATH INTERNAL TO THE J11 DATA CHIP 
;PROBLEM IS ONLY EXHIBITED ON EARLY MASK SETS (1590 AND 1593) 

MOV #52525 ,R1 sINIT R' WITH DATA 


CLC ;CLEAR THE C BIT 
ROR Ri ;R1=025252, C BIT =1 
ROR Ri :R1=*112525, C BIT =0 
ROR Ri 7R1=045252, C BIT =1 
Bcs i$ ;BRANCH IF CARRY BIT SET 
ERROR +1 ;CPU ERROR 
i$: CMP #45252 ,R1 ;IS DATA IN Ri = TO EXPECTED DATA? 
BEQ 2$ ;BRANCH IF YES 
ERROR + ;CPU ERROR 
2$: MOV #125252,R1 ;SET UP Ri 
CLC ;CLEAR THE CARRY BIT 
ROL Ri ;Ri=052524, C BIT =1 
ROL Ri ;R1=125251, C BIT =0 
ROL Ri 7R1=052522, C BIT =1 
BCS 3$ ;BRANCH IF CARRY SET 
ERROR ‘ ;CPU ERROR 
3$ ro #052522, Ri :IS DATA IN R1 = TO EXPECTED DATA? 
ERROR +1 ;CPU ERROR 
4$: 
MALCC: 
; TEST ASL CONDITION CODES 
MOV #60000 ,R4 ;R4= 0110000000000000 
ccc ;CC=0000 
ASL R4 ;C=0 R4= 1100000000000000 
BCS 1$ ;ERROR IF CARRY 


SEQ 0086 








COKDAEO KOJi1-8 CLUSTER DIAG. 


—— 


4473 017002 


4474 
4475 
4476 


017004 
017006 


017010 
017012 
017014 
017016 
017020 


017022 


017116 


017120 
017122 
017124 
017126 
017130 
017134 
017136 


102001 
100401 
104001 


104001 


012704 
, 


104001 


006204 
102002 
103401 


000341 


100001 


170016 


1$: 


7$: 
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eee¢eee¢ee0e04 DOUBLE OPERAND TESTS sae00400440000464 


1$ ;ERROR IF V CLEAR 
2$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 
;ASL FAILED 
R4 :C=1 R4= 1000000000000000 
3$ . sERROR IF CARRY CLEAR 
3$ sERROR iF V SET 
4$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 
;BAD ASL 
R4 sC=1 R4= 0000000000000000 
5$ ;ERROR IF V CLEAR 
5$ sERROR IF C CLEAR 
5$ sERROR IF MINUS 
6$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 
;BAD ASL 
R4 :C=0 R4= 000000000000000 
7$ ;ERROR IF V SET 
7$ ;ERROR IF C SET 
8$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 
;BAD ASL 


sR4= 0000000011100001 


:CC=0000 

R4 3R4= 0000000001110000 
i$ sERROR IF NO CARRY 
i$ ;ERROR IF V CLEAR 
2$ ;BRANCH IF GOOD 
el ;CPU ERROR 

;ASR FAILED 
#100001,R4 :R4= 1000000001110001 
R4 sR4= 1100000000111000 
3$ sERROR IF CARRY CLEAR 
3$ ;ERROR IF V SET 
4$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 

;BAD ASR 
R4 3R4= 1110000000011100 
5$ ;ERROR IF V 
5$ sERROR IF C SET 
6$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 

:;BAD ASR 
R4 sR4= 1111000000001110 
7$ ;ERROR IF V CLEAR 
7$ sERROR IF C SET 
7$ ;ERROR IF PLUS 
#170016,R4 ;SEE IF EXPECTED RESULT 
8$ ;BRANCH IF GOOD 
+1 ;CPU ERROR 


;BAD ASR 


SEQ 0087 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
eeeeeeeesece DOUBLE OPERAND TESTS e2440664644644468 


45.2 017140 
4533 


4 
017140 


017140 
017144 
017146 
017150 
017152 
017154 
017156 
017160 
017162 


017164 
017166 
017170 
017172 
017174 
017176 
017200 
017202 
017204 
017206 


017210 


017210 


017210 
017214 
017220 
017222 
017224 


017-70 


012704 
010401 


012701 
000277 


123456 


123456 
052525 


125252 





MACRO YOS.02 


MSXTCC: 


1$: 
2$: 


3$: 
4$: 


1$: 


3$: 
4$: 


TEST SXT 
V 





CONDITION CODES / -«0- 


#123456,R4 
R4,R1 
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;R4*123456 
;SAVE CONTENTS 
;CC=0000 
3R4=0 CC=0100 
s;ERROR IF CARRY 
;ERROR IF MINUS 
s;ERROR IF OVERFLOW 
;BRANCH IF GOOD 


;CPU ERROR 


;BAD SXT 


;CPU ERR 
;BAD SXT 


TEST XOR CONDITION CODES / #a0- 
MOV #123456 ,R4 


#52525 ,R1 


R1,R4 
$ 


sRESTORE R4 
sCC=1111 
3R4=-1 CC=1001 


;ERROR IF OVERFLOW 
:R4=0 
oo IF GOOD 


s#TI* R4=*171173 


;sERROR IF OVERFLOW 


sERROR IF ZERO 
sERROR IF CARRY 
;BRANCH IF GOOD 


;CPU ERROR 
;BAD XOR 


;R1=125252 
;CC=#1111 
37R4=054321 
sERROR IF MINUS 
;ERROR IF ZE 


RO 
sERROR IF CARRY CLEAR 


;BRANCH IF GOOD 


;CPU ERROR 
;BAD XOR 


;R4=0 

;ERROR IF OVREFLOW 
;ERROR IF MINUS 
;ERROR IF NO CARRY 
;ERROR IF NOT ZERO 





SEQ 0088 





COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeeeeeeees DOUBLE OPERAND TESTS eee ceesaceeesese 


£593 017272 


— 


017300 


017302 
8 


017302 
3 


017370 


017372 
017374 


017410 
017414 
017416 


022704 000000 


001401 
104001 


000055 


177777 


177777 


177777 
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SEQ 0089 


CMP #0 ,R4 ;SEE IF EXPECTED RESULT 


BEQ 6$ ;BRANCH IF GOOD 
5$: ERROR +1 ;CPU ERROR 
;BAD XOR 
6$: 
° 
MSXT: 
; TEST SXT CSIGN EXTEND INSTRUCTION) 


j  REREERAEREEREEAEESEREAEEAEEEEEEREEEE DEERE ED EEEEEEEEDEEEEEEE EES 
sAN ADDITIONAL TEST IS INCLUDED TO CHECK FOR A SLOW N BIT PATH 
;ON A TRANSITION FROM ZERO TO ONE INTERNAL TO THE Ji1 DATA CHIP 
;THE PROBLEM IS =" EXHIBITED ON ow Si ea SETS (1590 OR 1593) 


CLR ; TRASH 
ccc ;CC=0000 
-WORD 271 ;CC=1001 
SXT R4 ;*TEST INSTRUCTION 
BVS i$ ;BRANCH IF OVERFLOW IS NOT CLEARED 
BPL i$ ;BRANCH IF N BIT EFFECTED 
BEQ i$ sBRANNCH IF Z BIT EFFECTED 
BCC is ;BRANCH IF C BIT EFFECTED 
INC R4 
BEQ 23 ;BRANCH IF R4 =0 
i$: ERROR +1 ;CPU ERROR 
;CC SHOULD HAVE = 1101 
2$: scc 
CLN :CC=O111 
CLR 
MOV #55,(R4) ; TRASH R4 
SXT CR4) ;*#TEST INSTRUCTION 
BNE 3$ ;BRANCH IF BIT EFFECTED 
BVS 3$ ;BRANCH IF OVERFLOW 
BCS 3$ : 
BMI 3$ ;BRANCH IF N IS SET 
TST (R4) ;VERIFY INSTRUCTION WORKED 
BEQ 4$ ;BRANCH IF R4=0 
3$: ERROR + ;CPU ERROR 
3SXT FAILED 
; NOW TEST FOR SLOW N BIT IN Jil DATA CHIP 
43: MOV #-1,R0 3RO*177777, N SIT = 1 
CLR R4 ;CLEAT THE N BIT 
SXT RO 3#@eeTEST INSTRUCTIONess 
;TEST N BIT TRANSITION 1 TO O 
TsT RO :RO SHOULD = 0 
BEQ S$ ;BRANCH IF OK 
ERROR oil ;CPU ERROR 
5$: CLR RO ;CLEAR RO, N BIT = 0 
MOV 6-1,R4 :SET N BIT 
SXT RO ;#4eTEST INSTRUCTIONess 
;TEST N BIT TRANSITION O TO 1 
CMP #-1,R0 3RO SHOULD = 177777 
BEQ 6$ ;BRANCH IF OK 
ERROR +1 ;CPU ERROR 








COKDAEO KDJ11-68 CLUSTER DIAG. 
eeeeeeceoeee DOUBLE OPERAND TESTS 42444646044460046666 


4658 017420 
4660 


—— 


4662 
4 


017420 


4684 017474 


017476 
017500 


017500 


012701 
012704 


007643 
133333 


134570 


007643 


000555 


000010 
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6$: 


: 
MXOR : 


2s: 


3$: 


2s: 
4$: 


5$: 


TEST XOR 
MOV #7643,R1 ;SETUP DATA 
r- 3 #133333,R4 ;SETUP DATA 
XOR R4,R1 ;#TEST INSTRUCTION 
BPL i$ ;BRANCH IF PLUS TO ERROR 
BEQ i$ sERROR IF ZERO 
BCC i$ sERROR IF CARRY CLEAR 
BVS i$ ;ERROR IF V SET 
CMP R1,#134570 ;VERIFY CORRECT RESULT 
BEQ 2s ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
;BAD XOR 
MOV R1,R2 
ccc 
XOR R4 ,R2 ;*#TEST INSTRUCTION 
BMI 3$ sERROR IF MINUS 
BVS 3$ sERROR IF OVERFLOW 
Bcs 3$ sERROR IF CARRY 
CMP R2,¢7643 
BEQ 4$ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
:BAD XOR 

TEST SOB 
MOV 55 ,R4 ;SETUP TEST COUNTER 
scc :CC#17 
Bcc 2s sERROR IF CARRY CLEAR 
BYC 2$ sERROR IF NO OVERFLOW 
BPL 2$ sERROR IF PLUS 
BNE 2% sERROR IF ZERO 
SoB R4,1$ s#TEST INSTRUCTION 
BCC 3$ sERROR IF CARRY CLEAR 
BvC 3$ sERROR IF NO OVERFLOW 
BPL 3$ sERROR IF PLUS 
BNE 33 ;ERROR IF ZERO 
JMP 4$ 
ERROR +1 ;CPU ERROR 

:;CC EFFECTED DURING TEST 
JMP 43 
ERROR +1 ;CPU ERROR 

;CC EFFECTED AFTER TEST 
CMP R4, :IS R4 CORRECT 
BEQ S$ ;YES GO ON 
ERROR +1 ;CPU ERROR 


:NO GO TO ERROR 








SEQ 0090 


a 





COKDAEO KOJ11-B CLUSTER DIAG. 
seeeeeeeeess DOUBLE OPERAND TESTS eeeee606066060668 


— 


017554 


017604 
017606 
017610 


017612 
017614 
0: 7620 
017622 


017670 
017672 


017674 
017700 


017702 
017704 
017710 


017712 
017714 
017714 


10000 

102401 
104001 
02270 » 


001401 
104001 


020627 
001401 


000700 
125252 
017604 
006437 


125252 


001000 


052525 
006400 


000004 
000006 


001000 
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000776 


MMARK : 


43: 


15$: 


6$: 
5$: 


16%: 


78: 
8$: 


9%: 


MARK INSTRUCTION TEST 


SEQ 0091 


MOV @STBOT -100, SP sSETUP TEST STACK = 700 
MOV 0125252, @@STBOT-2 ;SET UP NEW RS VALUE ON STACK 
MOV 019,R5 :PUT NEW PC IN RS 
HOV @MARK+ 37, -(SP) sINSERT MARK 37 INSTRUCTION ONTO STACK 
UMP (SP) ;# TEST INSTRUCTION 
s;MARK INSTRUCTION SHOULD HAVE GONE TO 19 
ERROR +1 :CPU ERROR 
BHI 23 sERROR IF C OR Z BIT CLEAR 
BPL 23 sERROR IF N BIT CLEAR 
BVS 3$ ;BRANCH IF V BIT SET 
;BAD CONDITION CODES ON MARK 
ERROR + :CPU ERROR 
CMP #125252,R5 ;VERIFY RS 
BEQ ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
CMP SP, @STBOT ;VERIFY THAT STACK IS CORRECT 
BEQ 15$ :BRANCH IF OK 
s;ERROR! STACK WAS NOT CORRECT AFTER MARK 
ERROR +1 ;CPU ERROR 
MOV 052525, -(SP) ;SETUP EXPECTED RS 
MOV #6400, -(SP) ;MOVE MARK © INSTRUCTION ON STACK 
MOV RS sRS*ADDRESS OF INSTRUCTION 
JSR PC,5$ ;LEAVE 6% ON STACK 
UMP 16$ ;MARK RETURNED CORRECTLY 
ccc ;CLEAR THE CONDITION CODES 
RTS RS ;RETURN TO MARK INSTRUCTION 
;NEXT INSTRUCTION ON STACK IS THE RETURN 
FROM THE JSR 
;ERROR! BAD MARK SEQUENCE 
ERROR +1 :CPU ERROR 
BLOS 6s 78 :IS C OR Z BIT SET? 
BHI 78 ;1S N BIT SET? 
vc 83 :IS V BIT SET? 
;ERROR! CONDITIONS CODES INCORRECT 
ERROR ~-: :CPU ERROR 
CMP R6, @STBOT :IS THE STACK CORRECT? 
BEQ :BRANCH IF YES 
sERROR! BAD STACK CLEANUP 
ERROR +1 ;CPU ERROR 
CMP @52525.R5 :VERIFY THAT RS WAS LOADED PROPERLY. 
BEQ 108 IF OK, GO TO NEXT TEST. 
sERROR! RS WAS NOT CORRECT AFTER MARK. 
ERROR +1 :CPU ERROR 


TEST CLEAR CONDITION CODES INSTRUCTION 
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SEQ 0092 

eeecceceesecs DOUBLE OPERAND TESTS eeeseseceaceseece 

4780 017714 012737 030017 177776 MOV #30017 ,80177776 ;sSETUP PSW 

4781 017722 000257 ccc ; TEST INSTRUCTION 

4782 017724 022737 030000 177776 CMP 030000 ,80177776 sDID IT CLEAR ALL CONDITION CODE BITS 

4783 017732 001401 BEQ i$ sYES GO ON 

4784 017734 104001 ERROR +1 ;CPU ERROR 

4785 ;NO GO TO ERROR 

4786 017736 1$: 

4787 F 

4789 017736 XMEL C1: 

4791 

4792 : TEST CLEAR C BIT INSTRUCTION 

4793 017736 012737 030017 177776 MOV #30017 ,80177776 sSETUP PSW 

4794 0:7744 000241 CLC ; TEST INSTRUCTION 

4795 017746 022737 030016 177776 CMP 030016 ,80177776 ;0ID IT CLEAR CARRY BIT 

4796 017754 001401 BEQ i$ ;YES GO ON 

4797 ;C BIT NOT CLEAR GO TO ERROR 

4798 017756 104001 ERROR ol ;CPU ERROR 

4799 017760 1$: 

4800 3 

4803 017760 TE102: 

4804 ; TEST CLEAR N BIT INST (CLN) 

4805 017760 012737 030017 177776 MOV $30017 ,80177776 sSETUP PSW 

4806 017766 000250 CLN ; TEST INSTRUCTION 

4807 017770 022737 030007 177776 CMP #30007 ,80177776 sDID IT CLEAR NEGATIVE BIT 

4808 017776 001401 BEQ i$ :YES GO ON 

4609 020000 104001 ERROR +1 ;CPU ERROR 

4810 sNO GO TO ERROR 

4811 020002 1$: 

4812 3 

4815 020002 TE103: 

4816 3 TEST CLEAR V BIT INST (CLV) . 

4817 020002 012737 030017 177776 MOV 030017 ,80177776 :SETUP PSW 

4818 020010 000242 CLV ; TEST INSTRUCTION 

4819 020012 022737 030015 177776 CMP 30015 .80177776 :0ID IT CLEAR OVERFLOW BIT 

4820 020020 001401 BEQ i$ ;YES GO ON 

4821 020022 104001 ERROR +1 ;CPU ERROR 

4822 sNO GO TO ERROR 

4823 020024 1%: 

4824 A 

4827 920024 TE104 

4828 $ TEST CLEAR Z BIT INST (CLZ) 

4829 020024 012737 030017 177776 MOV 30017 ,80177776 ;SETUP PSW 

4830 020032 000244 CLZ ; TEST INSTRUCTION 

4831 9020034 022737 030013 177776 CMP €30013 ,80177776 ;DID IT CLEAR ZERO BIT 

4832 020042 001401 BEQ i$ ;YES GO ON 

4833 020044 104001 ERROR +1 :CPU ERROR 

4834 ;NO GO TO ERROR 

4835 020046 1$: 

4836 5 

4839 020046 TE105: 

4840 : TEST SET CONDITION CODES INST (SCC) 

4841 020046 012737 030000 177776 MOV #30000 ,80177776 ;sSETUP PSW 

4842 020054 000277 scc ; TEST INSTRUCTION 

4843 020056 022737 030017 177776 CMP #30017 ,980177776 ;DID IT SEY ALL CONDITION CODE BITS 

4844 020064 001401 BEQ 1$ ;YES GO ON 

4845 020066 104001 ERROR +1 ;CPU ERROR 

4846 ;NO GO TO ERROR 








COXDAEO KOJ11-B CLUSTER DIAG. 
@ee200000006 DOUBLE OPERAND TESTS eeeeseeaeeeeseece 


—— 


4911 
4912 
4913 


020070 


020236 
029240 


012737 


012737 


104001 


000277 
000245 
022737 
001401 
404001 


030000 
030001 


030000 
030010 


030000 
030002 


030000 
030004 


030000 


030014 


030012 
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177776 
177776 


177776 
177776 


177776 
177776 


177776 
177776 


177776 


177776 


177776 


18; 

; 
TE106: 
: 


TE107: 


TE110: 


i$: 

¢ 
TELI1: 
5 


1$: 


on #30000,980177776 . 
CMP #30001 ,80177776 
BEQ is 

ERROR +1 


TEST SET N BIT INST (SEN) 
MOV #30000 ,80177776 


30010 ,8¢177776 
is 
+1 


TEST SET V BIT INST (SEV) 
MOV #30000 ,80177776 


satin a 


SEV 
CMP 


BEQ 
ERROR 


Ld SET Z BIT INST (SEZ) 


SEZ 
CMP 


BEQ 
ERROR 


Li SET C BIT INST (SEC) 


+1 


#30000 ,80177776 


+ asi labia 


+1 


a MULTIPLE CLEARS OF 


#30000 ,80177776 

243 

inca 
$ 


+1 


245 

#30012 ,84177776 
2$ 

+1 


;SETUP PSW 


; TEST INSTRUCTION 
;DID IT SET THE CARRY BIT 


;YES GO ON 


;CPU ERROR 
;NO GO TO ERROR 


sSETUP PSW 


; TEST INSTRUCTION 
s;DID IT SET THE NEGATIVE BIT 


;YES GO ON 


;CPU ERROR 
;NO GO TO ERROR 


sSETUP PSW 


; TEST INSTRUCTION 
s;DID IT SET THE OVERFLOW BIT 


sYES GO ON 


;CPU ERROR 
;NO GO TO ERROR 


sSETUP PSW 


; TEST INSTRUCTION 
sDID IT SET THE ZERO BIT 


;YES GO ON 


;CPU ERROR 
sNO GO TO ERROR 


Cc BITS 


;INIT PSW 
;SETUP PSW 
; TEST CLC CLV 
;PSW CORRECT? 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;SETUP PSW 
; TEST CLC CLZ 
;PSW CORRECT? 
;YES GO ON 


;CPU ERROR 
;NO GO TO ERROR 





SEQ 0093 





-_- 











~_ 
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SEQ 0094 

@eeeee000406 DOUBLE OPERAND TESTS se0e08 60086000488 

4914 020242 000277 2s: scc ;SETUP PSW 

4915 020244 000246 -WORD 246 ; TEST CLV CLZ 

4916 020246 022737 030011 177776 CMP #30011 ,80177776 ;PSW CORRECT? 

4917 020254 001401 BEQ 3$ ;YES GO ON 

4918 020256 104001 ERROR +1 ;CPU ERROR 

4919 ;NO GO TO ERROR 

4920 020260 000277 3$: scc sSETUP PSW 

4921 020262 000247 WORD 247 ; TEST CLC CLV CLZ 

4922 020264 022737 030010 177776 CMP #30010 ,80177776 ;PSW CORRECT? 

4923 020272 001401 BEQ 4$ ;YES GO ON 

4924 020274 104001 ERROR +1 ;CPU ERROR 

4925 ;NO GO TO ERROR 

4926 020276 000277 4$: scc ;SETUP PSW 

4927 020300 000251 -WORD 251 ; TEST CLN CLC 

4928 020302 022737 030006 177776 CMP #30006 ,80177776 3PSW CORRECT? 

4929 020310 001401 BEQ 5$ ;YES GO ON 

4930 020312 104001 ERROR +1 ;CPU ERROR 

4931 :NO GO TO ERROR 

4932 020314 000277 5$: scc ;SETUP PSW 

4973 020316 900252 -WORD 252 ; TEST CLN CLV 

4934 020320 022737 030005 177776 CMP #30005 ,80177776 ;PSW CORRECT? 

4935 020326 001401 BEQ 6$ ;YES GO ON 

4936 020330 104001 ERROR +1 ;CPU ERROR 

4937 :NO GO TO ERROR 

4938 020332 000277 6$: scc ;SETUP PSW 

4939 020334 000253 -WORD 253 ; TEST CLN CLC CLV 

4940 020336 022737 030004 177776 CMP 30004 ,86177776 sPSW CORRECT? 

4941 020344 001401 BEQ 7$ ;YES GO ON 

4942 020346 104001 ERROR +1 ;CPU ERROR 

4943 :NO GO TO ERROR 

4944 020350 000277 7$: scc sSETUP PSW 

4945 020352 000254 -WORD 254 : TEST CLN CLZ 

4946 020354 022737 030003 177776 CMP #30003 .8¢177776 ;PSW CORRECT? 

4947 020362 001401 BEQ 8$ :YES GO ON 

4948 0203604 104091 ERROR +1 ;CPU ERROR 

4949 :NO GO TO ERROR 

4950 020366 000277 8$: scc ;SETUP PSW 

4951 020370 000255 -WORD 255 ; TEST CLN CLC CLZ 

4952 020372 022737 030002 177776 CMP #30002 ,80177776 ;PSW CORRECT? 

4953 020400 001401 BEQ 93 :YES GO ON 

4954 020402 104001 ERROR +1 ;CPU ERROR 

4955 ;NO GO TO ERROR 

4956 020404 000277 9$: scc ;SETUP PSW 

4957 920406 000256 -WORD 256 ; TEST CLN CLV CLZ 

4958 020410 022737 030001 177776 CMP #30001 ,84177776 ;SETUP PSW 

4959 020416 001401 BEQ 10$ ;YES GO ON 

4960 020420 104001 ERROR +1 ;CPU ERROR 

4961 :NO GO TO ERROR 

4962 020422 10$ 

4963 

4966 020422 TE113: 

4967 $ TEST MULTIPLE SETS OF CC BITS 

4968 020422 012737 030000 177776 MOV #30000 ,8¢177776 :INIT PSW 

4969 020430 000263 -WORD 263 ; TEST SEC SEV 

4970 020432 022737 030003 177776 CMP #30003 ,80177776 ;PSW CORRECT? 

4971 029440 001401 BEQ 1$ ;YES GO ON 

4972 020442 104001 ERROR +1 ;CPU ERROR 


—— 











COKDAEO KOJ11-B CLUSTER DIAG. 
eeeeeeneneees DOUBLE OPERAND TESTS seeeaceasaeesacas 


-— 


4973 
4974 
4975 


020444 
020446 
020450 


030005 


030006 


030007 


030011 


030012 


030013 


030014 


030015 


030016 
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177776 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


177776 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


7$: 


9$: 


10$: 


265 
~ eae ailaia 


+1 


266 

#30006 ,80177776 
3$ 

+1 


267 

#30007 ,8¢177776 
4$ 

+1 


271 

#30011 ,8¢177776 
5$ 

+1 


272 

#30012 ,80177776 
6$ 

+1 


273 

#30013 ,80177776 
7$ 

+1 


274 

#30014 ,8¢177776 
8s 

+1 


275 

#30015 ,8¢177776 
os 

+1 


276 

#30016 ,80177776 
_ 

+ 


sNO GO TO ERROR 
sSETUP PSW 
; TEST SEC SEZ 
;PSW CORRECT? 
, ;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;SETUP PSW 
s TEST SEV SEZ 
;PSW a”. 


;YES 
;CPU ERROR 
:NO GO TO ERROR 
sSETUP PSW 
; TEST SEC SEV SEZ 
;PSW CORRECT? 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
sSETUP PSW 
; TEST SEN SEC 


;PSW CORRECT? 
sYES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
sSETUP PSW 
; TEST SEN SEC SEV 
;PSW CORRECT? 


sSETUP P 
3PSW CORRECT? 


;SETUP PSW 
; TEST SEN SEV SEZ 
;PSW CORRECT? 
;YES GO ON 
;CPU E 


RROR 
;NO GO TO ERROR 


eee ese 


SEQ 0095 


COKDAEO KOJ11-B8 CLUSTER DIAG. 








@eeeee20¢0000 DOUBLE OPERAND TESTS seecceaecacesanera 
5032 020642 
5033 


020716 


000257 


TELL3A: 
; 
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oy SIGNED AND CONDITIONAL BRANCHES 


BGE i$ 
ERROR +1 
BGT 2$ 
ERROR +1 
BLE 3$ 
& 4$ 
ERROR +1 
BLT S$ 
R 6$ 
ERROR +1 
SEZ 
BLE 7$ 
ERROR +1 
BGT 8$ 
9$ 
ERROR +1 
ccc 
SEN 
BLT 10$ 
ERROR +1 
BLE 11% 
ERROR +i 
BGE 123 
BR 13% 
ERROR +1 
BGT 14$ 
153% 
ERROR +1 
ccc 
SEV 
BLE 16% 
ERROR +i 
T 17$ 
ERROR +1 
18$ 
19$ 
ERROR +1 
BGT 20$ 
R 2i$ 
ERROR +1 


;CLEAR ALL CC BITS IN PSW 
;BGE SHOULD BRANCH 

;CPU ERROR 

sERROR; DIDON’T BRANCH 
;BGT SHOULD BRANCH 

;CPU ERROR 

sERROR; DION’ T BRANCH 
;BLE SHOULDN'T BRANCH 
sBRANCH TO NEXT TEST 

;CPU ERROR 

;ERROR; BLE SHOULD NOT HAVE BRANCHED 
;BLT SHOULD NOT BRANCH 
;BRANCH TO NEXT TEST 

;CPU ERROR 

;ERROR; BLT SHOULD NOT HAVE BRANCHED 
;SET THE Z BIT IN PSW 
;BLE SHOULD BRANCH 

;CPU ERROR 

;ERROR; BLE DION‘T BRANCH 
:B8GT SHOULD NOT BRANCH 
SBRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BGT SHOULD NOT HAVE BRANCHED 
sCLEAR ALL CC BITS IN PSW 
;SET N BIT IN PSW 
:SHOULD BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BLT SHOULD HAVE BRANCHED 
;SHOULD BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BLE SHOULD HAVE BRANCHED 
;BGE SHOULD NOT BRANCH 
;BRANCH TO NEXT TEST 

;CPU ERROR 

sERROR; BGE SHOULD NOT HAVE BRANCHED 
;8GT SHOULD NOT BRANCH 
;BRANCH TO NEXT TEST 

;CPU ERROR 

;ERROR; BGT SHOULD NOT HAVE BRANCHED 
;CLEAR ALL CC BITS 
;SET V BIT IN PSW 
;BLE SHOULD BRANCH 

;CPU ERROR 

sERROR; BLE DIDN'T BRANCH 
;BLT SHOULD BRANCH 

;CPU ERROR 

;ERROR; BLT DION’ T BRANCH 
:BGE SHOULON’T BRANCH 
;BRANCH TO NEXT TEST 

;CPU ERROR 

;ERROR; BGE SHOULD NOT HAVE BRANCHED 
;BGT SHOULD NOT BRANCH 
;BRANCH TO NEXT TEST 

;CPU ERROR 

;ERROR; BGT SHOULD NOT HAVE BRANCHED 





SEQ 0096 
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eesescecesese DOUBLE OPERAND TESTS saeeeeseseeeaecace 


SEQ 0097 


—— 


5089 020764 000257 213: ccc ;CLEAR ALL CC BITS 
5090 020766 000272 -WORD 272 ;SET N AND V BITS IN PSW 
5091 020770 002001 BGE 22% ;BGE SHOULD BRANCH 
5092 020772 104001 ERROR +1 s;CPU ERROR 
5093 sERROR; BGE DIDN'T BRANCH 
5094 020774 003001 223: T 235 ;BGT SHOULD BRANCH 
5095 020776 104001 ERROR +1 ;CPU ERROR 
5096 sERROR; BGT DIDN'T BRANCH 
5097 021000 003401 23%: BLE 243 s;BLE SHOULDN'T BRANCH 
5098 021002 000401 BR 25$ ;BRANCH TO NEXT TEST 
5099 021004 104001 243: ERROR +1 ;CPU ERROR 
5100 sERROR; BLE SHOULD NOT HAVE BRANCHED 
5101 021006 002401 25$: BLT 268 s;BLT SHOULD NOT BRANCH 
5102 021010 000401 BR 27$ s;BRANCH TO NEXT TEST 
5103 021012 104001 26%: ERROR +1 ;CPU ERROR 
3104 sERROR; BLT SHOULD NOT HAVE BRANCHED 
3105 021014 27$: 
5108 021014 TE114: 
5109 TEST NOP INST 
5110 021014 012737 030000 177776 MOV #30000 ,86177776 sINIT PSW 
S111 021022 012700 000001 MOV #1,RO0 sINIT RO 
S112 021026 012701 000002 MOV #2,R1 sINIT R1 
5113 021032 012702 000003 MOV #3 ,R2 sINIT R2 
5114 021036 012703 000004 MOV 04 ,R3 sINIT RS 
5115 021042 012704 000005 MOV #5 ,.R4 :INIT R4 
5116 021046 012705 000006 MOV 06 ,R5 sINIT RS 
5117 021052 010637 003012 MOV R6 ,8@@SLOCOO s;SAVE SP 
$118 021056 012737 030017 114146 MOV #30017 , @@EXPDAT sSETUP PSW 
5119 021064 000277 Scc sSET ALL CONDITION CODE BITS 
5120 021066 000240 NOP ; TEST INSTRUCTION 
5121 021070 000240 NOP ; TEST INSTRUCTION 
Si2z2 021072 000240 NOP ; TEST INSTRUCTION 
5123 021074 004767 000046 JSR PC,1T114 ;CHECK PSW, AND GPR’S 
5124 021100 020637 003012 CMP R6 ,@@SLOCOO sCHECK SP 
5125 021104 001401 BEQ 1$ 30K GO ON 
5126 021106 104001 ERROR +1 s;CPU ERROR 
5127 3NO GO TO ERROR 
5128 021110 012737 030000 114146 1%: MOV #30000 , @SEXPDAT sSETUP PSW 
5129 021116 000257 ccc ;sCLEAR ALL CONDITION CODE BITS 
5130 021120 000260 -WORD 260 ; TEST FOR NOP OPERATION 
5131 021122 000260 -WORD 260 ; TEST FOR NOP OPERATION 
$132 021124 000260 -WORD 260 ; TEST FOR NOP OPERATION 
5133 021126 004767 000014 JSR PC,7114 ;CHECK PSW, AND GPR‘S 
5134 021132 020637 005012 CMP R6 ,@@SLOCOO ~ CHECK SP 
5135 021136 001401 BEQ 23 ;0K GO ON 
5136 021140 104001 ERROR +1 ;CPU ERROR 
5137 ;NO GO TO ERROR 
5138 021142 2$: 
ed 021142 000167 000104 JMP FINNOP 
2 
5141 021146 023737 114146 177776 1114: CMP QEXPDAT , 80177776 s;CHECK PSW 
5142 021154 001405 BEQ TA114 ; 0K ON 
5143 021156 010067 157216 MOV RO, 400 sSAVE RO 
5144 021162 104001 ERROR +1 ;CPU ERROR 
5145 ;NO GO TO ERROR 
5146 021164 016700 157210 MOV 400, RO sRESTORE RO 
5147 021170 022700 000001 TA114: CMP #1,R0 s;CHECK RO 


‘ 











COKDAEO K0J11-8 CLUSTER DIAG. 
eeeceseeeeoes DOUBLE OPERAND TESTS saaeetesesaenteane 


—— 


5148 
5149 


021174 
021176 


001401 
104001 


022701 
001401 
104001 


022702 
001401 
104001 


022703 
001491 
104001 


022704 
001401 
104001 
022705 
001401 
104001 
000207 


000240 


000003 
000004 
000005 


000006 


004000 
004000 


177777 


004000 
004000 
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156500 
156472 


156442 
156434 


TB114: 


T0114: 


TU1i14: 


BEQ 
ERROR 


TB1i14 
+1 


#2,R1 
TC114 
+1 


#3 ,R2 
T0114 
+1 


04 ,R3 
TF1i14 
+1 


#5,R4 
T6114 
+1 


$6 ,R5 
TH114 
+1 


PC 


SEQ 0098 


;0K GO ON 
;CPU ERROR 
:NO GO TO ERROR 


;0 
;CPU ERROR 
;NO GO TO ERROR 


; OK 
;CPU ERROR 
;NO GO TO ERROR 
;CHECK R3 
;0K GO ON 
;CPU ERROR 
;NO GO TO ERROR 


30 
;CPU ERROR 


TEST ATERNATE REGISTER SET 


1$: 


2$: 


#4000,PS 
$BIT11,PS 
1$ 

+1 


#177777,R0 
RO 


#BIT11,PS 


; 
sSELECT ALTERNATE REGISTER SET 
;TEST TO SEE THAT BIT IS SET IN PS 
;IF IT’S SET GO TESTS REGISTERS 

;CPU ERROR 

;ERROR! ALTERNATE REGISTER SELECT 
;BIT IN PS IS NOT SET 
s;WRITE ALL ONES TO ALTERNATE REG SET 


$ 

;CLEAR BIT 11 IN PS 

;IS BIT 11 = 0? 

:;IF IT'S NOT ZERO 
;CPU ERROR 
;ERROR! BIT 11 DID NOT CLEAR 

;MAKE SURE THAT WE REALLY 

;WERE TALKING TO ALTERNATE REGISTERS. 
;CPU ERROR 
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seeeseeesceacs DOUBLE OPERAND TESTS seacesecsacesaces 


SEQ 0099 


5207 s;ERROR! 
5208 921354 005701 3%: TST Ri , 
5209 021356 001401 BEQ 4$ 
5210 021360 104001 ERROR +1 ;CPU ERROR 
$211 ;ERROR! 
S212 021362 005702 4$;: TsT Re ; 
5213 021364 001401 BEQ S$ ; 
5214 021366 104001 ERROR +1 ;CPU ERROR 
5215 ;ERROR! 
5216 021370 005703 S$: TST R3 ; 
$217 021372 001401 BEQ 6$ ; 
a. 021374 104001 ERROR +1 ;CPU ERROR 
‘ 
5220 021376 005704 6$: TST R4 $ 
5221 021400 001401 BEQ 7$ ; 
faa 021402 104001 ERROR +1 ;CPU ERROR 
° 
5224 021404 005705 7$: TST R5 : 
5225 021406 001401 BEQ 8$ $ 
5226 021410 104001 ERROR +1 ;CPU ERROR 
5227 ;ERROR! 
5228 021412 012767 004000 156356 8%: MOV @BIT11,PS ;ENABLE ALTERNATE REGISTER SET 
5229 021420 005000 CLR RO j-+--- CLEAR----- 
5230 021422 005001 CLR Ri ;---ALTERNATE--- 
5231 021424 005002 CLR R2 ;----REGISTER--- 
5232 021426 005003 CLR R3 proce SET----- 
5233 021430 005004 CLR R4 ; 
5234 021432 005005 CLR RS ; 
5235 021434 C42767 004000 156334 BIC #BIT11,PS :BACK TO PRIMARY GPRS 
5236 021442 012700 177777 MOV #177777,R0 sENSURE THAT WRITES TO PRIMARY GPRS 
5237 021446 010001 MOV RO,R1 ;00 NOT EFFECT ALTERNATE GPRS 
5238 021450 010102 MOV R1i,R2 : 
5239 021452 010203 MOV R2,R3 : 
5240 021454 010304 MOV R3,R4 ; 
5241 021456 010405 MOV R4 RS ; 
5242 021460 052767 004000 156310 BIS #BIT11,PS ;RETURN TO ALTERNATE REGISTERS 
5243 021466 005700 TST RO ;SHOULD BE ALL O'S 
5244 021470 001401 BEQ 9% ; 
5245 021472 104001 ERROR +1 ;CPU ERROR 
5246 ;ERROR! 
5247 021474 005701 9$: TST Ri 3 
5248 021476 001401 BEQ 10$ 3 
aoe 021500 104001 ERROR ol ;CPU ERROR 
H 
5251 021502 005702 10$: TST R2 ; 
5252 021504 001401 BEQ 11$ 3 
a 021506 104001 ERROR +1 ;CPU ERROR 
+ 
5255 021510 005703 11$: TST R3 : 
5256 021512 001401 BEQ 12$ 3 
dd 021514 104001 ERROR el ;CPU ERROR 
; 
5259 021516 005704 12$: TST R4 ; 
5260 021520 001401 BEQ 13$ ; 
oot 021522 104001 ERROR +1 ;CPU ERROR 
; 
5263 021524 005705 13$: TST R5 : 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
ee406e000000 DOUBLE OPERAND TESTS seeeeteeeasaceaee 


I saeeneer levetonedi shigpasteitelaenselillitieeaptionionesinms 


021532 
021532 
021532 


021536 
021542 
021544 


290 021610 


021610 


021610 
021614 
021620 
021622 


001401 
104001 


001401 
104001 


012700 
020027 
001401 
104001 


012701 
020127 
001401 
104001 


005001 
020127 
001401 
104001 


012701 
020127 
001401 
104001 


012701 
020127 
001401 
104001 


012702 
020227 
001401 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


14$: 
ALROTS: 


3$: 


ALRLTS: 


2$: 
3$: 


4$: 
ALR2TS: 
: 


BEQ 
ERROR 


ALTERNATE REGISTER SET RO BIT TESTS 
MOV #177777,R0 
rt ,9177777 


—s 7? SET Ri BIT TESTS 


ALTERNATE REGISTER SET R2 BIT TESTS 
MOV #177777,R2 

R2,%177777 
i$ 


CMP 
BEQ 


14$ 
+1 


+1 
RO 
RO, #0 
2$ 
+1 


#125252,R0 
cc, 


+1 


#52525 ,RO 
——_—— 


+1 
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; 
s;CPU ERROR 


3202177777 
;D0ES RO=177777 
;YES ON 
;CPU ERROR 
;NO GO TO ERROR 
;RO=0 
;D0ES RO=0 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
3RO=125252 
;D0ES RO=125252 
0 ON 


iY 
;CPU ERROR 
;NO GO TO ERROR 


OR 
sNO GO TO ERROR 


0177777 3R1=177777 
R1,@177777 sDOES R1=177777 
is YE ON 
o1 ;CPU ERROR 

7NO GO TO ERROR 
Ri 7R1i=0 
R1,#0 ;DOES R1i=0 
2$ ;YES GO ON 
+1 ;CPU ERROR 

;NO GO TO ERROR 
#125252,Ri 3R1=125252 
R1, #125252 :DOES R1=125252 
3$ ;YES GO ON 
+1 ;CPU ERROR 

;NO GO TO ERROR 
#52525 ,R1 7R1=52525 
R1,#52525 ;DOES R1=52525 
43 :YES GO ON 
+1 ;CPU ERROR 


;NO GO TO ERROR 


3R22177777 
s;DOES R2=177777 
;YES GO ON 


SEQ 0100 


COKDAEO KOJ11-8 CLUSTER DIAG. 
eeeceseeeese DOUBLE OPERAND TESTS eeeeeeeeeeeeececs 


5325 021700 
5326 


2044 
5382 0220456 


5384 022050 
5385 022054 


I naninstegilie’isitedniaigipenaenreunnmvosptpsiiaincoshecavees 


104001 


005002 
020227 
001401 
104001 


012702 


012703 
020327 
001401 
104001 


005003 
020327 
001401 
104001 


012703 
020327 
001401 
104001 


012703 
020327 
001401 
104001 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


4$: 
; 
ALR3TS: 


ERROR 


ALTERNATE REGISTER SET R3 BIT TESTS 
MOV R3 


CMP 
BEQ 
ERROR 
CLR 
CMP 


MOV 
CMP 


ERROR 


ALTERNATE REGISTER SET R4 BIT TESTS 
MOV R4 


+1 
R2 
R2,4#0 
2$ 
+1 


#125252,R2 
_——— 


+1 


#52525 ,R2 
_— 


+1 
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;CPU ERROR 
;NO GO TO ERROR 
;R2=0 
;D0ES R2=0 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;R2*125252 
;DOES R2*125252 
GO ON 


sY¥ 
;CPU ERROR 

;NO GO TO ERROR 

;R2=52525 


iY 
;CPU ERROR 
;NO GO TO ERROR 


#177777 3R3*177777 
R3,9177777 ;DOES R3=177777 
i$ ;YE ON 
+1 ;CPU ERROR 

;NO GO TO ERROR 
R3 ;R3=0 
R3,¢0 ;D0ES R3=0 
2$ ;YES GO ON 
+1 ;CPU E 

sNO GO TO ERROR 
#125252,R3 3R3=125252 
R3 , #125252 ;DOES R3=125252 
3$ ;YES 
+1 ;CPU EC 

;NO GO TO ERROR 
#52525 .R3 3R3=52525 
R3 52525 ;D0ES R3=52525 
4$ sYES GO ON 
+1 ;CPU E 


sNO GO TO ERROR 


#177777 3R4=*177777 
R4,4177777 ;D0ES R4=177777 
i$ ;YES GO ON 
+1 ;CPU ERROR 

:NO GO TO ERROR 
R4 ;R4=0 
R4,#0 ;D0ES R4&=0 
2$ :YES GO ON 
+1 ;CPU ERROR 

;NO GO TO ERROR 
#125252,R4 7R4=125252 
R4 , #125252 ;D0ES R4=125252 


SEQ 0101 


COKDAEO K0J11-8 CLUSTER DIAG. 
eeeeeeeneeese DOUBLE OPERAND TESTS s464444464406444% 


5386 022060 
5387 022062 
5388 


419 
5420 022156 
5421 


5422 
5425 022164 
5426 
5427 022164 


5428 

5429 022166 
5430 022172 
5431 022176 
5432 022202 
5433 022206 
5434 022210 
5435 022214 
5436 022216 
5437 


5438 022220 
5439 022222 
5449 922224 
5441 ; 
5442 022226 
5443 022232 
5444 


5445 
5446 022234 


L dligemnesinsneni 


001401 
104001 


012704 
7 


104001 


012705 
020527 
001401 
104001 


005005 


104001 
012705 
020527 
001401 
104001 


042767 


005004 
012701 


012701 


052525 
052525 


177777 
177777 


000000 


125252 
125252 


052525 
052525 


004000 


022374 


022404 


022412 
177776 


177776 


177777 


022374 
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155612 


3$: 


4$: 


: 
ALRSTS: 


1$: 
2$: 
3$: 


4$: 


; 
TE115: 
; 


2$: 


3$: 


BEQ 3$ 
ERROR +1 
MOV #52525 ,R4 
CMP R4, #52525 
BEQ 43 
ERROR +1 


se REGISTER SET RS BIT TESTS 


SEQ 0102 


;YES GO ON 


s;NO GO TO ERROR 
3R4=52525 


;CPU ERROR 


;CPU ERROR 


sNO GO TO ERROR 


V #177777,R5 3R5*177777 

CMP RS #177777 ;D0ES RS5S=177777 
BEQ is ;YES GO ON 
ERROR +1 ;CPU ERROR 

;NO GO TO ERROR 
CLR R5 :R5=0 
CMP RS ,#0 ;D0ES R5=0 
BEQ 2$ ;YES GO ON 
ERROR +l ;CPU ERROR 

;NO GO TO ERROR 
MOV $125252,R5 3R5*125252 
CMP RS #125252 ;D0ES R5=+125252 
BEQ 3$ ;YES ON 
ERROR +l ;CPU ERROR 

;NO GO TO ERROR 
MOV #52525 .R5 3R5=52525 
CMP R5 #52525 ;D0ES R5=52525 
BEQ 4$ ;YES GO ON 
ERROR +i ;CPU ERROR 

3NO GO TO ERROR 
BIC #BIT11,.PS ;RETURN TO PRIMARY GEN PURPOSE REGS 


yy —_, FROM PROCCESSOR STATUS INST (MFPS 


MGV #TE11SA,R1 

MOV #TE1158,R2 
MOV #TE115C,R3 
MOV (R1)+, 90177776 
MFPS R4 

CMP 80177776,CR2)+ 
BEQ 2$ 

ERROR +1 

CMP R4,CR3)+ 

BEQ 3$ 

ERROR +1 

CMP (R1),9177777 
BNE 1$ 


#TE115A,R1 


S) 
s;SETUP DESTINATION R4 


s;SETUP POINTERS TO TABLES 
i 


; 

;SETUP PSW 

; TEST INSTRUCTION 
HECK PSW 


30K 
;CPU ERROR 
;NO GO TO ERROR 

;ARE WE DONE 

:NO GO TO i$ 


sSETUP POINTERS TO TABLES 








COKDAEO KOJ11-B CLUSTER DIAG. 
*4¢e60460000 DOUBLE OPERAND TESTS #2464466446464444 


5447 022240 
5448 022244 
5449 022250 
5450 022252 
5451 022256 


5456 022270 
5457 022272 
5458 022274 


5459 
5460 022276 


5490 022376 


021127 
001354 


000167 


030207 


022404 
022412 


177776 
177776 


177776 
177776 


114147 


114146 


177777 


000032 


101$: 


4$: 


5$: 


6$: 


7$: 





#TE115B6,R2 
#TE115C,R3 


R6.R5 
sereeereees 
80177776,CR2) 
102$ 

+1 

R6,CR3) 

103$ 

+1 

RS ,R6 
@TE115A,R1 
#TE115B6,R2 
#TE1150,R3 
@GEXPDAT 
GEXPDAT,R4 
(R1)+,80177776 
CR4)>+ 

80177776 ,CR2)+ 
5$ 

+1 

R4 . @EXPDAT ol 
6$ 

+1 

SGEXPDAT ,CR3)+ 
7% 

+1 

(Ri), 0177777 
4$ 


TE1L15F 
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SEQ 0103 


; 
;SAVE STACK IN RS 
;SETUP PSW 
; TEST INSTRUCTION 
;sCHECK PSW 
;0K GO ON 

;CPU ERROR 

;NO GO TO ERROR 


sNO GO TO ERROR 
sRESTORE STACK 


sSETUP POINTERS TO TABLES 
; 


; 
sINIT EXPECTED DATA HOLDER. 
sSETUP POINTER TO TEST LOCATION 
sSETUP PSW 
s TEST INSTRUCTION 

HECK PSW 


WE DONE 
sNO GO TO 4$ 


COKDAEO *2J11-8 CLUSTER DIAG. 
eeceseceeses DOUBLE OPERAND TESTS e24666466666446466 


- 


5506 022430 
+ od 
5509 022430 


5512 022446 
5513 022450 


5517 022454 
5518 022462 
5519 022466 
5520 
5521 

02 


012737 


177776 
177412 
000012 


000130 


177776 


177777 
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177776 


177776 


177776 


177776 


177776 


TE116: 
; 





SEQ 0104 


TEST MOVE TO PROCESSOR STATUS INST (MTPS) 


MOV #30000 ,80177776 sSET PSW TO KERNEL MODE 

MOV #TE1160,R1 sSETUP POINTERS TO TABLES 

MOV @TE1168,R2 ; 

MOV R1,R3 ; 

JSR PC ,7116 ; TEST INSTRUCTION AND CHECK PSwW 
s;AND SOURCE OPERAND 

MOV #140000, 80177776 ;SET PSW TO USER MODE 

MOV #600 ,R sSETUP USER STACK 

MOV #TE1160,R1 sSETUP POINTERS TO TABLES 

MOV #TE116C,R2 ; 

MOV R1,R3 ; 

JSR PC 7116 ; TEST INSTRUCTION AND CHECK PSw 
sAND SOURCE OPERAND 

MOV #140000 , 86177776 sSET PSW TO USER MODE AND CLEAR CC BITS 

MOV #TE116A,R1 sSETUP POINTERS TO TABLES 

MOV @TE116C,R2 i 

MOV @TE1160,R3 ; 

MOV R1,R4 sSAVE A COPY OF Ri INTO R4 

JSR PC, TA116 ; TEST INSTRUCTION AND CHECK PSW 
sAND SOURCE OPERAND 

MOV #30000 ,80177776 sSET PSW TO KERNEL MODE 

MOV @TE116A,R1 sSETUP POINTERS TO TABLES 

MOV #TE1168,R2 : 

MOV #TE1160,R3 ; 

MOV R4 sSAVE A COPY OF R1 INTO R4 


; TEST INSTRUCTION AND CHECK PSW 
sAND SOURCE OPERAND 


CLR 90177776 ;SET PSW TO KERNEL MODE 
MTPS #177412 :TEST INSTRUCTION 
CMP @12,800177776 :IS PSW CORRECT 
BEQ 1003 sYES GO ON 
ol ;CPU ERROR 
sNO GO TO ERROR 
JMP FINL16 
MOV CR1)+,RS sMOVE TEST DATA TO RS 
MTPS cae) ; TEST INSTRUCTION 
CMP 90177776 ,CR2)>+ 11S PSW CORRECT 
BEQ is sYES GO ON 
ERROR _ +1 ;CPU E 
sNO GO TO ERROR 
CMP CR3)+,R5 :IS RS CORRECT 
BEQ 28 ;YES GO ON 
ERROR +1 ;CPU ERROR 
sNO GO TO ERROR 
cmp (R2),@177777 ;ARE WE DONE 





COKDAEO KDJ11-6 CLUSTER DIAG. 
eeceeesesese DOUBLE OPERAND TESTS eeaeeseceseseeses 


Hasercnssi satanic 


001364 
000207 


106421 
023722 
001401 
104001 


122423 
001401 
104001 


177776 


177777 


000010 
023054 
177777 
030000 


030000 


000005 


177777 
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000010 
177776 
177776 


SE 0105 
BNE 7116 sNO GO TO 1116 
RTS PC sRETURN 
: 
TA116: MTPS CR1i)-> ; TEST INSTRUCTION 
CMP 80177776,(R2)> s1S PSW CORRECT 
BEQ i$ ;YES GO ON 
ERROR ol :CPU ERROR 
;NO GO TO ERROR 
1$: CMPB C(R4)+,CR3)+ ;sCHECK TEST LOCATION 
BEQ 2$ 70K GO ON 
ERROR +1 ;CPU ERROR 
sNO GO TO ERROR 
23: CMP R1,Rr4 sIS SOURCE OPERAND CORRECT 
BEQ 3$ ;YES GO ON 
ERROR +i ;CPU ERROR 
3NO GO TO ERROR 
33: INC RZ sPOINT TO NEXT WORD 
CMP (R2),0177777 ;ARE WE DONE 
BNE TAL16 sNO GO TO TA116 
RTS sRETURN 
$ 
TELI6A: .BYTE 377 
BYTE 0O 
-BYTE 252 
-<BYTE 125 
TE1168: .WORD 30357 
. WORD 
-WORD 30252 
-WORD 30105 
-WORD 177777 
TE116C: .WORD 140017 
-WORD 140000 
-WORD 140012 
-WORD 140005 
TE1160: .WORD 177777 
-WORD 177400 
-WORD 177652 
-WORD 177525 
3 
FIN1I16: 
: 
TE117: 
; TEST MFPT (MOVE FROM PROCESSOR TYPE) 
MOV 8010, -(SP) ;SAVE VECTOR 
MOV @TE117A,9¢10 ;SETUP VECTOR TO HANDLE POSSIBLE ILLEGAL INST TRAP 
MOV 9177777,R0 :INIT RO 
MOV #30000 ,8¢177776 ;SETUP PSW 
-WORD 7 ; TEST INSTRUCTION 
CMP 30000 ,86177776 31S PSW CORRECT 
BEQ 1$ ;YES GO ON 
ERROR +1 ;CPU ERROR 
:NO GO TO ERROR 
1$: CMP RO,@5 :IS RO CORRECT 
BEQ 23 ;YES GO ON 
ERROR el ;CPU ERROR 
;NO GO TO ERROR 
2s: MOV €177777,RO0 :INIT RO 





—— es 
_ 








COKDAEO KOJ11-8 CLUSTER DIAG. 
eeececeseses DOUBLE OPERAND TESTS seeeeceseceeeesses 


5629 023016 
5630 023020 


000167 


022737 
001401 
104001 


022737 
001401 
104001 


022627 
001401 
104001 


022627 
001401 
104001 


012637 
012637 


030017 


000005 


000010 
000002 


023126 


140000 


000006 
000004 











MACRO Y05.02 Tuesday 14-May-85 08:07 Page 14-87 


177776 


154656 


177776 


177766 


3$: 
4$: 


: 
TEL17A: 


° 
FINI17: 
. 
TE120: 
; 


PROCNT: 


é 
. 
TE120A: 


1$: 
2s: 


3$: 


FIN120: 


$ 
TE121: 
; 


ERROR 


NOP 


TEST HALT (NOT KERNEL MODE) 
CLR 80177766 


7 

030017 ,80177776 
3$ 

+1 

RO,@5 

4$ 

+1 

(SP)+,8010 
FIN117 

+1 


CLR 90177776 

MOV 904, -CSP) 

MOV 906, -(SP) 

MOV @TE120A, 904 
CLR 806 

MOV 140000,PS 
MOV $600 ,R6 

HALT 

ERROR +1 

JMP FIN120 

CMP #30000 ,86177776 
BEQ i$ 
ERROR ol 

CMP $200 .8¢177766 
BEQ 2s 

ERROR +1 

CMP (SP)+, #PROCNT 
BEQ 3$ 

ERROR ol 

CMP (SP)+, #140000 
BEQ FIN120 

ERROR +1 

MOV (SP)+, 866 
MOV (SP)+,3804 
TEST RESET 


SEQ 0106 


s;SET ALL CC BITS 
s TEST INSTRUCTION 
sIS PSW CORRECT 


sNO GO TO ERROR 

;IS RO CORRECT 
sYES GO ON 
;CPU ERROR 


sNO GO TO ERROR 
sRESTORE VECTOR 


s;CPU ERROR 
;GO TO ERROR IF TRAP TAKES PLACE 


sINIT CPU ERROR REG 

sINIT PSW-SET KERNEL MODE 

sSAVE VECTOR 

sSAVE VECTOR 

sSET UP VECTOR TO HANDLE ILLEGAL HALT 
;SET UP VECTOR TO COME BACK IN KERNEL MODE 
:SET IN USER MODE 

sINITIALIZE THE USER STACK POINTER 

: TEST INSTRUCTION 

;CPU ERROR 

sIF NOTHING HAPPENED GO TO ERROR 


:IS PSW CORRECT/PREVIOUS MODE = USER? 
;YES GO ON 
;CPU ERROR 


;YES G 


s;DOES STACK CONTAIN CORRECT PC 
;YES GO ON 

;CPU ERROR 

:NO GO TO ERROR 
os a CONTAIN CORRECT PSW 


sNO GO TO ERROR 
sRESTORE VECTOR 
sRESTORE VECTOR 





COKDAEO KDJ11-8 CLUSTER DIAG. 
eeceeeeeseee DOUBLE OPERAND TESTS seeaceesesescecese 


005767 
001402 
000167 


012737 


012737 
022737 
001401 
104001 


012737 
022737 
001401 
104001 


000277 
000005 
022737 


001401 
104001 


013701 
042701 
022701 
001401 
104001 


022737 
001401 
104001 


022737 
001401 
104001 


013702 
013703 
012737 


012737 


012737 
012737 
012737 
012737 
000277 


155772 
177772 
177772 


025000 
025252 


077000 
077314 


030357 


177572 
000176 
000000 


000000 


000000 
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177776 
177572 
172516 


000000 


177772 
177772 


177772 
177772 


177776 


172516 


177772 


000004 
900006 


177776 
177572 
172516 
177772 


C12i1A: 


Ci2iB: 


Ci2ic: 


2s: 


3$: 


4$: 


SEQ 0107 


@APTENV, SENV ;ARE WE IN APT MODE? 
i$ ;IF NOT: DO THIS TEST 
$PASS sFIRST PASS?? 
i$ ;IF YES, 00 IT 
FINI22 sELSE SKIP THIS TEST BECAUSE RESETS 
sSCREW UP THE APT MONITOR. 
630340 ,80177776 ;SETUP PSW TO KERNEL MODE 
#160000, 84177572 ;SETUP MMRO 
077,80172516 ;SETUP MMR 
90177772 ;CLEAR PIRQ 
8¢177772,#0 ;IS PIRQ@ CORRECT 
Ci2iA ;YES GO ON 
+1 ;CPU ERROR 
;NO GO TO ERROR 
#25000 ,80177772 ;MOVE AN ALTERNATING PATTERN TO PIRGQ 
625252 ,80177772 sIS PIRQ@ CORRECT 
C1218 ;YES GO ON 
+1 ;CPU ERROR 
;NO GO TO ERROR 
77000 ,80177772 ;SETUP PIRQ 
#77314 ,8@177772 ;IS PIRQ —_— 
ci2ic ;YES GO ON 
+1 ;CPU ERROR 
sNO GO TO ERROR 
;SET ALL CC BITS 
; TEST INSTRUCTION 
@30357 .8¢177776 :IS PSW CORRECT 
is ;YES GO ON 
+1 ;CPU ERROR 
3NO GO TO ERROR 
B@SRO,R1 ;SAVE SRO IN R1. 
#176,R1 ;STRIP OFF UNDEFINED BITS 1-6 FROM MMRO 
@0,R1 31S MMRO CORRECT 
2s ;YES GO ON 
+1 ;CPU ERROR 
NO GO TO ERROR 
$0 ,80172516 ;IS MMRS CORRECT 
3$ YE ON 
+1 ;CPU ERROR 
NO GO TO 
#0 .8¢177772 31S PIRQ _ 
4$ ;YES 
+1 ;CPU ERROR 
;NO GO TO ERROR 
804 ,R2 ;SAVE LOC 4 IN R2 
846 ,R3 ;SAVE LOC 6 IN R3 
083,804 sSETUP VECTORS IN CASE AN ERROR CAUSES 
:A HALT TO OCCUR IN USER MODE. 
$340 ,806 ;THIS SETS KERNEL MODE, AND PREVENTS PRIQ 
s INTERRUPTS FROM TRASHING THE STACK IF A 
;USER MODE HALT OCCURS. 
#140340, 80177776 SSETUP PSW TO USER MODE 
#160000, 84177572 ;SETUP MMRO 
#77 ,80172516 ;SETUP MMR3 
477000 ,8¢177772 ;SETUP PIRQ 


s;SET ALL CC BITS 








COKDAEO KOJ11-8 CLUSTER DIAG. 
seeeeaeeeeeee DOUBLE OPERAND TESTS eeececacdaceseaces 


5756 
5757 
) 


cnt Sgetenaheiinjersanietiteenpabeisnsetbeesemaecnanssenenics 


023462 
023464 


023600 


000005 
022737 
001402 
000000 


104001 


013701 
042701 
022701 
001402 
000000 


104001 


022737 
001402 
00 


010237 
010337 


012705 
012701 
012737 
004767 
022137 
001401 
104001 


077512 


012705 
012737 
012706 
004767 
022737 
001401 
104001 


077515 


000167 


140357 


177572 
000176 
160000 


000077 


077314 


177772 
177776 
000004 
000006 


177776 


000020 
140017 


000152 





mee 
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177776 


172516 


177772 


177776 


177776 


177776 


5$: 


6$: 


7$: 


8$: 
9$: 


FINI21: 


r 
TE122: 
; 


1S: 


2$: 


4$: 


a eeerre re 


+1 


84177572,R1 
#176 ,R1 
eo 


+1 


#77,80172516 
7$ 


+1 


atti 


+1 


80177772 
96177776 


R2 ,804 
R3 , 806 


SEQ 0108 


; TEST INSTRUCTION 

:IS PSW CORRECT 

;YES GO ON 

;USER MODE HALT; WILL TRAP TO LOC 4 
;CPU ERROR 
iNO GO TO ERROR 

sSAVE MMRO IN Ri 

;CLEAR BITS 1-6 FROM MMRO 

sI1S MMRO CORRECT 

;YES GO ON 

;USER MODE HALT; WILL TRAP TO LOC 4 
;CPU ERROR 
sNO GO TO ERROR 

;I1S MMR3 CORRECT 

;YES GO ON 

sUSER MODE HALT; WILL TRAP TO LOC 4 
;CPU ERROR 
;NO GO TO ERROR 

;IS PIRQ CORRECT 

;YES GO ON 

sUSER MODE HALT; WILL TRAP TO LOC 4 
;CPU ERROR 
:NO GO TO ERROR 

sUSER MODE HALT OCCURRED; GO TO ERROR. 


;CLEAR PIRQ 

;CLEAR PSW 

sRESTORE VECTORS TO PREVIOUS STATE 
; 


TEST SPL (SET PRIORITY LEVEL) 


#8.,R5 
#71228 ,R1 
#30000 ,80177776 


PC, T1i22A 
oe 
$ 


+1 
R5,1$ 


#8.,R5 
#140000 , 86177776 
#600 ,R6 


;INIT COUNTER 
;SETUP POINTER TO DATA 
;INIT PSW 
; TEST INSTRUCTION 
:IS PSW CORRECT 
;YES GO ON 
;CPU ERROR 
:NO GO TO ERROR 
;REPEAT UNTIL ALL CASES ARE TESTED 


;INIT COUNTER 
sSETUP PSW TO USER MODE 
sSETUP USER STACK 


PC,1122A ; TEST INSTRUCTION 
#140017, 90177776 :IS PSW CORRECT 
4s ;YES GO ON 
+1 ;CPU ERROR 
;NO GO TO ERROR 
RS5,3$ sREPEAT UNTIL ALL CASES ARE TESTED 
FIN122 














wee * 
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eeeeeeeeeeee DOUBLE OPERAND TESTS «#000804 0664446668 


-— 


5815 ; 
5816 023672 020527 000010 T122A: CMP R508 sFIND OUT WHAT COUNTER IS 
5817 023676 001003 BNE i$ ;IF NOT PRIORITY O GO TO i$ 
5818 023700 000277 scc ;SET ALL CC BITS 
5819 023702 000230 SPL 0 sSET PRIORITY TO 0 
5820 023704 000446 BR 8$ ;RETURN 
5821 023706 020527 000007 1$: CMP RS ,@7 sFIND OUT WHAT COUNTER IS 
5822 023712 001003 BNE es ;IF NOT PRIORITY 1 GO TO 2$ 
5823 023714 000277 scc ;SET ALL CC BITS 
5824 023716 000231 SPL 1 ;SET PRIORITY TO 1 
5825 023720 000440 BR 8$ sRETURN 
5826 023722 020527 000006 2s: CMP RS, #6 sFIND OUT WHAT COUNTER IS 
5827 023726 001003 BNE $ ;IF NOT PRIORITY 2 GO TO 3$ 
5828 023730 77 scc ;SET ALL CC BITS 
5829 023732 000232 SPL 2 ;SET PRIORITY TO 2 
5830 023734 000432 BR v4 sRETURN 
5831 023736 020527 000005 3$: CMP R5,¢#5 sFIND OUT WHAT COUNTER IS 
5832 023742 001003 BNE $ ;IF NOT PRIORITY 3 GO TO 4$ 
5833 023744 000277 scc ;SET ALL CC BITS 
5834 023746 000233 SPL 3 ;SET PRIORITY TO 3 
5835 023750 000424 BR 8$ ;RETURN 
5836 023752 020527 000004 4$: CMP R5, #4 sFIND OUT WHAT COUNTER IS 
5837 023756 001003 BNE 5$ ;IF NOT PRIORITY 4 GO TO 5$ 
5838 023760 000277 scc ;SET ALL CC BITS 
5839 023762 000234 SPL 4 ;SET PRIORITY TO 4 
5840 023764 000416 BR 8$ ;RETURN 
5841 023766 020527 000003 5$: CMP R5,¢3 ;FIND OUT WHAT COUNTER IS 
5842 023772 001003 BNE 6$ ;IF NOT PRIORITY 5 GO TO 6$ 
5843 023774 000277 scc ;SET ALL CC BITS 
5844 023776 000235 SPL 5 ;SET PRIORITY TO 5 
5845 024000 000410 BR 8$ ;RETURN 
5846 024002 020527 000002 6$: CMP RS ,¢2 ;FIND OUT WHAT COUNTER IS 
5847 024006 001003 BNE 7$ ;IF NOT PRIORITY 5 GO TO 7$ 
5848 024010 000277 scc ;SET ALL CC BITS 
5849 024012 000236 SPL 6 ;SET PRIORITY TO 6 
5850 024014 000402 BR 8$ ;RETURN 
5851 024016 000277 7$: SCC ;SET ALL CC BITS 
5852 024020 000237 SPL 7 ;SET PRIORITY TO 7 
ann 024022 000207 8$: RTS PC ;RETURN 
5 024024 030017 T1228: .WORD 30017 

5856 024026 030057 -WORD 30057 
5857 024030 030117 -WORD 30117 

58 024032 030157 -WOPD 30157 
5859 024034 030217 -WORD 30217 
5860 024036 030257 -WORD 30257 
5861 024040 030317 -WORD 30317 
5862 024042 030357 -WORD 30357 
5863 024044 000240 FIN122: NOP 
5864 ; 
5867 024046 TE123: 
5868 3 TEST TSTSET INSTRUCTION (MULTI PROCESSING INST) 
5869 024046 005037 177776 CLR 8177776 ;INIT PSW 
5870 024052 012703 000012 MOV #10. ,R3 :INIT COUNTER 
5871 024056 012701 000400 MOV #400 ,R1i ;SETUP DESTINATION 
$872 024062 012700 024230 MOV #T123A,RO0 ;SETUP SOURCE 
5873 024066 012021 100$: MOV (RO)+,CR1)+ ;sRELOCATE TABLES 








SEQ 0109 








COKDAEO KDJ11-B8 CLUSTER DIAG. 
*eeeeeeeeeee DOUBLE OPERAND TESTS #200664204204446444 


5874 024070 
5875 024072 
5876 024076 


5877 
5878 


024104 
024106 


022341 


6 
012637 


000019 
024254 


000400 
000410 
000416 


030000 


177776 


000001 


177777 
024256 


000032 


000019 
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000010 


177776 


000010 


1$: 


2$: 


3$: 


4$: 


5$: 


R3,100$ 
8¢10, -(SP) 
#T1230,8010 
RO 


R1,R4 
#30000 ,8¢177776 


7221 
(R2)+,80177776 
2s 

+1 


#1,(R3) 
(R3)+,-€R1) 
5$ 

+1 

Ri 

R1 
spenemerneet 
#T123E ,8%10 
7201 

+1 

T123F 


167604 
0 


(SP)+ 
(SP)+ 
(SP)+,8#10 


SEQ 0110 


;ARE WE DONE 
s;SAVE VECTOR 
s;SETUP NEW VECTOR 


sINIT RO 

sSETUP POINTERS TO TABLES 
i 

; 


; 
;SETUP PSW 
;SET V BIT 
; TEST INSTRUCTION 
;I1S PSW CORRECT 
;YES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
;IS RO CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;SETUP EXPECTED DATA 
$ 
;IS Ri CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;SETUP EXPECTED DATA 
:IS TEST LOCATION CORRECT 
:YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
sPOINT TO NEXT TEST LOCATION 


$ 
;ARE WE DONE 
:NO GO TO i$ 
;SETUP NEW VECTOR 
; TEST INSTRUCTION ILLEGAL MODE 
;CPU E 
; 


RROR 
GO TO ERROR IF DIDN'T TRAP 


;CPU ERROR 
:;GO0 TO ERROR IF TRAPPED 
;CLEAN UP STACK 


;RESTORE VECTOR 





-_ 





COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeeeeeeees DOUBLE OPERAND TESTS seanedesetceeeeaas 


5931 
5934 
5925 


986 
5987 
5988 
5989 


024266 


024456 


024462 
024464 
024466 


177776 
000012 


177776 


177777 


024510 000010 


000032 
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000010 


177776 


6 
TE124: 
; 


100$: 


1$: 


2s: 


3$: 
4$: 


5$: 


6$: 


7$: 


; 
T124A: 


. WORD 
. WORD 
. WORD 


#10. ,R3 
#400 ,R1 
#T124A,RO0 
CRO)+,CR1)+ 
R3,100$ 
810, -CSP) 
#T124D ,8¢10 
#400 ,R1 
#410,R2 
#416,R3 


R2,R4 
#30000 ,8#177776 
CR1i),RO 


+1 


(R1)+ . -(R2) 
8&$ 

+1 

R2 

R2 
erenrs 
#T124E ,8#10 
7302 

+1 

T124F 


167604 
0 
1 


SEQ O111 


TEST WRTLCK CWRITE LOCK MULTI PROCESSING INST) 
R 80177776 SW 


;INIT P 

sINIT COUNTER 
sSETUP DESTINATION 
sSETUP SOURCE 
;RELOCATE TABLES 
sARE WE DONE 

;SAVE VECTOR 
;SETUP NEW VECTOR 
sSETUP POINTERS TO TABLES 
; 

i 


; 

sSETUP PSW 

sSETUP RO 

;IS THIS THE FIRST TEST CASE 
sYES GO TO 2$ 

:NO GO TO 3$ 

sSET C BIT 


; 
;CLEAR C BIT 
sSET V BIT 
; TEST INSTRUCTION 
;IS PSW CORRECT 
;YES GO ON 

;CPU ERROR 

;NO GO TO ERROR 
sIS RO CORRECT 
;YES GO ON 

sCPU ERROR 

;NO GO TO ERROR 
sSETUP EXPECTED DATA 


3 
:IS R2 CORRECT 
sYES GO ON 
;CPU ERROR 
7NO GO TO ERROR 
:IS TEST LOCATION CORRECT 
S GO ON 


;CPU ERROR 
:NO GO TO ERROR 
;POI.iT TO NEXT TEST LOCATION 


: 
;ARE WE DONE 
;NO GO TO i$ 
;SETUP NEW VECTOR 
; TEST INSTRUCTION ILLEGAL MODE 
;CPU ERROR 
;GO TO ERROR IF DION‘T TRAP 
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5990 024470 


177777 
177777 


005037 
012701 


010137 


000010 


177776 
024760 


114146 
000002 
122222 


000002 


000004 


000006 


000010 


000002 


000012 


025206 


024760 


001000 
090004 


000002 
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-WORD 177777 


T124B: WORD 177777 
. WORD 177777 
.WORD 177777 
T124C: .WORD 30011 
-WORD 30004 
-WORD 30000 
T124D: ERROR +1 ;CPU ERROR 
;GO TO ERROR IF TRAPPED 
T124E: TST (SP)+ ;CLEAN UP STACK 
TST (SP)>+ ’ 
T1i24F: MOV (SP)+,8¢10 sRESTORE VECTOR 
; 
TE125: 
: TEST MUL CMULTIPLY INST) 
CLR 84177776 ;INIT PS 
MOV @TE125A,R1 ;SETUP POINTERS TO TABLES 
1$: MOV R1,@@EXPDAT ; 
114146 ADO $2 , 9@EXPDAT ;POINT TO SOURCE 
MOV #122222 ,R3 sINIT R3 TO A KNOWN STATE 
MOV (R1),R2 ;INIT DESTINATION REG 
scc ;SET ALL CC BITS 
MUL 2(Ri),R2 ; TEST INSTRUCTION 
177776 CMP 4(R1),80177776 sIS PS CORRECT 
BEQ 2$ ;YES GO ON 
ERROR +1 ;CPU ERR 
;NO GO TO ER 
2$: CMP 6(R1),R3 :IS R3 CORRECT 
BEQ 3$ ;YE ON 
ERROR +1 ;CPU ERROR 
3NO GO TO ERROR 
3$: CMP 10(R1),R2 ;IS R2 CORRECT 
BEQ 4$ :YES GO ON 
ERROR +1 ;CPU ERROR 
;NO GO TO ERROR 
067330 43: CMP 2CR1), B9EXPDAT :IS SOURCE LOCATION OK 
BEQ 5$ ;YES GO ON 
ERROR +1 ;CPU ERROR 
:NO GO TO ERROR 
S$: ADD #12,R1 ;G0 TO NEXT TEST 
CMP Ri, @FIN125 ;ARE WE FINISHED 
BNE i$ ;NO GO TO i$ 


; 
;SECOND PART 
sUSING ODD REGISTER 


a 
6: MOV #TE125A,R1 ;SETUP POINTERS TO TABLES 
MOV R1,R2 : 
MOV #STBOT ,R6 ;INIT R6 TO A KNOWN STATE 
MOV R4 SETUP R4 VALUE 


$4, ; 
MOV (R1),R5 ;INIT DESTINATION REG 
scc ;SET ALL CC BITS 
MUL 2(R1),R5 ; TEST INSTRUCTION 


SEQ 0112 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
eeeeeeeeeses DOUBLE OPERAND TESTS see0000640440046% 


ilinnces hipeician 


026137 000004 177776 


001401 
104001 


026105 
001401 
104001 
020627 
001403 
012706 
104001 
005722 
021261 
001401 
104001 
020427 
001401 
104001 
062701 


020127 
001332 


000167 


177777 
177777 


000000 
174403 
077777 
177777 
077777 
000456 


000001 
177322 
000226 
173210 
000000 


000004 


000006 


001000 
001000 


000002 


000004 


000012 
025206 


000226 


8$: 


9$: 


10$: 


11$: 


; 
TE125A: . 


4(R1),80177776 
8$ 

+1 
6(R1),R5 
9$ 

+1 
R6,@STBOT 
10$ 

#STBOT ,R6 
+1 

(R2)>+ 
CR2),2CR1) 
11$ 

+1 

R404 

12$ 

+1 


#12,R1 
atlas 


FINI25 


177777 
177777 


0 
174403 
177777 
77777 
10 
100001 
177777 


77777 
456 


i 
177322 
226 


173210 
0 
4 
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;IS PS CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 

: ;IS RS CORRECT 
;YES GO ON 
;CPU ERROR 


sNO GO TO ERROR 
sIS R6 CORRECT 
YES GO ON 


; 
;RESTORE SP 

;CPU ERROR 

;NO GO TO ERROR 
sPOINT TO SOURCE OPERAND 
sIS SOURCE LOCATION OK 
;YES GO ON 

;CPU ERROR 

;NO GO TO ERROR 

:IS R4 CORRECT 

;YES GO ON 

;CPU ERROR 

;NO GO TO ERROR 


| 
;ARE WE FINISHED 
:NO GO TO 7$ 


;MULTIPLICAND 
;MULTIPLIER 


;MUL TIPLICAND 
sMULTIPLIER 


;MUL TIPLICAND 
sMULTIPLIER 


;MULTIPLICAND 
;MULTIPLIER 


;MULTIPLICAND 
;MULTIPLIER 


SEQ 0113 


COKDAEO KDJ11-B CLUSTER DIAG. 


-— 


6106 025036 
6107 025040 
6108 


6120 

6121 025066 
6122 025070 
6123 025072 
6124 025074 
6125 025076 
6126 

6127 025100 
61286 025102 
6129 025104 
6130 025106 
6131 025110 
613 


6160 025170 
6161 025172 
6162 





00000 
177777 
077777 
000001 


000000 
077777 
000000 


109000 
000011 


000000 
177777 
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@e400066604¢ DOUBLE OPERAND TESTS «440040406 6406608 


oo 


iS) 
ui 
oa 


oofoo ocoswo 


00000 
177777 
77777 
1 


0 
77777 
0 


2 
100000 
1i 


0 
177777 


;MUL TIPLICAND 
;sMULTIPLIER 


;MULTIPLICAND 
;MULTIPLIER 


;MUL TIPLICAND 
;MULTIPLIER 


;MUL TIPLICAND 
sMULTIPLIER 


;sMUL TIPLICAND 
;sMULTIPLIER 


;MUL TIPLICAND 
;MULTIPLIER 


sMULTIPLICAND 
sMULTIPLIER 


sMUL TIPLICAND 
;MULTIPLIER 


;MUL TIPLICAND 
;sMULTIPLIER 





SEQ 0114 


ici Pease leeatali aepbeianeeniemrenensinimnemeniins 





COKDAEO KOJ11-8 CLUSTER DIAG. 
eeeeeeeesese DOUBLE OPERAND TESTS se00046060606666% 


6163 025174 
6164 025176 
6165 025200 


6177 025220 


6190 025272 
6191 025276 
6192 025300 
6193 025302 
6194 025304 
6195 025310 
0196 

6197 025312 
6198 025316 
6199 322 


6220 025410 
6221 025416 


000001 
177777 
000010 
177777 
177777 


177776 
000000 
000002 
000137 
025254 


000002 
001000 


000000 
001000 


025246 


001000 


000047 


000004 


000000 
000007 177776 
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000000 
000002 


177776 


177776 


FINI25: — 


3 
TE126: 
° 


A126: 


TE126A: 


if: 


2s: 


3$: 
4$: 


5$: 


1 
177777 
10 


177777 
177777 


TEST DIV (DIVIDE INST) 
CLR 80177776 


#137 ,800 
#TE126A, 002 
#2 ,R6 
@STBOT ,R6 
+1 

60 ,80177776 
@STBOT ,R6 
+1 


A126,R4 
R4 

R4 RE 

2s 

#STBOT ,R6 
+1 


RS ,880 
Ri, @e2 
@STBOT .R6 
»R2 
047,R3 


R2,R3 
$2 ,80177776 
3$ 

ol 

06 ,R2 
4$ 

+1 
047,R3 
5$ 

+1 

R4 
#4,R5 


#0,R4 
#7 ,80177776 
6$ 


;MUL TIPLICAND 
;MULTIPLIER 


;INIT PSW 

sINIT SP 

;SAVE VECTORS 

; 

;SETUP NEW VECTORS 


; 

;SET ALL CC BITS 

3 TEST INSTRUCTION 

sRESTORE SP BEFORE GOING TO ERROR 
;CPU ERROR 
;IF R7 ISN’T CORRECT GO TO ERROR 

:IS PS CORRECT 

;YES GO ON 

sRESTORE SP BEFORE GOING TO ERROR 
;CPU ERROR 
;NO GO TO ERROR 

sSETUP EXPECTED DATA 


; 
;IS R6 CORRECT 
;YES GO ON 
sRESTORE SP BEFORE GOING TO ERROR 
;CPU 
; 


ERROR 
NO GO TO ERROR 
sRESTORE VECTORS 


;NO GO TO ERROR 
;INIT R4 
:INIT RS 
;SET ALL CC BITS 
; TEST INSTRUCTION 
:IS PS CORRECT 
;YES GO ON 





SEQ 0115 








COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeee000644 DOUBLE OPERAND TESTS 444446446444 464460446% 


— 


6222 025420 
6223 


6238 025466 
6239 025470 
6240 025474 
6241 

6242 025476 
6243 025502 
6244 025506 
6245 025510 


6246 
6247 025512 
6248 025516 
6249 025520 
6250 


6251 025522 
6252 025526 
6253 025530 


6254 

6255 025532 
6256 025536 
6257 025540 
6258 025542 
6259 025546 
6260 025554 
6261 025556 
6262 

6263 025560 
6264 025564 
= 025566 


266 
6267 025570 
6268 025574 
a. 025576 


6273 
6274 025600 
6275 
6276 025604 


6277 025610 
6278 025612 


104001 


022704 
001401 
104001 


022705 
001401 
10400 


012701 


010137 
011104 
016103 


000000 


000004 


000004 
000010 


000000 
152704 


152676 


000004 


000002 


000000 


000010 


000003 


0000°0O 


000002 


0000¢2 


025730 
114146 
000004 
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177776 


177776 


6$: 


7$: 


9$: 


10$: 


11$: 


12$: 


13%: 


14$: 


ERROR 


RO,R4 

40 ,80177776 
as 

RO,400 

+1 


400,R0 
$4 ,RO 
10$ 
ol 


#2 ,.R4 
11$ 
+1 


#0,R5 
12$ 
+1 


#10,R5 
R4 


03,R4 
#0 ,80177776 
13$ 

ol 

#2,R4 


14% 
+1 


$2,R5 
15$ 
+1 


#TE126B8,R1 


R1,@9EXPDAT 
CR1),R4 
4(R1),R3 





s;CPU ERROR 

sNO GO TO ERROR 

sIS R4 CORRECT 
YES GO ON 


; 
;CPU ERROR 
;NO GO TO ERROR 
;IS RS CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 


sINIT R4 
;SET ALL CC BITS 
; TEST INSTRUCTION 
:I1S PS CORRECT 
sYES GO ON 
;SAVE RO 
;CPU ERROR 
:NO GO TO ERROR 
sRESTORE RO 
:I1S RO CORRECT 


sSET ALL CC BITS 
; TEST INSTRUCTION 
sIS PS CORRECT 


;CPU ERROR 
:NO GO TO ERROR 


;SETUP POINTERS TO TABLES 


sSAVE A COPY OF Ri 
sINIT R4 
s;SAVE SOURCE 





SEQ 0116 


ee 
ee 





COKDAEO KOJ11-B CLUSTER DIAG. 


— 


6279 
prey 025616 


6309 
6310 025724 
6311 


6312 

6313 025730 
6314 025732 
6315 025734 
6316 025736 
6317 025740 
6318 025742 


6332 025772 
6333 

6354 025774 
6335 025776 





010361 
062701 
021127 
001330 


000167 


177777 
177777 


177777 
000000 
177777 
000002 


000000 
177777 


000000 
007642 


000002 


000004 
000006 
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666666666.8¢ YOUBLE OPERAND TESTS seeeseeeeecececes 


177776 


17$: 


18$: 


21$: 


SEQ 0117 


2(R1),R5 ;INIT RS 
;SET ALL CC BITS 

4(R1),R4 ; TEST INSTRUCTION 
6(R1),80177776 ;IS PS CORRECT 
17$ ;YES GO ON 
+1 ;CPU ERROR 

:NO GO TO ERROR 
10(R1),R5 :IS RS CORRECT 
18$ sYES GO ON 
+1 ;CPU ERROR 

;NO GO TO ERROR 
12CR1),R4 sIS R4 CORRECT 
19% ;YES GO ON 
+1 ;CPU ERROR 

:NO GO TO ERROR 
BPEXPDAT ,R1 ;IS Ri CORRECT 
20$ ;YES GO ON 
+1 ;CPU ERROR 

;NO GO TO ERROR 
SeEXPDAT ,R1 sRESTORE CORRECT VALUE 
4(R1),R3 sIS SOURCE CORRECT 
21% ;YES GO ON 
o1 ;CPU ERROR 

3NO GO TO ERROR 
R3,4CR1) ;TRY TO RESTORE CODE 
$14,R1 sPOINT TO NEXT LOCATION 
(Ri), #333 ;ARE WE DONE 
16$ ;NO GO TO 16$ 
FINI26 
177777 ;DIVIDEND 
177777 =;INIT R5 
177777 ;DIVISOR 
0 ;PSW 
0 :R5S RESULT 
i sR4 RESULT 
0 ;DIVIDEND 
177777 = ;INIT R5 
177777 ;OIVISOR 
12 :PSW 
177777 ;R5 RESULT 
0 3R4 RESULT 
177777 ;DIVIOEND 
0 sINIT RS 
177777 ;O0IVISOR 
2 ;PSW 
0 ;R5 RESULT 
177777 ;R4 RESULT 
0 sOIVIDEND 
7642 sINIT RS 


COKDAED KDJ11-8 CLUSTER DIAS. 








eeesaecesceae DOUBLE OPERAND TESTS eeceecansesaceess 


6390 026134 
6391 026136 
6292 026140 


007643 
000004 
007642 
000000 


000000 
000137 
177543 


000004 
000137 
000000 


000000 
007643 
007643 


177777 
045716 
000001 
000012 
045716 
177777 
000000 


2 
177770 





7643 


4 
7642 
0 


0 
177777 
i 

2 
177777 
0 
177777 
45716 
1 

12 
45716 
177777 
0 

2 
177770 
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sDIVISOR 
;PSwW 

sR5 RESULT 
3R4 RESULT 
;DIVIDEND 
sINIT R5 
sDIVISOR 
3PSW 


sRS RESULT 
3R4 RESULT 


;DIVIDEND 
sINIT RS 
;O0IVISOR 
;PSW 

3RS RESULT 
3R4 RESULT 


3 
3RS RESULT 


sR4 RESULT 


sDIVIDEND 
sINIT RS 

;DIVISOR 

PSW 


3 
3RS RESULT 
:R4 RESULT 


;PSW 
385 RESULT 


;R5 RESULT 
;R4 RESULT 


;DIVIDEND 
:INIT R5 
;DIVISOR 


SEQ 0118 





COKDAEO KOJ11-8 CLUSTER DIAG. 
eeeeeececeece DOUBLE OPERAND TESTS eeeceesasececeece 


6394 026144 . WORD 3R5 RESULT 
pro 026146 000000 .WORD 0O 3R4 RESULT 
6397 026150 177777 -WORD 177777 ;DIVIDEND 
6398 026152 177776 -WORD 177776 ;INIT RS 
6399 026154 000010 -WORD 10 ;DIVISOR 
6400 026156 000004 -WORD 4 3PSW 
6401 026160 177776 -WORD 177776 ;R5S RESULT 
ae 026162 000000 -WORD 0O 3R4 RESULT 
6404 026164 000001 -WORD i ;DIVIDEND 
6405 026166 177777 -WORD 177777 ;INIT R5 
026170 000001 -WORD 1 ;DIVISOR 
6407 026172 -WORD 2 ;PSW 
6408 026174 177777 -WORD 177777 ;R5S RESULT 
con 026176 1 -WORD 1 3R4 RESULT 
6411 026200 000001 -WORD 1 sDIVIDEND 
6412 026202 000000 -WORD O sINIT RS 
6413 000002 -WORD 2 sDIVISOR 
6414 026206 000002 -WORDB 2 3 
6415 026210 000000 -WORD 0 3R5 RESULT 
oat 026212 000001 -WORD 1 3sR4 RESULT 
6418 026214 000001 -WORD 1 sDIVIDEND 
6419 026216 000000 -WORD 0O sINIT RS 
6420 026220 000003 -WORD 3 sDIVISOR 
6421 000000 -WORD 0 ;PSW 
6422 026224 000001 -WORD 1 sRS RESULT 
aa 026226 052525 -WORD 52525 3R4 RESULT 
6425 026230 000023 -WORD 23 ;DIVIDEND 
6426 026232 016054 -WORD 16054 sINIT RS 
6427 026234 016537 -WORD 16537 ;DIVISOR 
6428 026236 . WORD ;PSW 
6429 026240 010222 -WORD 10222 +3 ;R5 RESULT 
pe 026242 246 . WORD 3R4 RESULT 
6432 026244 000333 -WORD 333 
6433 026246 FIN126: 
6434 3 
6437 026246 TE127: 
6438 ; TEST ASH CARITHMETIC SHIFT) 
6439 025246 005037 177776 CLR 90177776 ;INIT PSW 
6440 026252 012702 000001 “OV #1,R2 ;SETUP OPERAND 
6441 026256 000277 $cc ;SET ALL CC BITS 
6442 026260 072202 ASH R2,R2 ; TEST INSTRUCTION 
6443 026262 022737 000000 177776 cP 00 ,94177776 :IS PS CORRECT 
6444 026270 001401 c£Q i$ ;YES GO ON 
6445 026272 104001 ERROR +1 ;CPU ERROR 
6446 ;NO GO TO ERROR 
6447 026274 020227 000002 1$: CMP R2,¢2 :IS R2 CORRECT 
6448 026300 001401 BEQ 23 ;YES GO ON 
6449 026302 104001 ERROR +1 ;CPU ERROR 
6450 ;NO GO TO ERROR 
6451 026304 012702 100000 2s: MOV #100000, R2 ;SETUP R2 


000004 
000002 
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4 
2 


3PSW 





SEQ 0119 





COKDAEO KDOJ11-B8 CLUSTER DIAG. 
eeeeseceeees DOUBLE OPERAND TESTS aeeeecadeasececee 


6452 026310 


—— 


6453 


026314 


54 026316 


012703 
000257 


012701 
010103 


177761 
077777 
000005 
000000 


177700 
017777 
000000 


017777 


000001 


000007 


000001 


026446 


000010 
026706 


000240 
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177776 


177776 


3$; 


5$: 
6$: 


7$: 


9$: 


10$: 


#1,R3 
R3,R2 

07 ,80177776 
3$ 

+1 

R3,41 

4$ 

+1 

R2,¢0 

S$ 

ol 
@TE127A,R1 


R1,R3 
2(R1),R2 


(R1),R2 
rn 


“1 
6(R1),R2 
8$ 

+1 

R3,R1 

9$ 

ol 

R3,R1 
CR3),CR1) 
10$ 

ol 

$10,R1 
R1, OF INL27 
6$ 

FINL27 
177761 
aia 


0 


177700 
17777 


0 
17777 


; SOURCE 
;DEST 


; SOURCE 
;DEST 


sSETUP R3 
sCLEAR ALL CC BITS 
; TEST INSTRUCTION 
sIS PS CORRECT 
sYES GO ON 

s;CPU ERROR 

sNO GO TO ERROR 
sIS R3 CORRECT 
sYES GO ON 

;CPU ERROR 

sNO GO TO ERROR 


;CPU ERROR 
:NO GO TO ERROR 
sSETUP POINTERS TO TABLES 


; 
sSETUP R2 
sSET ALL CC BITS 
; TEST INSTRUCTION 
sIS PS CORRECT 

GO ON 


sYES GO 


;SOURCE LOOKS INCORRECT 
s INCREMENT POINTER 

;ARE WE DONE 

;NO GO TO 6$ 





SEQ 0120 


COKDAEO KDJ11-B8 CLUSTER DIAG. 





eesceeeesceeeos DOUBLE OPERAND TESTS seeeesesrscaaneesce 


-— 


6509 026466 
6510 026470 
6511 026472 


177700 
100000 
000010 
100000 


177777 
100000 
000010 
140000 


177737 
177777 


000011 
177777 


017777 


177713 
000012 
000000 
050000 


177707 
170001 
000002 


000200 
177717 


177742 
100000 


000011 
177777 


177764 
100000 


177700 
100000 


10 
100000 
177777 
100000 
10 
140000 


177737 
177777 


11 
177777 


177706 
— 


0 


177710 
17777 


177713 
12 


0 
50000 


177707 
_— 


200 
177717 
i 


12 
100000 


177740 
errr 


0 


177771 
150000 


177777 


177764 
100000 
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; SOURCE 
;DEST 


; SOURCE 
;DEST 


; SOURCE 
;DEST 


; SOURCE 
;D0EST 


; SOURCE 
;DEST 


; SOURCE 
;DEST 


; SOURCE 
;DEST 


s SOURCE 
;DEST 


; SOURCE 
;DEST 


; SOURCE 
;DEST 


; SOURCE 
;DEST 


; SOURCE 
;DEST 





COKDAEO KOJ11-B CLUSTER DIAG. 
eeeeceeeeees DOUBLE OPERAND TESTS eaeecesaeesececes 


—— 


6566 
6567 
6 


026622 
026624 


000010 
177770 


000011 
177777 


177770 


177712 
004367 
000013 
156000 


177764 
017777 
000001 
000001 


177701 
110000 
000003 
020000 


000240 


177776 
000023 
052525 


177776 


000023 


125250 


000000 
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000012 


-WORD 10 
-WORD 177770 
-WORD 177750 ; SOURCE 
-WORD 52525 ;DEST 
-WORD 4 
.WORD 0O 
-WORD 177760 ; SOURCE 
-WORD 100000 ;DEST 
-WORD iil 
-WORD 177777 
-WORD 177770 ;SOURCE 
-WORD 100000 ;DEST 
-WORD 10 
-WORD 177600 
-WORD 177712 ; SOURCE 
-WORD 4367 ;DEST 
-WORD 13 
-WORD 156000 
-WORD 177764 ; SOURCE 
-WORD 17777 ;DEST 
-WORD i 
-WORD 1 
-WORD 177701 ; SOURCE 
-WORD 110000 ;DEST 
-WORD 3 
-WORD 20000 
FIN127: NOP 
; 
TE130: 
: TEST ASHC CARITHMETIC SHIFT COMBINED) 
CLR 80177776 ;INIT PSW 
MOV #23,Ri ;SETUP R1 
MOV #52525 ,.R5 ;SETUP RS 
CLR R4 sSETUP R4 
scc :SET ALL CC BITS 
ASHC R1,R4 ; TEST INSTRUCTION 
CMP 8¢177776,¢12 7IS PS CORRECT 
BEQ i$ ;YES GO ON 
ERROR +i ;CPU ERROR 
;NO GO TO ER 
1$: CMP R1,¢23 :IS Ri CORRECT 
BEQ 2$ ;YES GO ON 
ERROR +1 ;CPU ERROR 
:NO GO TO ERROR 
2s: CMP R4, #125250 ;IS R4& CORRECT 
BEQ 3$ ;YES ON 
ERROR +1 ;CPU E 
;NO GO TO ERROR 
3$: CMP R5,#0 ;IS RS CORRECT 
BEQ 4$ ;YES GO ON 





SEQ 0122 





COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeeecesease DOUBLE OPERAND TESTS seeeeesasacaacace 


ooo 026772 


—— 


104001 
012703 
005002 


052525 
164731 


000023 
177776 


000000 


000000 


164731 


027166 


000002 


000004 


177776 


000010 


000012 


000014 
027576 
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000012 


000006 


4$: 


5$: 


6$: 


7$: 


8$: 
9$: 


10$: 


12$: 


14$: 


+1 


#52525 ,R3 
R2 
#164731,R4 


#23,R3 
ee 


+1 
R2,#0 
6$ 

+1 
R3,00 
7$ 

+1 


R4, 0164731 
8$ 


+1 


#TELI30OA,R1 


R1,R4 


2(R1),R2 
4(R1),R3 


(R1),R2 
99177776 ,6(R1) 
10$ 


+1 


10(R1).R2 
11$ 


+1 


12(R1),R3 
12$ 


+1 


R4,R1 
13$ 
+1 


R4,R1 
CR1),CR4) 
14$ 


+1 


#14,R1 
R1,#FIN130 
93 


;CPU ERROR 
;NO GO TO ERROR 


R4 
;SET ALL CC BITS 
; TEST INSTRUCTION 
sIS PS CORRECT 
sYES GO ON 
;CPU ERROR 
sNO GO TO ERROR 
sIS R2 CORRECT 
YES GO ON 


$ 
;CPU ERROR 
;NO GO TO ERROR 
;I1S R3 CORRECT 
;YES GO ON 
;CPU ERROR 
;NO GO TO ER 
:IS R4&4 CORRECT 
sYE ON 
;CPU ERROR 


;NO GO TO ERROR 
i 


5 
sSETUP POINTERS TO TABLES 


;SAVE A COPY OF R1 
sSETUP R2 


;YES GO ON 


;YES G 
OR 


ROR 
:IS R1 CORRECT 
;YES GO ON 


;CPU ERROR 
;NO GO TO ERROR 
;IS SOURCE CORRECT 
:YES GO ON 
;CPU ERROR 
;NO GO TO ERROR 
;POSSIBLE SOURCE CODE CORRUPTION 
:;GO TO NEXT TEST 


;ARE WE DONE 
sNO GO TO 9$ 


SEQ 0123 


COKDAEO KDJ11-8 CLUSTER DIAG. 





eeeeeeeeeacee DOUBLE OPERAND TESTS #046464664664460464 


6735 

6736 027312 
6737 027314 
6738 027316 


000167 000410 


177700 
100125 
177777 
000010 
100125 
177777 


177777 
000001 


000000 
000000 
000000 
100000 


177701 
047777 


065700 


177740 
100000 
000000 


; 
TE1L30A: . 


100125 
177777 


177777 
1 

0 

0 

0 
100000 
177701 
47777 
100000 


12 
117777 
0 


177706 
4256 
— 
25677 
170000 


177711 
65700 
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; SOURCE 
sDESTINATION WORD 1 
s;DESTINATION WORD 2 
sTEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 
;TEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
s;DESTINATION WORD 2 


sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 


sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
;DESTINATION WORD 2 
sTEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
;DESTINATION WORD 2 
;TEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
;DESTINATION WORD 2 
;TEST PSW 

;RESULT WORD 1 
;RESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 


RE ee Oe ee ee Se 


SEQ 0124 


COKDAEO KOJ11-8 CLUSTER DIAG. 


6767 
6768 
6769 
6770 
6771 
6772 
6773 


027322 
027324 


027376 
027400 
027402 
027404 


027406 
027410 
027412 
027414 





000011 
177777 
177777 
177725 
177777 
174000 
000007 
000000 
000000 
177724 


177777 


000010 
177777 


177742 
077777 
177777 
000001 
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eeeeeee0ee0e0e DOUBLE OPERAND TESTS seeeeeeeeeeeeeene 
6739 027320 


11 
177777 
177777 
177725 
177777 
174000 
0 


177724 
177777 


177733 
177777 
157023 


12 
114000 
0 
arrree 
177777 
13 
177600 
0 


177717 
177777 


177741 
_—- 


10 
177777 
177777. 


177742 
37777 
lie 


0 
0 


177742 





s;TEST PSW 
sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
s;DESTINATION WORD 2 
;TEST PSW 

s;RESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 


s;RESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 
;TEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 


sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
;DESTINATION WORD 2 
sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 


sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD i 
s;DESTINATION WORD 2 
;TEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
s;DESTINATION WORD 1 
;DESTINATION WORD 2 
;TEST PSW 


SEQ 0125 


= 





COKDAEO KOJ11-8 CLUSTER DIAG. 
620060600444 DOUBLE OPERAND TESTS s4e4448644444444% 


6796 027462 


— 


6797 
6798 
6799 
6800 


027464 


027466 
027470 
027472 


000000 
000001 


177711 
00 


177777 


177777 
177777 


177747 


006324 


177765 
102351 
177231 
000011 
177760 
116477 


153314 
000002 


153276 
153272 





SPAU1: 


0 
1 


177711 
65600 
12 

3 


0 
12000 
177740 
77777 
la 


0 
0 


177737 
177777 
177774 


11 
177777 
177777 


177747 


0 
146 


177765 
102351 
177231 
il 

177760 
116477 


sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
s;DESTINATION WORD 1 
sDESTINATION WORD 2 
;TEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
s;DESTINATION WORD 2 
;TEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 1 
sDESTINATION WORD 2 
sTEST PSW 

sRESULT WORD 1 
sRESULT WORD 2 


; SOURCE 
;DESTINATION WORD 1 
;DESTINATION WORD 2 


sRESULT WORD 2 


; SOURCE 
sDESTINATION WORD 


sRESULT WORD 2 

s SOURCE 
sDESTINATION WORD 1 
:DESTINATION WORD 2 


sRESULT WORD 2 


ry _—" DEC/INC OPERATIONS USING SP ARE ON WORD BOUNDRYS 


#2 ,R6 


SPAU1L 


+1 
R6 


CR6)+, COUNT 
CR6)+, COUNT 


;CLEAR SP 
;TRY AUTOINC ON R6 
;VERIFY AUTO INC BY 2 
;BRANCH IF GOOD 
;BAD AUTO-INC 

;CPU ERROR 
;CLEAR R6 


;DOUBLE BYTE AUTO-INC 


a_—___—_—«—K—K«—_—__—__—_—_—_—_—XX_—_—X—XXXa—XJ__)—_&{z_———_—_—SSSSEESEOE er rem 
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SEQ 0126 


_ 





COKDAEO KDJ11-B CLUSTER DIAG. 
*eee¢e000e004 DOUBLE OPERAND TESTS s0404464646044444% 


6855 027626 
cane 027632 


6910 
6911 


6912 
6913 


027634 


30 
030032 


030034 


005067 
012706 


016767 
012767 


000004 


001000 


150142 
001000 


000010 
000142 
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147744 


SPAUV2: 


SPAU3: 


SPAU4: 


SPAUS: 


MTRYA: 


1$: 


MTRYB: 


04 ,R6 ;VERIFY RESULT 
SPAU2 ;BRANCH IF GOOD 
+1 ;CPU ERROR 
;BAD DOUBLE AUTO-INC 
#STBOT ,R6 ;LOAD R6 
-CR6), COUNT ; TEST AUTO-DEC 
#776 ,R6 ;VERIFY RESULT 
SPAU3 ;BRANCH IF GOOD 
ol ;CPU ERROR 
#STBOT ,R6 ;LOAD R6 
-CR6), COUNT ; TEST AUTO-DEC 
-CR6), COUNT ; TEST AUTO-DEC 
$774 ,R6 ;VERIFY RESULT 
SPAU4 ;BRANCH IF GOOD 
+1 ;CPU ERROR 
R6 ; TEST AUTO-INC ON SOP 
CR6)+ ; TEST AUTO-INC 
R6,%2 
SPAUS ;BRANCH IF GOOD 
+ ;CPU ERROR 
#STBOT ,R6 sLOAD R6 
-CR6) ; TEST AUTO-DEC 
$776 .R6 ;VERIFY RESUL 
SPAU6 sBRANCH IF GOOD 
+1 ;CPU ERROR 
eSTBOT ,R6 


VERIFY YELLOW ZONE TRAP ON AUTO DEC OF R6 
CLR CPEREG 


MOV 


;INIT CPU ERROR REGISTER 


#150 ,R6 sLOAD R6 WITH A VALUE THAT WILL 
sCAUSE A YELLOW STACK TRAPCIE. <400) 

4,SL0C90 s;SAVE VECTOR 

OMTRYA,4 sSETUP THE STACK OVERFLOW TRAP POINTER 

146,R1 sSAVE VECTOR 

144,R2 ;SAVE VECTOR 

142,R3 :;SAVE VECTOR 

146 ;JUST AS A PRECAUTION 

-CR6) sCAUSE A STACK OVERFLOW TRAP 

oo sRESTORE R6 FOR ERROR CALL 

+ 


;CPU ERROR 
sOVERFLOW TRAP FAILED 


#BITOS,CPEREG ;WAS CPU ERROR REG SET PROPERLY? 
1$ :GO TO ERROR IF NOT 

R6,#142 ;VERIFY CORRECT DECRIMENT OF R6 
‘ahi ;BRANCH IF GOOD 

+ 


;CPU ERROR 
:R6 IMPROPERLY DECRIMENTED 
sOR CPU ERROR REGISTER NOT CORRECT 


SEQ 0127 








6972 030266 
6973 030270 
6974 030274 


CO 


COKDAEO KOJ11-B8 CLUSTER DIAG. 
éeee¢6000004 DOUBLE OPERAND TESTS #644644640444444% 


147726 
ro by 


147674 


030276 


001000 
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147736 


152706 
147672 


147634 


147606 


147564 


147520 


o 
MTRYM: 


TRYMA: 


TRYMB: 


TRYMC: 


MILLOA: 


CPEREG 


42 
@STBOT RE 


CL PER 

MOV #400 ,R6 
MOV 4,SLOCO0O 
MOV @TRYMA,4 
CLR 376 

CLR -CR6) 

MOV @STBOT ,R6 
ERROR +1 

CLR CPEREG 
MOV #1000,RS 
MOV #400 ,R6 
MOV eTRYMB 4 
ADO -CR6), -CRS) 
MOV @STBOT .R6 
ERROR +1 

CLR CPEREG 
MOV #150 ,R6 
MOV @TRYMC 4 
BIC -CRS), -CR6) 
MOV OSTBOT .R6 
ERROR +1 

CLR CPEREG 
MOV SLOCOO ,4 
MOV @STBOT .R6 


#400 ,R6 
10,SLOCOO 
@MILLOA, 10 
4,SLOCO1 
oMILLOB ,4 


@STBOT ,R6 
+3 


SEQ 0128 


;CLEAR THE CPU ERROR REGISTER 
sRESTORE VECTOR 

sRESTORE VECTORS 

; “ 

i 


”“ 


yy = -_ TRAPS IN VARIOUS MODES 


sCLEAR CPU ERROR REGISTER 
sSETUP OVERFLOW R6 DATA 
s;SAVE VECTOR 


;JUST AS A PRECAUTION 

sCAUSE OVERFLOW TRAP 

sRESTORE R6 FOR ERROR CALL 
;CPU OR 


ERR 
;NO OVERFLOW TRAP 


sCLEAR CPU ERROR REGISTER 
sSETUP RS DATA 
sSETUP OVERFLOW R6 DATA 


sCAUSE OVERFLOW TRAP 
sRESTORE R6 FOR ERROR CALL 
;CPU ERROR 
;NO OVERFLOW TRAP 


sCLEAR CPU ERROR REGISTER 
SETUP OVERFLOW R6 DATA 


;CAUSE OVERFLOW TRAP 
sRESTORE R6 FGR ERROR CALL 
;CPU ERROR 
3NO OVERFLOW TRAP 
;CLEAR CPU ERROR REGISTER 
sRESTORE VECTOR 


TEST STACK OVERFLOW ON ILLEGAL INST TRAP 
R CPEREG 


sCLEAR CPU ERROR REGISTER 
sSETUP FOR OVERFLOW TRAP 
sSAVE VECTOR 

;SETUP ILLEGAL TRAP VECTOR 
sSAVE VECTOR 

;SETUP OVERFLOW TRAP VECTOR 
sUNUSED INSTRUCTION TRAP 


s;RESTORE R6 FOR ERROR CALL 
;CPU ERROR 








COKDAEO KOJ11-8 CLUSTER DIAG. 
eeeeeeeeeeee DOUBLE OPERAND TESTS eeee0000646060406 


‘a 


7035 
7036 
7037 


030316 


030322 


030322 


030366 


030516 


005067 
012706 
016767 
012767 
016767 
012767 


016767 
016767 


005067 
012706 
016767 
012767 
016767 
012767 


104000 
000240 
012706 
104001 


016767 
016767 
005067 
012706 


152512 


030374 


152404 
152374 


001000 


152314 
152310 
147254 
001000 
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147500 
147476 


147422 


147372 
147400 


147330 
147276 


MILLOB: 


‘ 
MIOTO: 


EMTOA: 


EMTOB: 








SEQ 0129 


sUNUSED INSTRUCTION TRAP 


MOV SLOCO1,4 
MOV SLOCOO,10 
CLR CPEREG 
MOV @STBOT ,R6 


TEST STACK OVERFLOW ON IOT TRAP 
LR CPEREG 


sRESTORE VECTOR 

sRESTORE VECTOR 

sCLEAR CPU ERROR REGISTER 
sRESTORE R6 


sCLEAR CPU ERROR REGISTER 


VECT 
sSETUP ERROR ACTION ON IOT 
;SAVE VECTOR 
sSETUP CORRECT TRAP VECTOR FOR 
; OVERFLOW 
; TEST INSTRUCTION 


sRESTORE R6 FOR ERROR CALL 


sFAILURE OF STACK OVERFLOW 


Cc ERE 

MOV #400 ,R6 
MOV 20,SL0CO00 
MOV @IOTOA,20 
MOV 4,SLOCO1 
MOV ¢IOTOB 4 
IOT 

NOP 

MOV @STBOT ,R6 
ERROR 1 sCPU ERROR 
CLR CPEREG 
MOV @STBOT .R6 
MOV SLOCO1.4 
MOV SLOCOO, 20 


TEST STACK OVERFLOW ON EMT TRAP 
R CPEREG 


;sCLEAR CPU ERROR REGISTER 


sRESTORE VECTOR 
sRESTORE TRAP VECTOR 


sCLEAR CPU ERROR REGISTER 


sSETUP STACK FOR OVERFLOW 
sSAVE OLD EMT VECTOR 

sSETUP ERROR ACTION ON EMT 
sSAVE VECTOR 

sSETUP CORRECT TRAP VECTOR FOR 
OVERFLOW 

; TEST INSTRUCTION 


sRESTORE R46 FOR ERROR CALL 


sFAILURE OF STACK OVERFLOW 


sRESTORE TRAP VECTOR 
sRESTORE VECTOR 
;CLEAR CPU ERROR REGISTER 


CL 

MOV #400 ,R6 
MOV »SL 

MOV @EMTOA, 30 
MOV 4,SLO0CO1 
MOV MTOB .4 
EMT 

NOP 

MOV @STBOT .R6 
ERROR +1 sCPU ERROR 
MOV SLOCOO , 30 
MOV SLOCO1.4 
CLR CPEREG 
MOV @STBOT ,R6 


TEST STACK OVERFLOW ON TRAP 








COKDAEO KDJ11-6 CLUSTER DIAG. 
eeeesecesese DOUBLE OPERAND TESTS sesee006000006406 


pone 


7038 030516 
7039 030522 
oor 030526 


005067 
012706 
016767 
012767 
016767 
012767 


016767 
016767 
005067 
012706 


005067 
012706 
016767 
012767 
016767 
012767 


005067 
012706 
016767 
012767 
016767 
012767 


005001 
000101 


000240 
012706 


152216 


001000 


147074 
152114 
152110 
001000 


001000 
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152256 
147272 
152244 
147226 


147236 
147200 


147114 
147076 


MBPTO: 


BPTOA: 


MILAO: 


ILAOA: 


CPEREG 


@TRPOB, 4 


@STBOT ,R6 
+1 


@STBOT .R6 


TEST STACK OVERFLOW ON BPT 
R CPEREG 


CL ER 

MOV 0400 ,R6 

MOV 14,SLOCOO 

MOV @BPTOA,14 

MOV 4,SLOCO1 

MOV oBPTOB.4 

BPT 

NOP 

MOV @STBOT .R6 
cP | 

CLR 

MOV SLOCOO 14 

MOV SLOCO1,4 

MOV @STBOT .R6 


MOV 


#400 ,R6 
10, SLOCOO 
@ILAOA,10 
4,SL0C0O1 
#IL608 .4 


Ri 
Ri 


@STBOT ,R6 





s;CLEAR CPU ERROR REGISTER 
sSETUP STACK FOR OVERFLOW 

sSAVE OLD TRP VECTOR 

sSETUP ERROR ACTION ON TRP 

sSAVE VECTOR 

: SETUP _ TRAP VECTOR FOR 


sCPU ERROR 


;OVERFL 


; TEST INSTRUCTION 
sRESTORE R6 FOR ERROR CALL 
sFAILURE OF STACK OVERFLOW 

sRESTORE TRAP VECTOR 


sRESTORE 


VECTOR 


sCLEAR CPU ERROR REGISTER 


;CPU ERROR 


sCLEAR CPU ERROR 


sCLEAR CPU ERROR REGISTER 
UP STACK 


sSAVE OLD BPT VECT 
sSETUP ERROR ACTION ON BPT 
sSAVE VECTOR 





VERF 
s TEST INSTRUCTION 


FOR OVERFLOW 
OR 


oo TRAP VECTOR FOR 


sRESTORE R6 FOR ERROR CALL 
sFAILURE OF STACK OVERFLOW 


REGISTER 
sRESTORE TRAP VECTOR 
sRESTORE VECTOR 





sa id STACK OVERFLOW AND ILLEGAL JMP phen  - 
CPEREG 7CLEAR CPU ERROR REGI 





STER 
sSETUP STACK FOR OVERFLOW 


sSAVE OLO ILLEGAL INST. 


sSETUP ERROR ACTION 


SSAVE VECTOR 








s TEST INSTRUCTION 
sRESTORE RG FOR ERROR CALL 


VECTOR 





SEQ 0130 


ILLEGAL OPCODE 
sSETUP CORRECT TRAP VECTOR FOR 
s OVERFLOW 





COKDAEO KOJ11-8 CLUSTER OIAG. 
seeeeeesesese DOUBLE OPERAND TESTS eeeeesececeseeses 


Lae 030764 


031070 
031076 


031102 


031102 
031110 
031116 
031122 
031124 
031130 
031132 
031136 
031140 
031144 
031146 
031152 
031154 
031156 
031162 


031164 
031172 


031176 


104001 


016767 
016767 
005067 
012706 


012706 
016767 
012767 
016767 
012767 


005001 
0045901 
000240 
012706 
104001 


016767 
016767 
012706 


016767 


016767 
012706 


152022 
152012 
146760 
001000 


000400 
146766 
031054 
146746 
031062 


001000 


151726 
151716 
001000 


001000 


151622 
001600 
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147010 
147006 


151766 
146756 
151754 
146736 


146714 
146712 


151702 
146666 


146612 MSTOEE: 


ILBOB: 


; 
MILLBO: 


MSTO: 


MSTOE: 


ERROR 


@STBOT .R6 


Lo ~~ ON ILLEGAL JSR INST 


10,SLOCOO 
@ILLBOA, 10 
4,SLOCO1 

*ILLBOB,4 


R1 
RS,R1 


— 


 @STBOT RE 


TEST FOR FALSE STACK OVERFLOW 
0c00 


SEQ 0131 


sCPU ERROR 


sFAILURE OF STACK OVERFLOW 


sRESTOKE VECTOR 
sRESTORE TRAP VECTOR 
;CLEAR CPU ERROR REGISTER 


;SETUP STACK FOR OVERFLOW 
sSAVE OLD VECTOR 

;SETUP ERROR ACTION ON ILL. OPCODE 
sSAVE VECTOR 

sSETUP CORRECT TRAP VECTOR FOR 

; OVERFLOW 


; TEST INSTRUCTION 
sRESTORE R6 FOR ERROR CALL 
sFAILURE OF STACK OVERFLOW 


sRESTORE VECTOR 
sRESTORE TRAP VECTOR 


;CPU ERROR 


MOV » SL sSAVE VECTOR 
MOV OMSTOE ,4 sANTICIPATE OVERFLOW ERROR 
MOV #1002 ,R6 sSETUP LEGAL R6 
TST -C(R6) sTRY TO CAUSE STACK OVERFLOW 
MOV $2002 ,R6 sSETUP LEGAL R6 
TST -(R6) ;TRY TO CAUSE STACK OVERFLOW 
MOV ©4002, R6 ;SETUP LEGAL R6 
TST -(R6) sTRY TO CAUSE STACK OVERFLOW 
MOV #10002 ,R6 s;SETUP LEGAL R6 
TST -CR6) s;TRY TO CAUSE STACK OVERFLOW 
MOV #100402, R6 sSETUP LEGAL R6 
TST -CR6) sTRY TO CAUSE STACK OVERFLOW 
BR MSTOEE sEXIT MODULE 

Vv @STBOT .R6 ;RESTORE R6 FOR ERROR CALL 

RROR +1 ;CPU ERROR 
sSTACK OVERFLOW ERROR 

MOV SLOCOO ,4 sRESTORE VECTOR 
MOV @STBOT .R6 








COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeeaceeceace DOUBLE OPERAND TESTS eseeeesaceseseess 


031322 
031324 
031326 


031332 
031334 


012706 
016767 
012746 
012746 
012767 
000002 


104001 
104001 
022706 
001401 
104001 
021627 
001401 
104001 
016767 


012706 


104001 


022706 
001401 
104001 


021627 


001401 
104001 


016767 
012706 


012706 


20 
031232 
031234 


000774 


031232 


151532 
001000 


001000 
146516 
000020 
031322 
031326 


000774 


031324 


151440 
001000 


001000 
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151602 


146566 


146532 


151512 


146476 


146440 


MTTA: 
MTTB: 


MTTD: 


MTTE: 


TEST T-BIT TRAPS 


MOV @STBOT ,R6 
MOV 14,SLOCOO 
MOV #20, -(R6) 
MOV OMTTA, -CR6) 
MOV oMTTB,14 
RTI 

ERROR +1 

ERROR +1 

CMP @STBOT -4,R6 
BEQ MTTOD 

ERROR +1 

CMP (R6),OMTTA 
BEQ MTTE 

ERROR +1 

MOV SLOCOO 14 
MOV @STBOT .R6 


TEST T-BIT TRAPS WITH RTT 
Vv @STBOT ,R6 


SEQ 0132 


sSETUP STACK 
sSAVE OLD T-BIT VECTOR 
sPUSH T-BIT 
;SETUP ERROR TRAP VECTOR 
;SETUP NEW T-BIT VECTOR 
sCAUSE A T BIT SET IN PSW 
;CPU ERROR 
;SHOULO NEVER BE EXECUTED 
;CPU ERROR 
sDIDNT TAKE CORRECT TRAP 
;VERIFY SP DECIRMENT 
sBRANCH IF GOOD 
;CPU ERROR 


;BAD SP 
;VERIFY PC SAVED ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 


RR 
s INCORRECT PC ON STACK 
sRESTORE VECTOR 14 


MO sSETUP STACK 
MOV 14,SLO0CO00 ;SAVE OLD T-BIT VECTOR 
MOV #20, - ) ;PUSH T-BIT 
MOV OMTTSA, -CR6) ;SETUP ERROR TRAP VECTOR 
MOV eMTTSB,14 ;SETUP NEW T-BIT VECTOR 
RTT ;CAUSE A T BIT SET IN PSW 
ERROR +1 ;CPU ERROR 
;SHOULD NEVER BE EXECUTED 
NOP sRTT WILL EXECUTE THIS INSTRUCTION 
;WITH A T-BIT TRAP 
ERROR +1 ;CPU E 
;DIONT TAKE CORRECT TRAP 
CMP @STBOT -4,R6 sVERIFY SP DECIRMENT 
BEQ MTTSO :BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
:BAD SP 
CMP (R6), @MTTSQ ;VERIFY PC SAVED ON STACK 
BEQ MTTSE ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
s INCORRECT PC ON STACK 
MOV SLOCOO,14 ;RESTORE VECTOR 14 
MOV @STBOT ,R6 


TEST OLD STATUS ON T-BIT TRAP 


MOV #STBOT ,R6 


sSETUP STACK 








e- « 


COKDAEO KDJ11-B8 CLUSTER DIAG. 
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eeeeeaceeeaes DOUBLE OPERAND TESTS seeeeeeeeeeeseeee 


7223 
7224 


031364 
031372 


031422 
031424 


021474 
031476 


031510 


031512 
031512 
031520 


031524 


031570 
031570 
031576 


016767 
012746 


026727 
001401 
104001 


016767 
012706 


021627 
001401 
104001 


016767 
012706 


147344 


001000 
000377 
031476 
031500 
000000 


147272 


151274 
001000 


001000 
146254 
031550 


000774 


031546 


151216 
00 


0010 


SEQ 0133 


151420 MOV 14,SLOCOO ;SAVE OLD VECTOR 
MOV #20, -CR6) ;PUSH T-BIT 
MOV OMTTRA, -CR6) ;SETUP ERROR TRAP VECTOR 
146404 MOV OMTTRB,14 ;SETUP NEW T-BIT VECTOR 
146360 po 0357,PS ;SET PRIORITY AND COND C 
RTI 
ERROR o1 ;CPU ERROR 
sSHOULD NEVER EXECUTE 
MTTRA: ERROR +1 ;CPU ERROR 
sDIDNT TAKE CORRECT TRAP 
000020 MTTRB: CMP STBOT-2, #20 ;VERIFY PSW ON STACK 
BEQ MTTRC ;BRANCH IF CORRECT STATUS 
ERROR ol ;CPU ERROR 
;BAD STATUS ON STACK 
MTTRC: MOV @STBOT ,R6 ;SETUP STACK 
MOV 0377,-CR6) ;PUSH T-BIT 
MOV @MTTRO, -CR6) ;sSETUP ERROR TRAP VECTOR 
146332 MOV OMTTRE 14 ;SETUP NEW T-BIT VECTOR 
146306 MOV #0,PS sCLEAR PRIORITY 
ov ;CLEAR CONDITION CODES 
ERROR +1 ;CPU ERROR 
;SHOULD NEVER EXECUTE 
MTTRD: ERROR +1 ;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 
000377 MTTRE: CMP STBOT-2,¢377 ;VERIFY OLD PSW ON STACK 
BEQ MT TRF ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
;0LD PSW INCORRECT 
MTTRF: 
146274 MOV SLOCOO,14 sRESTORE VECTOR 
MOV eSTBOT .R6 
; 
MRT: 
; TEST RESERVED INST TRAP 
MOV @STBOT ,R6 sSETUP STACK 
151254 MOV 10,SLOCOO :SAVE OLD VECTOR 
146244 1 @MRTB, 10 sSETUP NEW RESERVED VECTOR 
MRTA ERROR ol ;CPU ERROR 
;DIONT TAKE CORRECT TRAP 
MRTB: CMP @STBOT -4.,R6 ;VERIFY SP DECRIMENT 
BEQ MRTE ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
;BAD PC ON STACK 
MRTE: CMP (R6),@MRTA ;VERFY PROPER PC ON STACK 
BEQ MRTF ;BRANCH IF GOOD 
ERROR +1 ;CPU ERROR 
s INCORRECT PC ON STACK 
146212 MOV SLOCOO,14 ;sRESTORE TRAP VECTOR 
MOV #STBOT .R6 








COKDAEO KDJ11-8 CLUSTER DIAG. 
eeeeeeeeeeee DOUBLE OPERAND TESTS saeeeaeeceaecanes 


7283 


oa 031602 


031602 
031606 
031614 
031622 
031626 
031630 
031632 


031634 
031642 
031644 


031646 
031652 
031660 
031666 
031670 


031672 
031674 
031702 
031704 
031706 
031706 
031714 
031720 


031720 
031724 


031770 


031772 
031772 
032000 


016767 
012706 


021627 
001401 
104001 


016767 
012706 


001000 
146176 
031634 
146150 


147136 


001000 
031674 
000357 


147076 


151100 
001000 


001000 
146104 
031752 
146032 


000774 


031750 


151014 
001000 
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151176 
146166 


000000 


146130 


146110 


000357 


146074 


151060 
146074 


146034 


° 
MRTO: 


MRTOA: 
MRTOB: 


MTPR: 
MTPB: 


MTPQ: 


MTPF 


¢STBOT 


MOV ° 
MOV 10,SLOCOO 
MOV @MRTOB ,10 
CLR PS 

ccc 

77 

ERROR +1 

CMP STBOT-2, 40 
BEQ MRTOC 
ERROR +1 

MOV @STBOT ,R6 
MOV #MRTOE ,10 
MOV #357,.PS 
scc 

77 

ERROR +1 

CMP STBOT-2, #357 
BEQ MRTOF 
ERROR +1 

MOV SLOCOO,10 
MOV #STBOT ,R6 


TEST TRAP INST 


MOV #STBOT .R6 
MOV 34 ,SLOCOO 
MOV oMTPB, 34 
CLR PS 

ccc 

TRAP 

ERROR +1 

BEQ MTPQ 
ERROR +1 

CMP (R6), @MTPR 
BEQ MTPF 
ERROR +1 

MOV SLOCOO , 34 
MOV @STBOT .R6 


SEQ 0134 


TEST OLD Bide RESERVED INST TRAP 


sSETUP STACK 

sSAVE OLD VECTOR 

;SETUP NEW VECTOR 

s;CLEAR PRIIRITY AND COND C 


;CPU ERROR 

;DIDNT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 

;CPU ERROR 

;BAD STATUS ON STACK 
;SETUP STACK 
;SET UP TRAP VECTOR 
;SET PRIORITY 
;SET CONDITION CODES 
sRESERVED INSTRUCTION 


;CPU ERROR 

;DIONT TAKE CORRECT TRAP 
;VERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 

;0LD PSW INCORRECT 


sRESOTRE TRAP- VECTOR 


;SETUP STACK 

sSAVE OLD VECTOR 

;SETUP NEW TRAP VECTOR 
sCLEAR PRIORITY ABND COND C 


;CPU ERROR 

sDIONT TAKE CORRECT TRAP 
sVERIFY SP DECRIMENT 
;BRANCH IF GOOD 

;CPU ERROR 

;BAD PC ON STACK 
s;VERFY PROPER PC ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 

s INCORRECT PC ON STACK 


sRESTORE VECTOR 








COKDAEO KDJ11-B CLUSTER DIAG. 
#eeeeeeeeees DOUBLE OPERAND TESTS «e0404640406604684 


He cgeeeenpssiosepensanirtiesalivinnenncajuersenitncioveesaatenmenio 


032110 
032110 
032116 


032122 


032122 
032124 
032130 
032136 
032144 
032152 
032160 


032164 
032166 
032170 
032174 
032176 
032176 


032200 
032204 


001401 


104001 
026727 


001401 
104001 


016767 
012706 


000000 
104001 
000167 
104001 


005203 


012706 
020327 


146734 


001000 
032076 
000357 


146674 


150676 
001000 


001000 
145700 
145642 
032174 
032176 
000012 


000002 


001000 
000400 








LT EE 
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150774 
146010 


000000 


145752 
145706 


000357 


145716 


MTPO: 


MTPOA: 
MTPOB: 


TRAP 


ERROR 
CMP 
B 


JMP 
ERROR 


INC 


‘OV 
LMP 


TEST OLD STATUS SAVED ON TRAP 
V #STBOT ,R6 


34 ,SLOCOO 
oMTPOB , 34 
PS 

+1 
STBOT-2, 40 
MTPOC 

+1 

#STBOT ,R6 
OMTPOE ,34 
#357,PS 

+1 
STBOT-2, 4357 
MTPOF 

+1 


SLOCOO ,34 
#STBOT .R6 


TEST ALL TRAP OPCODES - 
R R3 


#STBOT .R6 
34 ,,SLOCOO 
4,SL0CO1 
@MTPAH ,4 
@MTPAA , 34 
MTPAA 


R3 


#STBOT ,R6 
R3,#400 


SEQ 0135 


sSETUP STACK 

sSAVE OLD VECTOR 

;SETUP NEW TRAP VECTOR 
;CLEAR PRIORITY AND COND C 


;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 
;CPU ERROR 
;BAD STATUS ON STACK 
;SETUP STACK 
;SET UP TRAP VECTOR 
;SET PRIORITY 
;SET CONDITION CODES 
;ISSUE TRAP 
;CPU ERROR 
;DIDNT TAKE CORRECT TRAP 
;VERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 
:CPU ERROR 
;0LD PSW INCORRECT 


sRESTORE TRAP VECTOR 


SELF MODIFYING 
sSETUP REGISTER TO INDICATE OPCODE 
sSETUP STACK 
sSAVE OLD VECTOR 
sSAVE IN CASE OF HALT 
;SETUP HALT TRAP 
sSETUP NEW TRAP VECTOR 
:GO INTO LOOPING CODE 


;SET TO A ZERO 

;CPU ERROR 

;TRAP INSTRUCTION FAILED TO TRAP 
sEXAMINE OPCCODE AT LOCATION MTPAL: 
sATTEMPT TO GO ON 


;CPU ERROR 

;ERROR, EITHER CANT MODIFY LOCATION MTPAL 
;0R TRAP INSTRUCTION FAILED 
;GET NEXT OPCODE 


sRESTORE STACK 
;SEE IF LAST OPCODE 








7404 032210 
Lene 032212 


7450 032354 
7451 
7452 032356 


7456 032370 
7457 032374 
7458 032402 
7459 032410 
7460 032412 
7461 032414 
7462 


7463 032416 
7464 032424 


012767 
060367 
000757 


016767 
016767 


012706 


912706 
016767 
012767 
000004 


104001 


022706 
001401 
104001 


021627 
001401 
104001 


016767 
012706 


COKDAEO KO0J11-6 CLUSTER DIAG. 
eeeeescececes DOUBLE OPERAND TESTS seee000000486046408 


001406 


104400 
177740 


150560 
150554 


001000 


001000 
145542 
032272 


000774 


032270 


150474 
001000 


146414 


001000 
032416 
000357 


146354 
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177744 


145600 
145542 


150532 
145532 


145500 


150454 
145454 


000000 


145416 
145366 


000357 


MTPAE: 


MIOTF: 


MITOA: 
MITOB: 


MITOC: 


MITOD: 
MITOE: 


BEQ MTPAE 

MOV #104400 ,MTPAL 
ADD R3 ,.MTPAL 

BR MTPAL 

MOV SLOCOO ,34 
MOV SLOCO1,4 

MOV @STBOT ,R6 


TEST IOT TRAP 
V 


Page 14-117 
SEw 0136 


;BRANCH IF DONE 

;TRAP OPCODE INTO LOCATION 
sFORM TEST OPCODE 

sEXECUTE TEST 


sRESTORE VECTORS 


sSETUP STACK 
sSAVE OLD VECTOR 
sSETUP NEW IOT VECTOR 


;CPU ERROR 


sDIDNT TAKE CORRECT TRAP 


sVERIFY SP DECRIMENT 
s;BRANCH IF GOOD 


sCPU ERROR 


sBAD PC ON STACK 


$ 
;CPU ERROR 


sVERFY PROPER PC ON STACK 
IF GOOD 


s INCORRECT PC ON STACK 


MO @STBOT ,R6 
MOV 20,SLOCO00 
MOV @MIOTB ,20 
I0T 

ERROR +1 

CMP #STBOT -4,R6 
BEQ MIOTO 

ERROR +1 

CMP CR6),@MIOTA 
BEQ MIOTF 

ERROR +1 

MOV SLOCOO 20 
MOV @STBOT .R6 


TEST OLD STATUS ON TOT TRAP 
Vv @STBOT .R6 


sRESTORE VECTOR 


;SETUP STACK 

;SAVE OLD VECTOR 

;SETUP NEW IOT VECTOR 
;CLEAR PRIORITY AND COND C 


;CPU ERROR 


sDIONT TAKE CORRECT TRAP 


;CPU E 
;BAD STATUS ON STACK 


;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 


;SETUP STACK 

;SET UP TRAP VECTOR 
;SET PRIORITY 

:SET CONDITION CODES 


;CPU ERROR 


s;DIONT TAKE CORRECT TRAP 


20,SLOCOO 
MOV @MITOB ,.20 
CLR PS 
ccc 
I0T 
ERROR +1 
CMP STBOT-2,40 
BEQ MITOC 
ERROR +1 
MOV #STBOT .R6 
MOV @MITOE ,20 
MOV #357 ,PS 
scc 
IOT 
ERROR +1 
CMP STBOT-2, 4357 
BEQ MITOF 


;VERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 





COKDAEO KOJ11-B CL 


— 


032636 


7525 032650 


104001 


016767 
012706 


016767 
016767 
012706 


012767 


an 


USTER DIAG. 


150356 
001000 


140776 


146146 


0v1000 
032672 
000357 
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7465 032426 
7466 


145362 


150336 
145346 
150324 
145336 


145276 
145264 


150230 
145240 
150216 
145230 


000000 


145160 
145120 


MITOF : 


META: 


METB: 


METD: 


METF : 


METOA: 


METOB: 


METOC: 


ERROR 


MOV 


+1 


SLO®90 ,20 
@S180T ,R6 


TEST EMULATOR TRAP INSTRUCTION 
V #STBOT ,R6 


30,SLOCOO 
#mMETB, 30 
34,SLOCOL 
#$ERROR, 34 
559. 

1 

1 
#STBOT-4,R6 
METD 

+1 
CR6),@META 
ME TF 

+1 


@STBOT ,R6 


Lot a5 So ON EMT TRAP 


MO OT.R 
MOV 30 ,SLOCOO 
MOV #METOB , 30 
MOV 34,SLOCO1 
MOV #SERROR , 34 
CLR 

ccc 

EMT 

TRAP 

-WORD 562 

-WORD 1 

-WORD 1 

CMP STBOT-2, 40 
BEQ ME TOC 
ERROR +1 

MOV #STBOT .R6 
MOV @METOE , 30 
MOV #357,PS 





;CPU ERROR 
s;OLD PSW INCORRECT 


sRESTORE VECTOR 


CEMT) 

sSETUP STACK 

sSAVE OLD VECTOR 

sSETUP NEW EMT VECTOR 

sSAVE TRAP VECTOR 

s;SET UP TO HANDLE EMT ERROR 


;TRAP ON ERROR 
; CPUERR 


;ERRTN 

;DIDONT TAKE CORRECT TRAP 
;VERIFY SP DECRIMENT 
:BRANCH IF GOOD 

;CPU ERROR 

;BAD PC ON STACK 
;VERFY PROPER PC ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 

s INCORRECT PC ON STACK 
sRESTORE VECTOR 
sRESTORE VECTOR 


sSETUP STACK 

sSAVE OLD VECTOR 

sSETUP NEW EMT VECTOR 
sSAVE TRAP VECTOR 

;SET UP TRAP VECTOR 

s;CLEAR PRIORITY AND COND C 


;CPUERR 


;ERRTN 
;DIDNT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 
;CPU ERROR 
;BAD STATUS ON STACK 
;SETUP STACK 
;SET UP TRAP VECTOR 
;SET PRIORITY 


SEQ 0137 








COKDAEO KDJ11-B CLUSTER DIAG. 
eeeeeeeseoes DOUBLE OPERAND TESTS sa080800080040408 


—— 


7526 


032656 
0 


032770 
032776 


016767 
016767 
012706 


012706 
016767 
012767 


000003 
104001 
022706 


001401 
104001 


021627 
001401 
104001 


016767 
012706 


012706 
012767 


146100 


150104 
150074 
001000 


000774 


032746 


150016 
001000 


145736 


001000 
033074 
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000357 


145122 
145110 


150054 
145050 


145016 


147776 
144772 


000000 


144734 


METOD: 


ME TOE : 


ME TOF : 


MBT: 


MBTOA: 
MBTOB: 


MBTOC: 


SCC 
EM 


T 
TRAP 
-WORD 564. 
-WORD 1 
-WORD 1 


CMP STBOT-2, 9357 
ME TOF 
ERROR +1 


MOV SLOCO1,34 
MOV SLOCOO , 30 
MOV #STBOT ,.R6 


TEST BPT TRAP 
MOV 


#STBOT ,R6 
MOV 14, SLOCOO 
MOV omMBTs, 
BPT 
ERROR +1 
CMP @STBOT -4,R6 
BEQ MBTO 
ERROR +1 
CMP CR6),@MBTA 
BEQ MBTF 
ERROR +1 


MOV SLOCOO,14 
MOV #STBOT RE 


TEST OLD STATUS ON SPT TRAP 
MOV @STBOT .R6 


MOV 14,SLOCOO 
MOV #MBTOB ,14 


CLR PS 

ccc 

BPT 

ERROR +1 

CMP STBOT-2, 40 
BEQ MBTOC 
ERROR +1 


MOV #STBOT ,R6 
MOV #MBTOE.14 





;SET CONDITION CODES 


;CPUERR 


;ERRTN 

;DIDNT TAKE CORRECT TRAP 
;VERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 

;CPU ERROR 

;0LD PSW INCORRECT 


sRESTORE VECTOR 
sRESTORE VECTOR 


sSETUP STACK 
sSAVE OLD VECTOR 
sSETUP NEW BPT VECTOR 


;CPU ERROR 

;DIDNT TAKE CORRECT TRAP 
;VERIFY SP DECRIMENT 
;BRANCH IF GOOD 

;CPU ERROR 

;BAD PC ON STACK 
;VERFY PROPER PC ON STACK 
sBRANCH IF GOOD 

;CPU ERROR 

s INCORRECT PC ON STACK 
sRESTORE VECTOR 


;SETUP STACK 

;SAVE OLD VECTOR 

;SETUP NEW BPT VECTOR 
;CLEAR PRIORITY AND COND C 


s;CPU ERROR 
sDIONT TAKE CORRECT TRAP 
;VERIFY PSW ON STACK 
;BRANCH IF CORRECT STATUS 
;CPU ERROR 
sBAD STATUS ON STACK 
sSETUP STACK 
;SET UP TRAP VECTOR 





SEQ 0138 
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SEQ 0139 


7587 03*%.00 012767 000357 144710 MOV #357,PS ;SET PRIORITY 

7588 033066 000277 scc ;SET CONDITION CODES 
7589 ©33070 000003 T 

7599 033072 104001 MBTOD: ERROR +1 ;CPU ERROR 

7591 ;DIONT TAKE CORRECT TRAP 

7592 033074 026727 145676 000357 MBTOE: CMP STBOT-2, 4357 ;VERIFY OLD PSW ON STACK 
7593 033102 001401 BEQ MB TOF ;BRANCH IF GOOD 

7594 033104 104001 ERROR +1 ;CPU ERROR 

7595 ;0LD PSW INCORRECT 

7596 033106 MBTOF : 

7597 033106 016767 147700 144700 MOV SLOCOO ,14 ;sRESTORE VECTOR 

7598 033114 012706 001000 MOV #STBOT ,R6 

7599 

7601 : 

7602 : 

7604 033120 MIL: 

7605 

7606 : TEST ILLEGAL JUMP INSTRUCTION TRAP 

7607 033120 012706 001000 MOV @STBOT ,R6 ;SETUP STACK 

7608 033124 016767 144660 147660 MOV 10,SLOCOO ;SAVE OLD VECTOR 

7609 033132 012767 033146 144650 MOV @MILB,10 ;SETUP NEW ILLEGAL VECTOR 
7610 033140 005001 CLR Ri 

7611 033142 000101 JMP Ri 3#*#TEST INSTRUCTIO 

7612 033144 104001 MILA ERROR +1 ;CPU ERROR 

7613 ;DIONT TAKE CORRECT TRAP 

7614 033146 022706 000774 MILB: CMP @STBOT-4,R6 sVERIFY SP DECRIMENT 
7615 033152 001401 BEQ MILD ;BRANCH IF GOOD 

7616 033154 104001 ERROR +1 ;CPU ERROR 

7617 ;BAD PC ON STACK 

7618 033156 021627 033144 MILD CMP CR6),@MILA ;VERFY PROPER PC ON STACK 
7619 033162 001401 BEQ MILF ;BRANCH IF GOOD 

7620 033164 104001 ERROR +1 ;CPU ERROR 

7621 s INCORRECT PC ON STACK 

7622 033166 016767 147620 144614 MILF MOV SLOCOO ,10 sRESTORE VECTOR 

Le. + 033174 012706 001000 MOV #STBOT ,R6 

La 1 033200 MILO 

7629 ; TEST OLD STATUS ON ILLEGAL JUMP TRAP 

7630 033200 012706 001000 MOV @STBOT .R6 ;SETUP STACK 

7631 033204 016767 144600 147600 MOV 10,SLOCOO sSAVE OLD VECTOR 

7632 033212 012767 033234 144570 MOV @MILOB 10 :SETUP NEW ILLEGAL VECTOR 
7633 033220 005067 144552 CLR PS ;CLEAR PRIORITY AND COND C 
7634 033224 000257 ccc 

7635 033226 005001 CLR Ri 

7636 033230 000101 JMP Ri 

7637 033232 104001 MILOA: ERROR +1 ;CPU ERROR 

7638 ;DIONT TAKE CORRECT TRAP 

7639 933234 026727 145536 000004 MILOB: CMP STBOT-2, 04 ;VERIFY PSW ON STACK 
7640 033242 001401 BEQ MILOC ;BRANCH IF CORRECT STATUS 
7641 033244 104001 ERROR +1 ;CPU ERROR 

7642 ;BAD STATUS ON STACK 

7643 033246 012706 001000 MILOC: MOV #STBOT RE ;SETUP STACK 

7644 033252 012767 033274 144530 MOV @MILOE ,10 ;SET UP TRAP VECTOR 
7645 033260 012767 000357 144510 MOV #357,PS ;SET PRIORITY 

7646 033266 000277 scc ;SET CONDITION CODES 
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SEQ 0140 


7648 033272 104001 MILOD: ERROR +1 ;CPU ERROR 

7649 ;DIONT TAKE CORRECT TRAP 
7650 033274 026727 145476 000357 MILOE: CMP STBOT-2, 4357 ;VERIFY OLD PSW ON STACK 
7651 033302 001401 BEQ MILOF ;BRANCH IF GOOD 

7652 033304 104001 ERROR +1 ;CPU ERROR 

7653 ;0LD PSW INCORRECT 

7654 033306 MILOF : 

7655 033306 016767 147500 144474 MOV SLOCOO,10 sRESTORE VECTOR 

— 033314 012706 001000 MOV #STBOT ,R6 

7659 ; 

7660 $ 

La 033320 MIALL: 

7664 : TEST ILLEGAL JSR INSTRUCTION TRAP 

7665 033320 012706 001000 MOV @STBOT ,R6 ;SETUP STACK 

7666 033324 016767 144460 147460 MOV 10,SLOCOO ;sSAVE OLD VECTOR 
7667 033332 012767 033346 144450 MOV @MIALLB,10 ;SETUP NEW ILLEGAL VECTOR 
7668 033340 005003 CLR R3 

7669 033.42 004303 JSR R3,R3 

7670 033344 104001 MIALLA: ERROR ee A ;CPU ERROR 

7671 ;DIDONT TAKE CORRECT TRAP 
7672 033346 022706 000774 MIALLB: CMP @STBOT-4,R6 ;VERIFY SP DECRIMENT 
7673 033352 001401 BEQ MIALLD ;BRANCH IF GOOD 

7674 033354 104001 ERROR +1 ;CPU ERROR 

7675 ;BAD PC ON STACK 

7676 033356 021627 033344 MIALLD: CMP (R6),@MIALLA ;sVERFY PROPER PC ON STACK 
7677 033362 001401 BEQ MIALLF ;BRANCH IF GOOD 

767° 033364 104001 ERROR ol :CPU ERROR 

7679 s INCORRECT PC ON STACK 

7680 033366 016767 147420 144414 MIALLF: MOV SLOCOO,10 sRESTOR- VECTOR 

7681 033374 012706 001000 MOV #STBOT ,R6 

7682 

7684 ; 

7685 ; 

7687 033400 MJSI 

7688 

7689 : TEST OLD STATUS ON ILLEGAL JSR TRAP 

7690 033400 012706 001000 MOV @STBOT RE ;SETUP STACK 

7691 033404 016767 144400 147490 MOV 10,SLOCOO ;SAVE OLD VECTOR 
7692 033412 012767 033434 144370 MOV @mMJSIB,10 ;sSETUP NEW VECTOR 
7693 033420 005067 144352 CLR PS ;CLEAR PRIORITY AND COND C 
7694 033424 000257 ccc 

7695 033426 005003 CLR R3 

7696 033430 004303 JSR R3,R3 

7697 033432 104001 MJSIA: ERROR +1 ;CPU ERROR 

7698 sDIDNT TAKE CORRECT TRAP 
7699 033434 026727 145336 000004 MJSIB: CMP STBOT-2, 24 ;VERIFY PSW ON STACK 
7700 033442 001401 BEQ MJSIC ;BRANCH IF CORRECT STATUS 
7701 033444 104001 ERROR +1 ;CPU ERROR 

7702 - ;BAD STATUS ON STACK 

7703 033446 012706 001000 MJSIC: MOV #STBOT ,R6 ;SETUP STACK 

7704 033452 012767 033474 144330 MOV @MJSIE,10 ;SET UP TRAP VECTOR 
7705 033460 012767 0090357 144310 MOV $357,PS ;SET PRIORITY 

7706 033466 77 scc ;SET CONDITION CODES 
7707 033470 004303 JSR R3,R3 

7708 033472 104001 MJSID: ERROR +1 ;CPU ERROR 








COKDAEO KOJ11-8 CLUSTER DIAG. 
eeeeeseseeee DOUBLE OPERAND TESTS #22444646464044044446% 


7709 
7710 
- 


7775 


033474 
033502 


033514 


033520 


033520 
033524 
033532 
033540 
033546 


033552 


033710 


026727 
001401 
104001 


016767 
012706 


016767 
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145276 000357 MUJSIE: 


147300 
001000 


144242 


000020 


033552 


030000 


144154 
147174 


144142 


144274 


147260 
144244 
144230 


144204 


144164 


147160 
144144 
147146 


144072 


MJSIF: 


: 
° 
IOXXX: 
‘ 


1$: 
2$: 


3$: 
4$: 


5$: 


ODDXxX: 


CMP 
BEQ 
ERROR 


MOV 


STBOT-2, #357 
MJSIF 


+1 


SLOCOO,10 
#STBOT ,R6 


I/Q TIME OUT TEST 
R CPEREG 


23,4 

#30000 ,PS 
84177700 

+1 

$B IT04 ,CPEREG 
3$ 

+1 

(SP)+,@1$ 

4$ 


+1 
CSP)+, #30000 
5$ 


SEQ 0141 


sDIDNT TAKE CORRECT TRAP 


;VERIFY OLD PSW ON STACK 
;BRANCH IF GOOD 


;CPU ERROR 
;0LD PSW INCORRECT 


sRESTORE VECTOR 


;CLEAR CPU ERROR REGISTER 

sSAVE VECTOR 

;SET UP VECTOR TO HANDLE NXM 
;sINIT THE PSW TO A KNOWN STATE 
sTRY TO ACCESS HARDWARE ADDRESS 
sFOR GENERAL PURPOSE REG 0. THIS 
sIS NOT IMPLEMENTED ON KDJ11 
sSHOULD CAUSE TIME OUT. 


;CPU ERROR 


:IS CPU ERROR REGISTER CORRECT? 


;CPU ERROR 


sCHECK THAT STACK CONTAINS CORRECT ADDR. 


; 
;CPU ERROR 


IS THE PSW OK? 


; 
;CPU ERROR 


sCLEAR THE CPU ERROR REGISTER 
sRESTORE VECTOR 


ODD ADDRESS/ILLEGAL INST FETCH TRAP TEST 
j PRESSE EEES OEE ESOS EEE ODES OOS $446 480000060000000000000046000008 


s;THIS PROGRAM GENERATES AN ODD ADDRESS IN THE PC. THE KDJ11 SHOULD 
HROUGH ADDR 


;TRAP T 4 
CLR CPEREG 
MOV 4,SLOCOO 
MOV 923,4 
MOV 6,SLOCO1 
CLR 
MOV #30000, -( SP) 
MOV #1$+1,-CSP) 
RTI 

1$: ERROR +1 

2s: CMP #BITO6 ,CPEREG 
BEQ 3$ 
ERROR +1 

3$: #1$+1,(SP)+ 

EQ 4$ 

ERROR +1 


sINIT THE CPU ERROR REG 

sSAVE VECT 

SET UP VECTOR TO HANDLE ODD ADDR TRAP 
sSAVE VECTOR 

sINIT VECTOR 

sPUSH A KNOWN PSW ON THE STACK 

:PUSH AN ODD NUMBER ON THE STACK 

sPOP ODD ADDRESS OFF STACK INTO PC 
sSHOULD TRAP HERE 


;CPU ERROR 


;IS CPU ERROR REGISTER CORRECT? 


;CPU ERROR 


3IS STACK CONTENTS CORRECT? 


; 
;CPU ERROR 


:IS PSW CORRECT ON STACK? 








COKDAEO KDJ11-B8 CLUSTER DIAG. 
eeeeeeceoeeee DOUBLE OPERAND TESTS #44046446446644444% 


= 


033714 
033716 
033720 


033724 
033732 
033740 
033744 


012767 


016767 
016767 


013767 
012737 


012706 
016737 


144042 


033752 
030340 
144032 
144026 


144020 
000100 


177776 


000000 


000340 


143742 
146762 
146756 


034074 


000009 


000124 


143622 


001000 
146636 000004 
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144052 
144046 


144002 


143752 
143746 


146744 
000004 


143632 


" 


BEQ S$ 
ERROR +1 
CLR CPEREG 


SEQ 0142 


; 
;CPU ERROR 


s;CLEAR CPU ERROR REG 


NOW WE‘LL TRY TO FETCH AN INSTRUCTION FROM AN INTERNAL REGISTER. 
OULD CAUSE A TRAP TO ADDR 4 AND SET BIT 6 IN THE CPU 
sERROR REGISTER. 


;THIS SH 


6$: 


10$: 


1$: 
2s: 


3$: 


43: 


5$: 


6$: 


MOV 73,4 
MOV 030340, 6 
CLR PS 

JMP PS 

ERROR +l 

MOV PS,R1 
CMP #BITO6 ,CPEREG 
BEQ 8$ 

ERROR ol 

CMP OPS, (CSP)+ 
BEQ 9$ 

ERROR +1 

CMP #0, (CSP )+ 
BEQ 10% 
ERROR +1 

CMP #340 ,R1 
BEQ 11$ 
ERROR 1 

CLR CPEREG 
MOV SLOCOO ,4 
MOV SLOCO1.6 


REO ZONE TRAP TEST 
864 , SLOCOO 


MOV ° 

MOV $, 

MOV #777 ,R6 
CLR CPER 

CLR 

TST 80177700 
ERROR +i 

CMP #0 ,SP 

BEQ $ 

ERROR +1 

CMP 01%,(SP)+ 
BEQ 4$ 

ER +1 

CMP @0,(SP) 
BEQ 5$ 

ERROR +1 

CMP #124 ,CPEREG 
BEQ 6$ 

ERROR «1 

CLR CPEREG 
MOV @STBOT ,SP 
MOV SLOCOO , 804 





;LOAD VECTOR WITH TRAP HANDLER ADOR 

;LOAD VEC WITH PSW VALUE ON TRAP 

;CLEAR THE PSW 

p#eeeeeeTEST INSTRUCTIONesseeeee 

sTRY INSTRUCTION FETCH FROM INTERNAL 

;REGISTER-- SHOULD TRAP VIA ADOR 4 
;CPU ERROR 

sSAVE CONTENTS OF PSW IN Ri 

;IS CPU ERROR REGISTER CORRECT? 


’ 
;CPU ERROR 
3IS STACK CONTENTS CORRECT? 


; 
;CPU ERROR 
;IS STACK CONTENTS CORRECT? 


; 
;CPU ERROR 
sWAS PSW LOADED PROPERLY ON TRAP? 


; 
;CPU ERROR 

;CLEAR CPU ERROR REGISTER 

sRESTORE VECTOR 

Fy eo 


sSAVE VECTOR 

;SET UP VECTOR 

;SET UP THE STACK WITH ODD ADDRESS 

;CLEAR THE CPU ERROR REGISTER 

;CLEAR THE PSW 

;ACCESS NON-EXISTANT I/0 ADDRESS 
;CPU ERROR 

:IS R6 CORRECT? 

;BRANCH IF YES 


:;IS DATA Ry Es 0 CORRECT? 
;BRANCH IF YES 


sIS PSW DATA IN ADDR 2 CORRECT? 
—— IF YES 


:IS CPU ERROR REGISTER CORRECT? 
;BRANCH IF YES 

;CPU ERROR 
;CLEAR CPU ERROR REGISTER 
;RESTORE STACK 
;RESTORE VECTOR 
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a 


034272 
7868 034276 


786 

7870 934300 
7871 034302 
7872 034306 
7873 

7874 034312 
7875 

7876 

7877 034314 
7878 034316 
7879 034320 
7880 034322 
7881 


005037 
005037 


016767 
012767 
005067 
005737 
016767 
000401 


104001 


013767 
013767 
012737 
012737 
012703 


012704 


000237 
005037 
023724 
001401 


104001 
010337 
023724 


001401 


146574 


034324 


177772 
177772 


177772 
177772 
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146616 
143602 


143564 


PIRXXX : 


PIRQNX : 
PIRTEX: 


PIR1: 
; 


1$: 


2s: 


PIRTBL : 


EXPIR1: 


800 
a2 


CLR 
CLR 


TEST PIRQ REGISTER RESPONSE 
4,SLO0COO 


SEQ 0143 


sRESTORE ADDR O 
sRESTORE ADDR 2 


MOV » SLOC sSAVE CONTENTS OF VECTORS 

MOV OP TRONX, 4 sSETUP INTERRUPT VECTOR 

CLR CPEREG ;CLEAR CPU ERROR REGISTER 

TST 8ePIRQ sLOOK FOR REPLY FROM PIRQ 

MOV SLOCOO ,4 sRESTORE VECTORS 

BR PIRTEX sIF IT RESPONDS, CONTINUE TESTING. 
sERROR! NO RESPONSE FROM PIRQ REG 

ERROR +1 sCPU ERROR 

TEST PIRQ REGISTER DATA 

MO GOPIRQVEC, SLOCOO — PIRQ VECTORS 


BOPIRQVEC+2,SLOCOL 
@UNXPIR , BOPIRQVEC 
@PR7 , BOPIRQVEC +2 
#1000,R3 

@PIRTBL ,R4 

7 

SePIRQ 
BOPIRG,CR4)+ 

2$ 

+1 

R3 , BOP IRG 
BOPIRG,.CR4)+ 

3$ 


SET UP PIRG VECTOR FOR UNEXPECTED INTERRUPT 


;PUT 1000 IN R3: START TESTING 
sBITS IN PIRQ@ REG BY FLOATING 

3A BIT THROUGH BITS 9-15. 

;SET UP R4 AS A POINTER TO EXPECTED 
sENCODED PRIORITY LEVELS IN PIRTBL 
;D0N‘T ALLOW INTERRUPTS. 

;CLEAR OUT THE PIRQ 

sIS PIRQ 0K?? 

: H IF OK 

sERROR; PIRQ REG WAS NOT CLEAR 


;CPU ERROR 


sSET A BIT IN PIRQ REGISTER 
;COMPARE THE ENCODED PRIORITY BITS 
iWITH DATA IN THE TABLE (PIRTBL) 
sBRANCH IF ITS OK 

sERROR; ENCODED PRIORITY LEVELS ARE 
sNOT CORRECT 


+1 :CPU ERROR 


sxcccccx S823 8 283 892% 3 3232 
SSSSSSS8 RFs i 353 mzce < <<<<< 
2 





sFLOAT A “1" THRU BITS 9-15 
sIF CARRY BIT ISN'T SET, DO AGAIN. 
;GO TO EXIT TEST. 





A 
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SEQ 0144 
eeeeeeeeeaee DOUBLE OPERAND TESTS seeeeeseseceasecece 

7903 034344 PIR2: 
7904 : TEST PIRQ REGISTER LEVEL ENCODING 
7905 £5 900606006666 06600 66060606 660066546606466464664666466606464646664666666 6464666666 

sTHIS TEST IS TO CHECK THAT THE HIGHEST PRIORITY LEVEL SET IN THE 

sPROGRAM INTERRUPT REQUEST BITS IS REFLECTED IN THE ENCODED PROGRAM 

s INTERRUPT wees BITS. 
7906 034344 000237 SPL ;SHUT OFF INTERRUPTS 
7907 034346 005037 177772 CLR jeprRG ;CLEAR PIRQ REGISTER 
7908 034352 012767 000001 146450 MOV @1,FLAG sSETUP END OF LOOP SIGNAL 
7909 034 012703 177000 MOV #177000,R3 ;SET UP DESIRED PATTERN IN R3 
7910 034364 012704 034430 MOV OPITBL1,R4 ;SETUP R4 AS A TABLE POINTER 
oot 034370 010337 177772 18; MOV R3,9OPIRQ sSET PATERN IN PIRQ REGISTER 
7913 034374 023724 177772 CMP BOPIRQ,CR4)+ sCOMPARE PATTERN IN PIRQ WITH PATTERN IN 
7914 sEXPECTED PATTERN TABLE. 
7915 034400 001012 BNE es :GO TO ERROR IF NOT THE SAME 
7916 034402 005737 003030 TST BeFLAG ;IS THIS THE LAST TIME THROUGH?? 
7917 034406 001421 BEQ PIR2EX ;YES, IF FLAG IS ZERO 
7918 034410 ROR R3 sSHIFT PATTERN TO RIGHT FOR NEXT TEST 
7919 034412 042703 000777 BIC 0777,R3 ;STRIP OFF BITS 8-0 
7920 034416 001364 BNE i$ sIF R3 IS NOT = 0 GO DO THE NEXT PATTERN 
7921 034420 005037 003030 CLR 9OFLAG ;CLR THE FLAG TO INDICATE LAST 
7922 ;TIME THROUGH THE LOOP 
7923 034424 000761 BR i$ 3GO0 THROUGH LOOP ONCE MORE 
7924 sERROR; PATTERNS WERE NOT THE SAME 
La 034426 104001 2s: ERROR -1 ;CPU ERROR 
7927 034430 177356 077314 037252 PITBLi: .WORD 177356,77314,37252,17210, 7146, 3104,1042,0 

034436 017210 007146 003104 

— 034444 001042 000000 
7929 034450 UNXPIR: sUNEXPECTED PIRQ INTERRUPT 
Lb a 034450 104001 ERROR +1 ;CPU ERROR 
7932 034452 PIR2EX: 
7940 
7941 034452 PIR3: 
7942 : TEST PIRQ INTERRUPTS 
7943 of 2046660666 66 662860066646 0420 6066464646660 64466064066060646446446466046406488 

;THIS TEST CHECKS THAT EACH PROGRAM INTERRUPT OCCURS PROPERLY 
7944 034452 012703 001000 MOV #1000,R3 ;SETUP R3 AS A WORKING REGISTER 
7945 034456 012737 034522 000240 MOV @PIRRITN, SOPIRQVEC gee UP INTERRUPT ROUT INE AT PIR VECTOR 
7946 034464 612737 000340 000242 MOV $340 , BOP IRQVEC+2 
7947 034472 005004 CLR RS HINITIALIZE, y As EXPECTED DATA HOLDER. 
7948 034474 005724 PIi: TST (R4)- ; INCREMENT Y2 
7949 034476 050337 177772 BIS R3 , BoP IRQ ;SET PIRQ 10. INTERRUPT 
7950 034502 000230 SPL 0 sENABLE INTERRUPT TO OCCUR 
7951 sERROR! INTERRUPT DID NOT OCCUR 
7952 034504 104001 ERROR +1 ;CPU ERROR 
7953 sERROR! INTERRUPT OCCURRED IN WRONG SEQUENCE 
7954 034506 104001 PI2: ERROR +1 ;CPU ERROR 
7955 034510 062706 000004 PI3: ADD #4 ,SP ;CLEAN UP THE STACK 
7956 034514 006303 ASL R3 ;SHIFT R3 TO LEFT FOR NEXT INTERRUPT 
7957 034516 103366 BCC PIi ;END IF CARRY BIT IS SET 
Las = 034520 000412 BR PIR3SEX ;0N TO THE NEXT TEST 
7960 034522 013705 177772 PIRRTN: MOV aePIRQ,RS ;sMOVE THE CONTENTS OF PIRQ REG TO R5 


-— 








COKDAEO KOJ11-68 CLUSTER DIAG. 
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8 034676 
8C29 034702 


ae 


103374 
005037 
000403 
005037 


104001 


010337 


013701 
013702 


177772 
177761 


177742 


177772 
177776 


001000 
034616 
000340 
177772 


177772 


177772 


177772 
034742 
000340 
035020 
000006 


001000 
143106 


177772 


177776 
177772 
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000240 
000242 


000240 
000242 


114144 


PIRSEX: 


PIR4: 
3 


sLEVEL IS SET TO BLOCK THEM OUT. 
LR GEPIRQ 


2s: 


3$: 


PIRS: 
; 


;THE PRIORITY LEVEL IS INITIALLY SET TO PRI6. 
sAT PRI1. NO INTERRUPTS SHOULD 


BOPIRG 
#177761,R5 


PI2 
PI3 


sKILL PIRQ@ INTERRUPT. 

sMASK OFF ALL BITS EXCEPT 1-4, 

s0ID THE CORRECT LEVEL INTERRUPT OCCUR? 
siF NOT; GO TO ERROR. 

sRETURN FROM eet oe INTERRUPT ,GET 
sREADY FOR THE NEXT ONE. 


TEST PIRQ VS PSW INTERRUPT LEVEL 
js PHRASE EAAEEREEAE EASA AE EEADAE DEDEDE EEEEEEOEDEEEEEEEOEEEREEEEEESS 


sTHIS TEST IS TO ENSURE THAT PIRQ CANNOT INTERRUPT WHEN PSW INTERRUPT 


~— 
#1000, 


R3 
62%, 9@PIRQVEC 
#340 ,BOPIRQVEC +2 
a 


i$ 
GOPIRQ 
3$ 
BOPIRQ 


el 


sCLEAR THE PIRQ 

;CLEAR THE PSW. 

sBLOCK INTERRUPTS FROM BEING SERVICED. 
sUSE R3 AS A WORKING REGISTER. 

sSETUP INTERRUPT VECTORS 


; 
sSET INTERRUPT LEVEL IN PIRQ. 
sSHIFT A “1” LEFT TO INCREASE INTERRUPT 
sPRIORITY LEVEL. 
sIF C BIT NOT SET THEN DO IT AGAIN. 
sELSE CLEAR THE PIRQ 
sEXIT TEST. 


;STOP PIRQ ©ROM INTERRUPTING. 
sERROR! NO INTERRUPTS SHOULD OCCUR. 
;CPU ERROR 


TEST PIRQ INTERRUPTS OCCUR AT PROPER LEVEL 


s § 880428646 66646 6846868 64466608606 666068 6048646860066 60646460664664066466686486 


sTHIS TEST ENSURES THAT INTERRUPTS OCCUR AT THE PROPER LEVEL 


OCCUR UNTIL THE 


INTERRUPTING LEVEL EXCEEDS THE 


sPRIORITY LEVEL IN THE PSW. AFTER EACH LEVEL OF INTERRUPT HAS BEEN TRIED; THE 


sPSW PRIORITY LEVEL IS LOWERED ONE NOTCH, 
sPRIORITY ~_— 0 IS REACHED. INTERRUPTS AT PSW PRIORITY LEVEL 0 HAVE BEEN DONE 


;PREVIOU 


1$: 


3$: 


MOV R3,8eP IRQ 
;#e#e4ee4eINTERRUPTS WILL HAPPEN HEREssaseaeae 
MOV BOPS ,R1 


MOV 


@OPIRQ 
$105 ,@e@P IRQVEC 
ot la 


BOPIRQ,R2 





AND THE CYCLE REPEATS UNTIL PSw 


;CLR THE PIRQ 
;SET UP INTERRUPT VECTORS 


; 
sSETUP RS AS A TABLE POINTER. 
sINIT LOCATION DCOUNT: 
sINITIALIZE R4 AS A COUNTER. 
sUSE R3 AS A WORKING REGISTER. 
sMOVE PRIORITY LEVEL TO PSW 

s INCREMENT R4 BY 2 

sSET INTERRUPT LEVEL IN PIRQ. 
;SAVE PS IN Ri !ONLY EXECUTED 
;SAVE PIRQ IN R2 ! IF NO 


THE PIRQ THEN STARTS INTERRUPTING 





SEQ 0145 
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8030 034706 


8031 


042701 
042702 
020102 
002001 


177437 
177437 


114144 
000072 


177772 
177772 
000004 


177437 
177437 


177761 


034724 


4$: 


sPIRQ INTERRUPT 


. 
10$: 


21%: 


PITBL2: 


PIRSEX: 


PIR6: 
$ 








0177437,R1 
0177437,R2 


R1,R2 
43 


+1 

R3 

3$ 

9eDCOUNT 

i$ 

PIRSEX 

SERVICE ROUTINE 


SOPIRQ, -CSP) 
B4PIRQ 


0177437, R2 
0177437,R1 
203 


+1 
(SP)+,R2 
#177761,R2 


2i$ 


ol 
643 ,(SP) 
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SEQ 0146 


sCLEAR EXTRANEOUS BITS 


“ 
sR1 SHOULD BE >= R2 ; 
;IF IT IS GO ON : 

sERROR! SHOULD HAVE INTERRUPTED. 


! INTERRUPT 
: HAS 
OCCURRED 


;CPU ERROR 


sSHIFT A “1” LEFT UNTIL INTERRUPT LEVEL 
sIS REACHED. 

sBRANCH BACK IF CARRY IS NOT SET. 
sLOWER INTERRUPT PRIORITY LEVEL 

sIF DCOUNT= 0 , WE‘RE DONE. 

;JUMP TO END OF THIS TEST. 


sSAVE PIRQ DATA ON STACK 

sSHUT OFF PIRQ INTERRUPTS 

sGET OLD PSW. SAVE IN R1. 

sGET PIRQ FROM STACK. 

;CLEAR UNWANTED BITS FROM R2 

;CLEAR UNWANTED BITS FROM Ri 

sR2 SHOULD BE > R1. 

sGO CHECK SEQUENCE OF INTERRUPT. 

sERROR! PRIORITY OF apg WAS NOT 

sHIGH ENOUGH. SHOULDN‘T HAVE OCCURRED. 
;CPU ERROR 

sPOP OLD PIRQ OFF THE STACK. 

sCLEAR OFF EXTRANEOUS BITS. 

sSHOULD BE EQUAL. 

;IF THEY ARE EQUAL, CLEAN UP STACK AND 

sGET READY FOR THE NEXT INTERRUPT 


;ELSE 

sERROR! INTERRUPT OCCURRED OUT OF SEQUENCE. 
;CPU ERROR 

;PUT RETURN ADDRESS ON THE STACK. 

sRETURN FROM INTERRUPT. RESTORE PSW. 


sPRIORITY LEVEL 6 
sPRIORITY LEVEL 5 
sPRIORITY LEVEL 4 
sPRIORITY LEVEL 3 
sPRIORITY LEVEL 2 
sPRIORITY LEVEL 1 


TEST THAT PIRQS ARE SERVICED IN CORRECT ORDER 

Pett or Ei irri iviriiriitiiiiiitiititittttttttittt 

sTHIS TEST CHECKS THAT ALL PIRQ INTERRUPTS ARE SERVICED 

;IN THE CORRECT DECENDING ORDER. I.E. IRQ6 IS NOT SERVICED 

qh = ETC. THE PIRQ IS LOADED WITH ALL INTERRUPTS SIMUL TANEOUSLY 
; 


THE PSW PRIORITY LEVEL IS THEN LOWERED TO 0. EACH INTERRUPT 


;SHOULD BE SERVICED IN DECENDING ORDER. EACH TIME AN INTERRUPT OCCURRS, THE PSW 
;1S LOADED WITH PRIORITY LEVEL 7 WHICH STOPS THE PIRQ FROM FURTHER INTERRUPTS. 
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SEQ 0147 


—— 


sAFTER A CORRECT INTERRUPT, AN RTI IS EXECUTED, AND THE PSW PRIORITY LEVEL 
sRETRUNS TO ZERO —” THE NEXT LOWER INTERRUPT TO OCCUR. 


8095 035034 005037 177772 CLR ;CLEAR OUT THE PIRQG 
8096 035040 000237 SPL sNO INTERRUPTS WILL BE SERVICED. 
8097 035042 012737 035102 000240 MOV $108 .eepzRavec sSET UP VECTORS 
8098 035050 012737 000340 000242 MOV OPR7 ,BOPIRQVEC +2 ; 
8099 035056 012703 177000 MOV 177000,R3 ;SETUP DESIRED PATTERN IN R3 
8100 035062 010337 177772 MOV R3,9eP IRQ sMOVE PATTERN IN R3 TO PIRQ. 
8101 035066 012704 000016 MOV 016,R4 ;PRELOAD R4 AS A DECREMENTING COUNTER. 
8102 035072 SPL 0 sLET THE PIRQ INTERRUPT 
8103 ;*eee444e4eTNTERRUPTS OCCUR waiets } tenesecannaasanesens 
8104 035074 005704 TST R4 ;IS R4 ZERO? IT SHOULD BE. THIS 
8105 sINSTRUCTION SHOULON‘'T BE EXECUTED 
8106 sUNTIL ALL INTERRUPTS HAVE OCCURRED. 
8107 035076 001417 BEQ PIR6EX ;GO TO NEXT TEST. 
8108 sERROR! ALL INTERRUPTS DID NOT OCCUR. 
8109 035100 ERROR ol ;CPU ERROR 
8110 035102 013702 177772 10$: MOV BePIRG,R2 ;SAVE THE PIR@ IN R2 
8111 035106 042702 177761 BIC #177761,R2 ;STRIP OFF EXTRANEOUS BITS. 
8112 035112 020402 CMP R4 ,R2 ;SHOULD BE EQUAL. 
8113 035114 001401 BEQ 15$ sSETUP FOR NEXT INTERRUPT. 
8114 sERROR! INTERRUPT WAS SERVICED OUT OF ORDER 
8115 035116 104001 ERROR +1 ;CPU ERROR 
8116 035120 005744 15$: TST -CR4) ;DECREMENT R4 BY 2 
8117 035122 006003 ROR R3 ;CHANGE PATTERN IN R3; LOWER INTERRUPT PRIORITY 
8118 035124 042703 000777 BIC €777 .R3 ;STRIP OFF UNNEEDED BITS 
8119 035130 010337 177772 MOV R3,9ePIRG ;sLOWER INTERRUPT PRIORITY LEVEL. 
arty 035134 RTI 5 
8122 035136 016737 145650 000240 PIRG6EX: MOV SLOCOO , BOP IRQVEC sRESTORE VECTORS 
yon 035144 016737 145644 000242 MOV SLOCO1 , @@PIRQVEC+2 ; - 
; 
8126 
8129 -SBTTL MEMORY MANAGEMENT TESTS 
8130 $5086 0460666466 6664606 00646464660646064604600606406 660640 466060646 646006460 0646646 06604464604 460446% 
8131 5 £O605 060654666602 060666 66 0466046646066 0046064640006 60 0600060044600 466646 640464048 464684% 
8132 3 BEGIN MMU TESTING 
8133 5 2420626 $4600 646606046646 6664640060644 0660000466046 646 046646446446 6604604606446 4060464602464 44% 
8134 599406400666 66 0660646066646 6404666866 6606646460400 06 6460060044646 464646 6440404004 4624%% 
8136 035152 TSMMUL: 
8137 ; STATUS REGISTER TEST 
8138 035152 005067 142610 CLR CPEREG ;CLEAR CPU ERROR REGISTER 
8139 035156 005037 177572 CLR 80177572 ;TURN MMU OFF 
8140 035162 005037 003030 CLR BGFLAG ;CLEAR MMU TRAP FLAG 
8141 035166 013746 000004 MOV 904, -CSP) ;SAVE OLD VECTOR 
8142 035172 012737 137720 000004 MOV #ADDTRP , 864 ;SETUP NEW VECTOR 
8143 035200 005005 CLR RS ;CLEAR FLAG 
8144 035202 013701 177572 MOV 8¢177572,R1 ; TEST MMRO 
8145 035206 013701 177574 MOV 86177574,R1 ; TEST MMRI 
8146 035212 013701 177576 MOV 8¢177576,R1 ; TEST MMR2 
8147 035216 013701 172516 MOV 80172516 .R1 ; TEST MMRS 
8148 035222 012637 000004 MOV (SP)+, 904 sRESTORE VECTOR 
8149 035226 020527 000000 CMP #0 ;DID WE TRAP 
8150 035232 001401 BEQ 1$ ;NO, THEN BRANCH 
8151 035234 104002 ERROR rd 7MMU ERROR 
8152 ;YES, GO TO ERROR 
8153 035236 1$: 
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MEMORY MANAGEMENT TESTS 


— 


8156 035236 
8157 


8210 035466 
8211 035472 
8212 035474 


142524 
177572 
30 


003052 
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TSMMV2 : 
° 


3$: 


21$: 


22$: 
4$: 


5$: 


80177572 
8OF 


@ADDTRP , 804 
RS 


#172200,RO0 
CRO)+ 

RO, #172400 
1$ 
#177600,R0 
CRO)+ 
— 


CRO), 
CRO), AC3 


CR4) 03% 
22$ 

+2 
“woe 


R2,CR4)+ 
R1 
R4,#172400 
4$ 
#177600,R4 


SEQ 0148 


ADDRESS TEST OF PARS,PORS, AND FP REGS 
R CPEREG 


sCLEAR CPU ERROR REGISTER 
sMMU OFF 

s;CLEAR MMU TRAP FLAG 
;SAVE FP VECTOR 


sSAVE TIME OUT VECTOR 
;SETUP NEW FP VECTOR 


; 

;SETUP NEW TIME OUT VECTOR 

;CLEAR TIMEOUT FLAG 

;LOAD ALL PARS AND PORS WITH ZERO 
i 


LOAD ACO-ACS WITH 0 


s;LOAD FEC WITH 4 AND FEA WITH #3$ 
sCHECK FEC FOR 4 AND FEA FOR @3s 
: 

sMMU ERROR 

;MMU ERROR 


;CHECK EACH PAR, POR FOR O THEN 
sWRITE A UNIQUE NUMBER TO IT 
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8213 035500 
8216 035512 
oH 035514 


8219 035516 
8220 035520 


8266 035710 


8268 035712 
8269 035714 


000010 
000000 


177700 


003062 
003052 


000004 
000000 


003052 
000006 


000004 
000000 


003052 
000005 
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6$: 


7$: 


9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


15$: 


7 

+2 
R2,CR4)+ 
R 


1 
R4,0177700_ 
6$ 


SEQ 0149 


CHECK ACS FOR ALL ZEROES THEN LOAD A 6 


sMMU ERROR 


sMMU ERR 


; 
; 
; 
; 
sMMU ERROR 


CHECK AC4 FOR ALL ZEROES THEN LOAD A 5 


CHECK ACO FOR ALL ZEROES THEN LOAD A 1 


CHECK ACi FOR ALL ZEROES THEN LOAD A 2 





——_—. 
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—— 


8270 035716 
8271 035722 
8272 035724 
8273 035730 
8274 035734 
8275 035736 
8276 035742 
8277 035744 


8326 036136 


012713 


012704 


SY TAS EE A ET RR ET 
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16$: 


17$: 


18$: 


19$: 


23$: 


243: 


26$: 


+2 


2 
— 


ACO, (R1) 





SEQ 0150 


; 
sCHECK AC2 FOR ALL ZEROES THEN LOAD A 3 
; 

; 

; 


; 
sMMU ERROR 
; 

: 


; 
;CHECK AC3 FOR ALL ZEROES THEN LOAD A 4 
; 

; 

‘ 


; 
sMMU ERROR 
; 


CHECK FPS FOR 100204 THEN LOAD IT WITH 200 


; 
;MMU ERROR 
; 


+ 
;sCHECK POR, PAR FOR UNIQUE NUMBERS 


E 
: 
Riciies 


MMU ERR 


; 
; 

; 

sCHECK ACS FOR #6 
; 

; 

; 

; 
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8382 
8383 


ETS eS ae ae 


036306 
036310 


036312 


036334 
036340 


022127 
001401 
104002 


012703 
022127 
001401 
104002 


005303 
001372 
012701 
172404 
174011 
022127 
001401 
104002 


012703 
022127 
001401 
104002 


005303 
001372 
022427 
001401 
104002 


012703 


022127 
001401 
104002 


012703 
022127 


000006 


000003 
000000 


003052 


000005 


000003 
000000 


000003 
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27$: 
23%: 


29%: 


30$: 
31$: 


32$: 


33$: 
34$: 


35$: 


36$: 
37$: 


38$: 


39$: 
40$: 


(R1)+, 06 
27$ 
+2 


$3 ,R3 
CR1i)+, 40 
29$ 


(R1i)+, #2 
36$ 
+2 


#3 ,R3 
C(R1)+, 40 
38$ 


+2 


R3 

37$ 
#FLOAT,Ri 
AC2,(R1) 
(R1)+, #3 
39$ 

+2 


#3 ,R3 
(R1)+, 40 


; 
;MMU ERROR 
i 

; 


;CHECK AC4 FOR #5 


; 
sMMU ERROR 
; 


; 

; 

; 
sMMU ERROR 
; 

i 


5 
sCHECK ACO FOR #1 


; 
;MMU ERROR 
$ 


: 

; 

$ 
;MMU ERROR 
; 

; 


; 
;CHECK ACi FOR 42 


i 
sMMU ERROR 


; 

: 

; 
sMMU ERROR 


: 
;CHECK AC2 FOR #3 


3 
;MMU ERROR 


rr ee ++ 


SEQ 0151 


LL SS neha stesso 1 
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SEQ 0152 


8384 


036344 


001401 


41$ 


; 
;MMU ERROR 


pene 036346 104002 ERROR +2 
i 
8387 036350 005303 41$: DEC R3 ; 
8388 036352 001372 BNE 40$ ; 
8389 036354 012701 003052 MOV FLOAT ,R1 sCHECK AC3 FOR #4 
8390 036360 174311 STD ACS, CR1) i 
8391 036362 022127 000004 CMP C(R1)+, ; 
8392 036366 001401 BEQ 42$ ; 
aane 036370 104002 ERROR +2 sMMU ERROR 
; 
8395 036372 012703 000003 42$: MOV #3 ,R3 ; 
8396 036376 022127 000000 43$: CMP (R1)+, ; 
8397 036402 001401 BEQ 44% i 
yoo 036404 104002 ERROR +2 sMMU ERROR 
i 
036406 005303 44%: DEC R3 i 
8401 036410 001372 BNE 43$ ; 
8402 036412 020527 000000 CMP RS, #0 sIS TIME OUT FLAG 0 
8403 036416 001401 BEQ 45$ ;YES GO ON 
8404 036420 104002 ERROR +2 sMMU ERROR 
8405 sNO GO TO ERROR 
8406 036422 012637 000004 45$: MOV (SP)+, 004 sRESTORE TIME OUT VECTOR 
8407 036426 012637 000246 MOV (SP)+, 80246 sRESTORE FP VECTOR 
toe 036432 012637 000244 MOV (SP)+, 80244 ; 
8412 036436 TSMMUS : 
8413 : WRITE ALL PARS/PORS WITH ONES THEN ZEROS 
8414 036436 005037 177572 CLR 84177572 MMU OFF 
8415 036442 005037 003030 CLR S¢FLAG ;CLEAR MMU ABORT FLA 
8416 036446 012703 172200 MOV #172200,R3 ;sLOAD ALL PARS AND PDRS WITH ONES 
8417 036452 012723 177777 1$: MOV $177777,CR3)+ i 
8418 036456 020327 172400 CMP R3, #172400 ’ 
8419 036462 001373 BNE i$ ; 
8420 036464 012703 177600 MOV #177600,R3 ; 
8421 036470 012723 177777 2s: MOV = Igsee >" ; 
8422 036474 020327 177700 CMP R3,#1777 ; 
8423 036500 001373 BNE 2$ i 
8424 036502 012703 172200 MOV #172200,R3 sCHECK SPDRS FOR ONES 
8425 036506 022327 177416 3$: CMP CRS)», @177416 i 
8426 036512 001401 BEQ ; 
po 036514 ERROR *2 sMMU ERROR 
; 
8429 036516 020327 172240 4$: CMP R3,#172240 ; 
8430 036522 001371 BNE i 
8431 036524 022327 177777 5$: CMP (R3)+, 0177777 ;CHECK SPARS FOR ONES 
8432 036530 001401 BEQ 6$ i 
aon 036532 104002 ERROR +2 sMMU ERROR 
i 
8435 036534 020327 172300 6$: CMP R3,#172300 ; 
8436 036540 001371 BNE S$ ; 
8437 036542 022327 177416 7$: CMP (R3)+, #177416 sCHECK KPORS FOR ONES 
8438 036546 001401 BEQ 8$ ; 
oore 036550 104002 ERROR +2 sMMU ERROR 
; 
8441 036552 020327 172340 8$: CMP R3 4172340 ; 
8442 036556 001371 BNE 7$ ; 








-~ 
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8443 036560 


037012 


022327 
001401 
104002 


020327 


177777 


172400 


177600 
177416 


177640 
177777 


177700 
172200 
000000 
172400 
177600 
000000 
177700 
172200 
000000 


172400 


177600 
000000 


177700 


177572 
4062 





9$: 


10$: 


11$: 


12$: 
13$: 


14$: 


15$: 


16$: 


17$: 


18$: 


19$: 


20%: 


1$: 


2s: 


3$: 
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(R3)+, 0177777 
10$ 

+2 

R3,%172400 

G4 

#177600,R2 
(R3)+, 0177416 
12$ 

+2 

R3,#177640 
11$ 

(R3)+, 0177777 
14$ 

+2 

R3,#177700 
13$ 
#172200,R3 
60 


+ 


R3 0172400 


RS 017700 

#172200,R3 
(R3)+, 90 
18$ 

+2 

R3 , #172400 
7$ 


1 
#177600,R3 
CR3)+, 40 
20% 


+2 
R3,%177700 
19$ 


oS 
125012, (RO)+ 
RO, #172240 


1 

#125252, (RO)+ 
#52525 .,(RO)>+ 
“_— 


#52404 ,,CRO)> 
#125012, (RO)+ 
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SEQ 0153 


;CHECK KPARS FOR ONES 


; 
sMMU ERROR 
, 

i 


; 
;CHECK UPDRS FOR ONES 
‘ 


;MMU ERROR 
; 

i CHECK UPARS FOR ONES 
_ ERROR 

; 


; 
sLOAD ALL PARS AND PORS WITH ZEROES 


; 
; 
; 
; 
; 
; 
; 
;sCHECK ALL PARS AND PDRS FOR ZEROES 


; 
; 
sMMU ERROR 


"Test FOR ADJACENT SHORTS IN PARS/PDRS 
90177572 ;MMU 


OFF 
;CLEAR MMU ABORT FLAG 
sLOAD SPDRS WITH ALTERNATING PATTERN 
3 
j 
i 


; 

sLOAD SPARS WITH ALTERNATING PATTERN 
; 

5 


: 
;LOAD KPORS WITH ALTERNATING PATTERN 
: 
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<a 


8502 037016 


8503 


8555 
8556 
8557 
8558 


037022 


037170 
037172 


037214 
037216 


037220 
037224 
037226 
037230 
037234 


012703 
022327 
001401 
104002 


022327 
001401 
104002 


020327 
001365 
022327 
001401 
104002 


125012 


172340 
125252 


052525 


172400 
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4$: 


5$: 


6$: 


9$: 
10$: 


11$: 


12$: 
13$: 


14$: 


15%: 
16$: 


i7$: 


18$: 





ica 
#125252, (RO)+ 
#52525 ,CRO)+ 
ow 
#177600,RO0 
052404 ,CRO)+ 
#125012, (RO)-+ 
—_— 
#125252, (RO)+ 


#52525 ,,CRO)+ 
— 


#172200,R3 
(R3)+, 052404 
8$ 

2 

(R3)+, 0125012 
9$ 

+2 

gp eeranee 
CR3)+, 0125252 
11$ 

ae 

(R3)+, 052525 
12$ 

2 

R3 ,#172300 
10$ 

C(R3)+, 052404 
14$ 

+2 

CR3)+, #125012 
15% 

+2 
R3,0172340 
13% 

17$ 

+2 

(R3)+, 052525 
18% 

+2 
R3,%172400 
16$ 


SEQ 0154 


i 

;LOAD KPARS WITH ALTERNATING PATTERN 
; 

i 


° 

;LOAD UPDRS WITH ALTERNATING PATTERN 
; 

‘ 

4 


‘ 

sLOAD UPARS WITH ALTERNATING PATTERN 
. 
; 
3 


sCHECK SPORS 
; 


; 
;MMU ERROR 
| 

; 


; 
;MMU ERROR 
: 

; 


; 
;CHECK SPARS 


; 
sMMU ERROR 
; 

; 


: 
sMMU ERROR 
; 

; 


: 
;CHECK KPDRS 


; 
sMMU ERROR 
i 

: 


; 
sMMU ERROR 
i 

: 


: 
;CHECK KPARS 


: 
;MMU ERROR 
; 

: 


3 
;MMU ERROR 
: 

3 

: 





= rc 
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SEQ 0155 


8559 037236 012703 177600 #177600,R3 s;CHECK UPORS 
8560 037242 022327 052404 19$: CR3)+, 052404 ‘ 
8561 037246 001401 20% ; 
oe 037250 104002 +2 sMMU ERROR 
8564 037252 022327 125012 203: (R3)+, 0125012 ; 
8565 037256 001401 21$ ; 
poe 037260 1 +2 sMMU ERROR 
8568 037262 020327 177640 21$: R3,0177640 ; 
8569 037266 001365 19$ i 
8570 037270 022327 125252 223: C(R3)+, 0125252 ;CHECK UPARS 
8571 037274 001401 23% ; 
poe 037276 +2 sMMU ERROR 
8574 037300 022327 052525 23%: CR3)+, #52525 i 
8575 037304 001401 24% ‘ 
po 037306 +2 sMMU ERROR 
8578 037310 020327 177700 243: R3,9177700 ; 
po oe 037314 001365 22% ; 
; 
pened sREVERSE ALTERNATING PATTERN 
; 

8583 037316 012700 172200 #172200,R0 sLOAD SPDRS WITH REVERSE PATTERN 

03 012720 125012 25$: #125012, (RO)+ ‘ 
8585 037326 012720 2404 #52404 ,CRO)+ i 

037332 0027 172240 RO, #172240 ; 
86587 037336 001371 25% ; 

03 012720 052525 263%: #52525 ,(RO)+ sLOAD SPARS WITH REVERSE PATTERN 
8589 037344 012720 125252 #125252, (RO)> i 
8590 037350 020027 172300 RO, #172300 : 
8591 037354 001371 26% ; 
8592 037356 012720 125012 27$: #125012, (RO)> sLOAD KPDRS WITH REVERSE PATTERN 
8593 037362 012720 2404 . . ; 
8594 037366 27 172340 RO, 0172340 ; 
8595 037372 001371 7$ ; 
8596 037374 012720 052525 28%: oC RO)+ sLOAD KPARS WITH REVERSE PATTERN 
8597 037400 012720 125252 #125252, (RO)> ; 
8598 037404 020027 172400 RO, #172400 ; 
8599 037410 001371 283 : 
8600 037412 012700 177600 #177600,R0 LOAD UPDRS WITH REVERSE PATTERN 
8601 037416 012720 125012 29%: #125012, (RO)> ; 
8602 037422 012720 052404 52404 ,CRO)> : 
8603 037426 020027 177640 RO, #177640 ; 
8604 037432 001371 29% : 
8605 037434 012720 052525 30$: #52525 .CROV+ sLOAD UPARS WITH REVERSE PATTERN 
8606 037440 012720 125252 #125252, (RO)+ , 
8607 037444 020027 177700 RO, #177700 : 
8608 037450 001371 30$ i 
8609 i 
8610 037452 012703 172200 #172200,R3 sCHECK SPORS 
8611 037456 022327 125012 31$: (R3)+, 0125012 : 
8612 037462 001401 32$ ; 
cone 037464 104002 +2 sMMU ERROR 

i 

8615 037466 022327 052404 32$: CMP CR3)+, 052404 i 








— 
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8616 037472 
8617 037474 
8618 

8619 037476 


864 

8649 037600 
8650 037604 
8651 037606 
8652 037612 
8653 037616 
8654 037620 


8655 
8656 037622 


172240 
052525 


125252 


172300 
125012 


052404 


172340 
052525 


125252 


172400 


177600 
125012 


052404 


177640 
052525 


125252 


177700 
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BEQ 
ERROR 
33%: CMP 
BNE 
343: CMP 
BEQ 
ERROR 
35%: CMP 
BEQ 
ERROR 
36$: CMP 
BNE 
37$: CMP 
BEQ 
ERROR 
38$: CMP 
BEQ 
ERROR 
39%: CMP 
BNE 
40$: CMP 
BEQ 
ERROR 
41$; CMP 
BEQ 
ERROR 
42$: CMP 
BNE 
MOV 
43%: CMP 
BEQ 
ERROR 
443: CMP 
BEQ 
ERROR 
45$: CMP 
BNE 
463 CMP 
BEQ 
ERROR 
47%: CMP 
BEQ 
ERROR 
483 CMP 
BNE 


33% 
+2 


R3,0172240 
31% 

(R3)+, 52525 
35$ 

+2 

(R3)+, 4125252 
36$ 

+2 

R3,%172300 
34$ 

CR3)+, 0125012 
38$ 

+2 

CR3)+, 052404 
39% 

+2 

R3 ,#172340 
37$ 

CR3)+, 052525 
41$ 

+2 

(R3)+, 0125252 
42$ 

+2 
R3,%172400 
40$ 
#177600,R3 
CR3)+,4125012 
443 
2 
(R3)+, #52404 
453 

2 

R3 0177640 
43% 

(R3)+, 052525 
47$ 

o2 

(R3)+, 0125252 
48% 

o2 

R3 #177700 
46% 





;MMU ERROR 
é 
; CHECK SPARS 
;MMU ERROR 
‘ 
;MMU ERROR 
a 
; CHECK KPDRS 
;MMU ERROR 
‘ 
:MMU ERROR 
. 
| CHECK KPARS 
;MMU ERROR 
: 
;MMU ERROR 
> 


; 
sCHECK UPDRS 
: 


; 
sMMU ERROR 
$ 

; 


: 
;MMU ERROR 
’ 

: 


: 
:CHECK UPARS 


$ 
34MU ERROR 


LL LL LL LLL LL LLL LL EE LEED A LLL LLL CT LL OL tC eC eet ttt i i 


SEQ 0156 


—te 
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SEQ 0157 


8675 037666 TSMMUS : 
8676 TEST MMRO ABORT BITS 
8677 037666 012737 160000 177572 MOV #160000, 94177572 sLOAD MMRO<15:13>=111 
8678 037674 005067 143130 CLR FLAG ;CLEAR MMU ABORT FLAG 
8679 037700 013700 177572 MOV 8eSRO,RO sSAVE SRO IN RO 
8680 037704 042700 000176 BIC #176,R0 ;CLEAR UNDEFINED BITS FROM SRO 
8681 037710 020027 160000 CMP RO, #160000 ;CHECK MMRO 
8682 037714 001401 BEQ i$ ; 
= 037716 1 ERROR +2 sMMU ERROR 
8685S 037720 005037 177572 i$: CLR 80177572 ;LOAD MMRO=0 
8686 037724 013700 177572 MOV 8eSRO,RO :SAVE SRO IN RO 
8687 037730 042700 000176 BIC 4176,R0 sCLEAR UNDEFINED BITS FROM SRO 
8688 037734 020027 000000 CMP RO, #0 ;CHECK MMRO 
8689 037740 001401 BEQ 2% $ 
oa 037742 Ii ERROR +2 ;MMU ERROR 
. 
8692 037744 012737 120000 177572 23: MOV #120000, 8@177572 sLOAD MMRO<15:13>-101 
8693 037752 013700 177572 MOV 82SRO,RO sSAVE SRO IN RO 
8694 037756 042700 000176 BIC $176,R0 ;CLEAR UNDEFINED BITS FROM SRO. 
8695 037762 020027 120000 CMP RO, #120000 ;CHECK MRO 
8696 037766 001401 BEQ 3$ ; 
yond 027770 1 ERROR +2 ;MMU ERROR 
1 
8699 037772 012737 177572 33: MOV #40000 ,80177572 sLOAD MMRO<15:13>-010 
8700 0640000 013700 177572 MOV 8OSRO,RO sSAVE SRO IN RO 
8701 040004 042700 000176 BIC $176,R0 ;CLEAR UNDEFINED BITS FROM SRO. 
8702 040010 020027 040000 CMP RO, 240000 ;CHECK MMRO 
8703 040014 001401 BEQ 4$ ; 
8704 040016 104002 ERROR +2 ;MMU ERROR 
8705 040020 43: 
8708 040020 TSMMU6 : 
8709 3 TEST MMRS BITS 5-0 
8710 040020 005037 177572 CLR 80177572 sMMU OFF 
8711 040024 005067 143000 CLR FLAG ;CLEAR MMU ABORT FLAG 
8712 040030 012737 000077 172516 MOV 677 ,80172516 ;LOAD MMR3<5:0>=77 
8713 040036 023727 172516 000077 CMP 9@172516 ,¢77 ;CHECK MMRS 
8714 040044 001401 BEQ i$ ; 
8715 040046 i +2 ;MMU ERROR 
8716 040050 005037 172516 1$: CLR 80172516 ;LOAD MMR3<5:0>=0 
8717 040054 023727 172516 000000 CMP 96172516, 90 ;CHECK MMRS 
8718 040062 001401 BEQ 2$ 3 
8719 040064 1 ERROR +2 ;MMU ERROR 
8720 040066 012737 000052 172516 23: MOV #52,980172516 ;LOAD MMR3<5:0>252 
8721 040074 023727 172516 000052 CMP 8#172516,¢52 ;CHECK MMRS 
8722 040102 001401 Q 3$ : 
8723 040104 1 ERROR +2 :MMU ERROR 
8724 040106 012737 000025 172516 3%: MOV #25,80172516 ;LOAD MMR3<5:0>=25 
8725 040114 023727 172516 000025 CMP 90172516 ,#25 ;CHECK MMRS 
8726 040122 001401 BEQ 43 ; 
8727 040124 104002 ERROR +2 ;MMU ERROR 
8728 040126 4$: 
8731 040126 TSMM6A: 
8732 ; TEST MFPI CMOVE FROM PREVIOUS INST SPACE) 
8733 040126 005037 177572 CLR 86177572 ;MMU OFF 
8734 049132 005037 003030 CLR OeFLAG ;CLEAR MMU ABORT FLAG 
8735 040136 012737 140000 177776 MOV #140000, 84177776 sPOINT TO USER SPACE 
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8736 040144 
8737 040150 
8738 040154 


8792 040430 


012737 


000244 
177572 
030010 


177572 
003040 


000244 
000246 


177776 
135072 


177777 


177572 
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177776 


177776 
172516 


000244 


137362 


177776 


177776 


177776 


135072 


177776 
000244 


177776 


1$: 


100$: 


200$: 


2$: 


3$: 


4$: 


S$: 


300$: 





SEQ 0158 

@STBOT,SP sINIT THE USER STACK POINTER 
R6 , BOSAVUSE sSAVE USER SP 
040000 ,80177776 sPOINT TO SUPERVISOR SPACE 
@STBOT,SP sINIT THE SUPERVISOR STACK POINTER 
R6 , BOSAVSUP sSAVE SUPERVISOR SP 
@30000 ,80177776 ;SETUP PSW 
PC MMU sINIT MMU 
$27,80172516 ;SETUP MMRS 
90244, -( SP) ;SAVE DATA AT TEST LOCATION 
0177777, -CSP) ;PUT KNOWN DATA ON TOP OF STACK 
#135072, 80244 ;SETUP DATA AT TEST LOCATION 
077400 , UDPDRO sSETUP UDPDRO TO ABORT 
€244 ,R3 ;SETUP POINTER TO TEST LOCATION 
8¢177572 s TURN MMU ON 
CR3)> ; TEST INSTRUCTION 
#30010 ,80177776 :I1S PSW CORRECT 
is ;YES GO ON 
+2 sMMU ERROR 

;NO GO TO ERROR 
80177572 s TURN MMU OFF 
#140000 , 80177776 sPOINT TO USER SPACE 
R6 , BESAVUSE :IS USER SP CORRECT 
100$ ;YES GO ON 
+2 ;MMU ERROR 

sNO GO TO ERROR 
40000 ,84177776 sPOINT TO SUPERVISOR SPACE 
R6 , B@SAVSUP ;IS SUPERVISOR SP CORRECT 
200$ ;YES GO ON 
+2 sMMU ERROR 

sNO GO TO 
90244 , #135072 71S TEST DATA OK 
2$ ;YE 
+2 sMMU E 

;NO GO TO 
R3,@246 sIS R3 CORRECT 
3$ YE ON 
o2 ;MMU ERROR 


sSET PSW TO KERNEL MODE 


90177776 
or neers :IS . yo STACK CORRECT 


sYES GO 

+2 ;MMU ERROR 

:NO GO TO 
(SP) ,9177777 :IS STACK CORRECT 
53 ;YES GO ON 
+2 ;MMU ERROR 

;NO GO TO ERROR 
$30017 ,80177776 ;SETUP PSwW 
0173621 ,80244 ;SETUP TEST LOCATION 
$244 ,,R1 :SETUP R1 
8177572 ; TURN MMU ON 
(R1) :TEST INSTRUCTION 
#30011 ,80177776 :I1S PSW CORRECT 
300$ ;YES GO ON 
+2 ;MMU ERROR 

:NO GO TO ERROR 
84177572 ;TURN MMU OFF 
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8793 


040434 





023727 
001401 
104002 


020127 
001401 
104002 


005037 
022627 
001401 
104002 


000004 


000244 173621 


000244 


177776 
173621 


177777 


177572 
177776 


177572 


000090 


000000 


177777 


000244 


177572 
177776 
177776 
177776 
172516 
000244 
136714 
000244 
177572 


301$: 


302$: 


303$: 


3043: 


6$: 


7$: 








80244, 4173621 
301$ 

+2 

R1, 0244 

302$ 

+2 


80177776 
St litle 


= 

CSP) ,0177777 
304$ 

+2 


R3 

90177572 

Re 

04 ,80177776 
6$ 

+2 

80177572 
R3,#0 

7$ 

+2 

(SP)+, 80 

8$ 

+2 

(SP)+, 0177777 
9$ 

+2 
(SP)+,80244 
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sIS TEST LOCATION CORRECT 
sYES GO ON 
sMMU ERROR 
sNO GO TO ERROR 
sIS Ri CORRECT 
sYES GO ON 
ERROR 
‘NO GO TO ERROR 
sSET PSW TO KERNEL MODE 
sIS STACK CORRECT 
S GO ON 


;IS STACK CORRECT 
;YES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
;SETUP “ey FOR NEXT TEST 
; TURN MMU ON 
; TEST INSTRUCTION 
CORRECT 


s TURN MMU OFF 
:IS R3 CORRECT 
;YES GO ON 
7MMU ERROR 
sNO GO TO ERROR 
sIS STACK CORRECT 
GO ON 


ERROR 
sRESTORE TEST LOCATION 


nr MFPD CMOVE FROM PREVIOUS DATA SPACE) 
90177572 MMU OFF 


SOFLAG :;CLEAR MMU ABORT FLAG 
#140000 , 80177776 ; POINT TO USER SPACE 
R6 , @@SAVUSE s;SAVE USER SP 
#40000 ,88177776 sPOINT TO SUPERVISOR SPACE 
R6 , @@SAVSUP sSAVE SUPERVISOR SP 
#30000 ,89177776 sSETUP PSW 
PC ,MMU s;INIT MMU 
$27 ,80172516 sSETUP MMRS 
244, -( sSAVE DATA AT TEST LOCATION 


#77400, UIPDRO 
$244, R3 
90177572 





;PUT KNOWN DATA ON TOP OF STACK 
;SETUP DATA AT TEST LOCATION 
;SETUP UIPDRO TO ABORT 

;SETUP POINTER TO TEST LOCATION 
; TURN MMU ON 





SEQ 0159 








COKDAEO KOJ11-8 CLUSTER DIAG. MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-141 


MEMORY MANAGEMENT TESTS 


SEQ 0160 


8852 040674 106523 MF PD CR3)>+ ; TEST INSTRUCTION 
8853 040676 022737 030010 177776 CMP 030010 ,80177776 :IS PSW CORRECT 
8854 040704 001401 BEQ 1$ ;YES GO ON 
8855 040706 104002 ERROR +2 sMMU ERROR 
8856 sNO GO TO ERROR 
8857 040710 005037 177572 1$: CLR 80177572 sTURN MMU OFF 
8858 040714 012737 140000 177776 MOV #140000, 86177776 sPOINT TO USER SPACE 
8859 040722 020637 003040 CMP R6 , BOSAVUSE sIS USER SP CORRECT 
8860 040726 001401 BEQ 100$ ;YES GO ON 
8861 040730 ERROR +2 sMMU ERROR 
8862 sNO GO TO ERROR 
8863 040732 012737 040000 177776 100%: # =MOV #40000 ,80177776 sPOINT TO SUPERVISOR SPACE 
8864 040740 020637 003036 CMP R6 , B@SAVSUP :IS SUPERVISOR SP CORRECT 
8865 040744 001401 EQ 2003 ;YES GO ON 
8866 040746 i ERROR +2 ;MMU ERROR 
8867 ;NO GO TO ERROR 
8868 040750 023727 000244 157002 2003: 80244 , 157002 ;IS TEST DATA OK 
8869 040756 001401 EQ 2s sYES GO ON 
8870 040760 ERROR +2 sMMU ERROR 
8871 ;NO GO TO ER 
8872 040762 020327 000246 2$: CMP R3 , 0246 sIS R3 CORRECT 
8873 040766 001401 BEQ 3$ 3¥ ON 
8874 040770 1 ERROR +2 ;MMU ERROR 
8875 :NO GO TO ERROR 
8876 040772 005037 177776 3$: CLR 90177776 ;SET PSW TO KERNEL 
8877 040776 022627 157002 CMP (SP)+, #157002 IS ro STACK CORRECT 
8878 041002 001401 BEQ 4$ ;YES 
8879 041004 ERROR +2 ;MMU ERROR 
8880 :NO GO TO 
8881 041006 021627 177777 4$: CMP (SP) ,0177777 31S STACK CORRECT 
8882 041012 001401 BEQ 5$ ;YES GO ON 
8883 041014 1 ERROR +2 ;MMU ERROR 
8384 ;NO GO TO ERROR 
8885 041016 012737 030017 177776 5$: MOV #30017 ,80177776 ;SETUP PSW 
041024 012737 103456 000244 MOV #103456, 80244 :SETUP TEST LOCATION 
8887 041032 012701 000244 MOV $244 ,R1 :SETUP R1 
8888 041036 005237 177572 INC 84177572 ; TURN MMU ON 
8889 041042 106511 MF PD CR1) sTEST INSTRUCTION 
8890 041044 022737 030011 177776 CMP #30011 .80177776 :IS PSW CORRECT 
8891 041052 001401 BEQ 300% ;YES GO ON 
8892 041054 104002 ERROR +2 ;MMU ERROR 
8893 7NO GO TO ERROR 
8894 041056 005037 177572 300$: CLR 80177572 ;TURN MMU OFF 
8895 041062 023727 000244 103456 CMP 90244 , 6103456 :IS TEST LOCATION CORRECT 
8896 041070 001401 BEQ 301% ;YES GO ON 
8897 041072 104002 ERROR +2 ;MMU ERROR 
8898 :NO GO TO 
8899 041074 020127 000244 301%: CMP R1, 0244 :I1S Ri CORRECT 
8900 041100 001401 BEQ 302% :YE ON 
$901 041102 1 ERROR +2 ;MMU ERROR 
8902 ;NO GO TO ERROR 
8903 041104 005037 177776 302$: CLR 80177776 ;SET PSW TO KERNEL MODE 
8904 041110 022627 103456 CMP (SP)+, #103456 :IS STACK CORRECT 
8905 041114 001401 Q 303% ;YES GO ON 
8906 041116 1 ERROR +2 ;MMU ERROR 
8907 ; ;NO GO TO ERROR 
8908 041120 021627 177777 303$: CMP CSP) ,#177777 :IS STACK CORRECT 


I nsecesivusitepnsentasplieninsetmetsensssiolacansasoneiatmes 
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SEQ 0161 


8909 041124 001401 BEQ 304$ sYES GO ON 

8910 041126 104002 ERROR +2 sMMU ERROR 

8911 ;NO GO TO ERROR 

8912 041130 012737 030017 177776 3043: MOV 630017 ,80177776 ;SETUP PSW 

8912 041136 012737 113672 000244 MOV #113672,80244 sSETUP TEST LOCATION 
8914 041144 012701 000246 MOV 0246 ,R ;SETUP Ri 

8915 041150 005237 177572 INC 80177572 ; TURN MMU ON 

8916 041154 106541 MF PD -(R1L) ;sTEST INSTRUCTION 
8917 041156 022737 030011 177776 CMP #30011 ,80177776 :IS PSW CORRECT 
8918 041164 001401 BEQ 400$ sYES GO ON 

8919 041166 104002 ERROR +2 ;MMU ERROR 

8920 ;NO GO TO ERROR 

8921 041170 005037 177572 400$: CLR 80177572 ;TURN MMU OFF 

8922 041174 023727 000244 113672 CMP 90244 , #113672 :IS TEST LOCATION CORRECT 
8923 041202 001401 BEQ 401$ ;YES GO ON 

8924 104002 ERROR +2 ;MMU ERROR 

8925 ;NO GO TO ER 

8926 041206 020127 000244 401$: CMP R1, #244 sIS R1 CORRECT 

8927 041212 001401 BEQ 402$ ;YES GO ON 

8928 041214 1 ERROR +2 ;MMU ERROR 

8929 ;NO GO TO ERROR 

8930 041216 005037 177776 402$: CLR 90177776 ;SET PSW TO KERNEL MODE 
8931 041222 022627 113672 CMP (SP)+, #113672 ;I1S STACK CORRECT 
8932 041226 001401 BEQ 4033 ;YES GO ON 

8933 041230 i ERROR +2 ;MMU E 

8934 :NO GO TO 

8935 041232 021627 177777 403%: CMP (SP),4177777 :IS STACK CORRECT 
8936 041236 001401 BEQ 404$ ;YES GO ON 

8937 041240 ERROR +2 ;MMU ERROR 

8938 ;NO GO TO ERROR 

8939 041242 005003 404$: CLR x) sSETUP SOURCE FOR NEXT TEST 
8940 041244 005237 177572 INC 84177572 ; TURN MMU ON 

8941 041250 106503 MF PD R3 ; TEST INSTRUCTION 
8942 041252 022737 000004 177776 CMP $4 ,8¢0177776 3IS PSW CORRECT 
8943 041260 001401 BEQ 6$ ;YES GO ON 

8944 041262 104002 ERROR +2 ;MMU ERROR 

8945 :NO GO TO ERROR 

8946 041264 005037 177572 6$: CLR 84177572 ; TURN MMU OFF 

8947 041270 020327 000000 CMP R3,¢0 sIS R3 CORRECT 

8948 041274 001401 BEQ 7$ ;YES GO ON 

8949 041276 104002 ERROR +2 ;MMU ERROR 

8950 :NO GO TO ERROR 

8951 041300 022627 000000 7$: CMP (SP)+,#0 :IS STACK CORRECT 
8952 041304 001401 BEQ 8$ :YES GO 

8953 041306 104002 ERROR +2 ;MMU ERR 

8954 :NO GO TO ERROR 

8955 041310 022627 177777 8$: CMP CSP)+, 0177777 31S STACK CORRECT 
8956 041314 001401 BEQ 9$ :YES GO ON 

$957 041316 104002 ERROR +2 ;MMU ERROR 

8958 ;NO GO TO ERROR 

ae 041320 012637 000244 9$: MOV (SP)+, 80244 sRESTORE TEST LOCATION 
8961 ; 

8964 041324 TSMMEC : 

8965 $ TEST MTPI CMOVE TO PREVIOUS INSTRUCTION SPACE) 

8966 041324 005037 177572 CLR 84177572 ;MMU OFF 

8967 041330 005037 003030 CLR O¢FLAG ;CLEAR MMU ABORT FLAG 
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8968 041334 
8969 041342 
8970 041346 


8971 


041354 


8972 041360 
8973 041366 


8974 
8975 
8976 
8977 
8978 
8979 
8980 


041372 
041400 
041404 
041410 
041414 
041422 
041430 


012737 


177572 
030010 


177572 
003040 


000244 


000246 


177776 


177777 


177572 
030011 


177572 
000244 
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177776 
177776 
177776 
172516 


000244 
136170 


177776 
177776 
177776 


120413 


177776 
177776 


145121 


1$: 


100$: 


200$: 


2$: 


3$: 


4$: 


#140000 , 80177776 
R6 , 9@@SAVUSE 
#40000 ,80177776 
R6 , BOSAVSUP 
#30000 ,80177776 
PC ,MMU 

$27 ,80172516 
80244, -( SP) 
0177777, -CSP) 
#120413, -C SP) 
9177777, 80244 
#77400 , UDPDRO 


#30010,00177776 
+2 

8#177572 
#140000 , 84177776 
R6 , BOSAVUSE 
100$ 

+2 

#40000 ,8¢177776 
R6 , B@SAVSUP 
200$ 

+2 
86244 , #120413 
2s 

+2 

R3 , 0246 

3$ 

+2 


90177776 
 intataniadnich 


o2 

$30017 .80177776 
#145121, -( SP) 
$244 ,R1 
80177572 

CR1) 

#30011 ,80177776 
* 

+ 


94177572 
04244, #145121 
301$ 


+2 


sMMU ERR 
sNO GO TO ERROR 


sPOINT TO USER SPACE 
sSAVE USER SP 

sPOINT TO SUPERVISOR SPACE 
;SAVE — SP 


MMR3 
;SAVE DATA AT TEST LOCATION 
;PUT KNOWN DATA ON STACK 
;PUT TEST DATA ON STACK 
;PUT KNOWN DATA AT TEST LOCATION 
;SETUP UDPDRO TO ABORT 
;SETUP POINTER TO TEST LOCATION 
; TURN MMU ON 
; TEST INSTRUCTION 
:I1S PSW CORRECT 
1 ae GO ON 


; TURN MMU OFF 

sPOINT TO USER SPACE 
:IS USER SP CORRECT 
sYES GO ON 


sMMU ERROR 


sNO GO TO ERROR 

sPOINT TO SUPERVISOR SPACE 
:IS SUPERVISOR SP er 
o_ GO ON 


ROR 
sIS TEST LOCATION CORRECT 
sYES GO ON 


;NO GO TO ERROR 
sIS R3 CORRECT 


sSET PSW TO KERNEL MODE 
3IS KERNEL STACK CORRECT 
a GO ON 


;SETUP P 


ON 
;TEST INSTRUCTION 
:IS PSW CORRECT 
sYES GO ON 
;MMU ERROR 
;NO GO TO ERROR 
;TURN MMU OFF 
IS TEST LOCATION CORRECT 
sYES GO ON 


sMMU ERROR 
sNO GO TO ERROR 





SEQ 0162 


= eae aaa ee ~ 
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SEQ 0163 


9025 041626 020127 000244 301$: CMP R1,9244 ;I1S R1 CORRECT 

9026 041632 001401 BEQ 302$ ;YES GO ON 

9027 041634 104002 ERROR +2 ;sMMU ERROR 

9028 ;NO GO TO ERROR 
041636 005037 177776 302$: CLR 80177776 sSET PSW TO KERNEL MODE 

9030 041 021627 177777 CMP (SP) ,0177777 IS STACK CORRECT 

9031 041646 001401 BEQ 304$ ;YES GO ON 

9032 041650 104002 ERROR +2 sMMU ERROR 

9033 sNO GO TO ERROR 

9034 041652 012737 030017 177776 304%: MOV #30017 .80177776 sSETUP PSW 

9035 041660 012746 12234 MOV #122347, -C SP) sSETUP TEST DATA 

9036 041664 012701 000246 MOV #246 ,R1 sSETUP R1 

9037 041670 005237 177572 INC 9¢177572 ;TURN MMU ON 

9038 041674 006641 MTPI -C(R1) sTEST INSTRUCTION 

9039 041676 022737 030011 177776 CMP #30011 ,8¢177776 sIS PSW CORRECT 

9040 041704 Of .101 BEQ 400$ ;YES GO ON 

9041 041706 104002 ERROR +2 sMMU ERROR 

9042 ;NO GO TO ERROR 

9043 041710 005037 177572 400$: CLR 9¢177572 sTURN MMU OFF 

9044 041714 023727 000244 122347 CMP 94244 , 122347 sIS TEST LOCATION CORRECT 

9045 041722 001401 BEQ 401$ sYES GO ON 

9046 041724 104002 ERROR +2 sMMU ERROR 

9047 sNO GO TO ER 

9048 041726 020127 000244 40i$: CMP R1,0244 sIS Ri CORRECT 

9049 041732 001401 BEQ 402$ ;YES GO ON 

9050 041734 104002 ERROR +2 sMMU ERROR 

9051 ;NO GO TO ERROR 

9052 041736 005037 177776 402$: CLR 90177776 sSET PSW TO KERNEL MODE 

9053 041742 021627 177777 CMP CSP) ,0177777 :IS STACK CORRECT 
041746 001401 BEQ 404$ ;YES GO ON 

9055 041750 1 ERROR +2 sMMU ERROR 

9056 3NO GO TO ERROR 

9057 041752 005046 404$: CLR -(SP ) sSETUP STACK FOR NEXT TEST 

9058 041754 005237 177572 INC 9¢177572 ;TURN MMU ON 

9059 041760 006603 MTPI R3 ; TEST INSTRUCTION 

9060 041762 022737 000004 177776 CMP #4 ,80177776 IS PSW CORRECT 

9061 041770 001401 BEG 5$ sYES GO ON 

9062 041772 104002 ERROR +2 sMMU ERROR 

9063 sNO GO TO ERROR 

9064 041774 005037 177572 S$: CLR 90177572 ;TURN MMU OFF 

9065 042000 020327 000000 CMP R3, #0 sIS R3 CORRECT 

9066 042004 001401 BEQ 6$ ;YES GO ON 

9067 042006 104002 ERROR +2 sMMU ERROR 

9068 sNO GO TO ERROR 

9069 042010 022627 177777 6$: CMP (SP)+,#177777 3IS STACK CORRECT 

9070 042014 001401 BEQ 7$ sYES GO ON 

9071 042016 ERROR +2 ;MMU ERROR 

9072 sNO GO TO ERROR 

oane 042020 012637 000244 7$: MOV (SP)+, 90244 sRESTORE TEST LOCATION 

9075 

9078 042024 TSMM6D : 

9079 ; TEST MTPD (MOVE TO PREVIOUS DATA SPACE) 

9080 042024 005037 177572 CLR 86177572 sMMU OFF 

9081 042030 005037 003030 CLR @OFLAG ;CLEAR MMU ABORT FLAG 

9082 042034 012737 140000 177776 MOV #140000, 84177776 sPOINT TO USER SPACE 

9083 042042 010637 003040 MOV R6 , B@SAVUSE ;SAVE USER SP 
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012737 


012737 
020637 
001401 
104002 


023727 
001401 
104002 


020327 
001401 
104002 


005037 
021627 
001401 
104002 


012737 


177572 
030010 


177572 
140000 
003040 


040000 
003036 


000244 


000246 


177776 


177777 


177572 
030911 


177572 
000244 


000244 











—-< 
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177776 
177776 
172516 


000244 


135450 


177776 


177776 


177776 


100004 


177776 


177776 


100737 


i$: 


100$: 


200%: 


2s: 


3$: 


4$: 


300$: 


301$: 


#40000 ,80177776 
R6 , B@SAVSUP 
#30000, 80177776 


PCM 
po weet ht 
4,-(SP) 
O177 777, CSP) 
#100004, -( SP) 
0177777, 80244 
#77400 ,UIPDRO 
$244 ,R3 
80177572 
CR3)+ 
~ (maaan 


+2 
84177572 


ye hla 


R6 ,8eSAVUS 
100$ 

+ 

#40000 ,8¢177776 
R6 , 8¢SAVSUP 
200$ 

+2 
80244 , 100004 
2s 

+2 

R3, #246 

3$ 

+2 


80177776 
ih ail 


+e 

#30017 ,8¢0177776 
#100737, -CSP) 
$244 ,R1 
8¢177572 

CR1) 

930011 ,88177776 
= 

+ 


8¢177572 
80244 , 100737 
301$ 


+2 
Ri, #244 
302$ 


SEQ 0164 


sPOINT TO SUPERVISOR SPACE 
tnety — SP 


3 

;SAVE DATA AT TEST LOCATION 
;PUT KNOWN DATA ON STACK 
;PUT TEST DATA ON STACK 
;PUT KNOWN DATA AT TEST LOCATION 
sSETUP UIPDRO TO ABORT 
;SETUP POINTER TO TEST LOCATION 
; TURN MMU ON 
; TEST INSTRUCTION 
:IS PSW CORRECT 
;YES GO ON 

;MMU ERROR 

:NO GO TO ERROR 
;TURN MMU OFF 
sPOINT TO USER SPACE 
:IS USER SP CORRECT 
;YES GO ON 

;MMU ERROR 

;NO GO TO ERROR 
;POINT TO SUPERVISOR SPACE 
;IS SUPERVISOR SP CORRECT 
;YES GO ON 


;SET PSW TO KERNEL MODE 
;IS KERNEL STACK CORRECT 
;YES GO ON 


;SETUP PSW 

;SETUP TEST DATA 
;SETUP R1 

; TURN MMU ON 

s TEST gy AE 


;TURN MMU OFF 
:IS TEST LOCATION CORRECT 
GO ON 


:YES 
;MMU ERROR 
;NO GO TO ERROR 
- 3IS R1 CORRECT 
;YES GO ON 
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~— 


9141 042334 104002 ERROR +2 ;MMU ERROR 

9142 ;NO GO TO ERROR 

9143 042336 005037 177776 3023: CLR 80177776 ;SET PSW TO KERNEL MODE 
9144 042342 021627 177777 CMP (SP) ,#177777 :IS STACK CORRECT 

9145 042346 001401 BEQ 304$ ;YES GO ON 

9146 042350 104002 ERROR +2 ;MMU ERROR 

9147 :NO GO TO ERROR 

9148 042352 012737 030017 177776 3043: MOV #30017 ,8¢177776 ;SETUP PSW 

9149 042360 012746 156711 MOV #156711, -(CSP) ;SETUP TEST DATA 

9150 042364 012701 000246 MOV #246 ,R1 ;SETUP Ri 

9151 042370 005237 177572 INC 8¢177572 ;TURN MMU ON 

9152 042374 106641 MTPD -(R1) ;TEST INSTRUCTION 

9153 042376 022737 030011 177776 CMP #30011 ,80177776 ;IS PSW CORRECT 

9154 042404 001401 BEQ 400$ ;YES GO ON 

9155 042406 1 ERROR +2 ;MMU ERROR 

9156 ;NO GO TO ERROR 

9157 042410 005037 177572 400$: CLR 84177572 ; TURN MMU OFF 

9158 042414 023727 000244 156711 CMP 80244, #156711 ;IS TEST LOCATION CORRECT 

9159 042422 001401 BEQ 401$ ;YES GO ON 

9160 042424 1 ERROR +2 ;MMU ERROR 

9161 ;NO GO TO ERROR 

9162 042426 020127 000244 401$: CMP R1, #244 :IS Ri CORRECT 

9163 042432 001401 BEQ 402$ ;YES GO ON 

9164 042434 104002 ERROR +2 ;MMU ERROR 

9165 ;NO GO TO ERROR 

9166 042436 005037 177776 4023: CLR 90177776 ;SET PSW TC KERNEL 

9167 042442 021627 177777 CMP (SP) ,#177777 31S STACK CORRECT 

9168 042446 001401 BEQ 404$ ;YES GO ON 

9169 042450 104002 ERROR +2 sMMU ERROR 

9170 :NO GO TO ERROR 

9171 042452 003046 404$: CLR -(SP) ;SETUP STACK FOR NEXT TEST 

9172 042454 005237 177572 INC 80177572 ; TURN MMU ON 

9173 042460 106603 MTPD R3 ; TEST INSTRUCTION 

9174 042462 022737 000004 177776 CMP #4 ,80177776 ;IS PSW CORRECT 

9175 042470 001401 BEQ 5$ ;YES GO ON 

9176 042472 104002 ERROR +2 3MMU ERROR 

9177 :NO GO TO ERROR 

9178 042474 005037 177572 5$: CLR 84177572 ;TURN MMU OFF 

9179 042500 020327 000000 CMP #0 :IS R3 CORRECT 

9180 042504 001401 BEQ 6$ ;YES GO ON 

9181 042506 104002 ERROR +2 ;MMU ERROR 

9182 NO GO TO 

9183 042510 022627 177777 6$: CMP (SP)+, #177777 :IS STACK CORRECT 

9184 042514 001401 BEQ 7$ :YES GO ON 

9185 042516 104002 ERROR +2 ;MMU ERROR 

9186 :NO GO TO ERROR 

+ 042520 012637 000244 7$: MOV (SP)+,8#244 sRESTORE TEST LOCATION 
1 

9189 ; 

9192 042524 TSMMU7 : 

9193 $ TEST NON-RESIDENT ABORT 

9194 042524 005037 177572 CLR 84177572 sMMU OFF 

9195 042530 005067 140274 CLR FLAG ;CLEAR MMU ABORT FLAG 

9196 042534 013746 000214 MOV 80214, -CSP) ;SAVE DATA AT TEST LOCATIONS 

9197 042540 013746 000216 MOV 84216, -( SP) ; 

9198 042544 005067 140272 CLR SAVMRO ;CLEAR STATUS REGS SAVE AREAS 

9199 042550 005067 140270 CLR SAVMR1I : 











COKDAEO KDJ11-8 CLUSTER DIAG. 


MEMORY MANAGEMENT TESTS 


005067 
004767 
012737 
012702 
012737 
004767 


012737 
004767 


012701 
004 


012767 
012737 
010701 
006522 


030000 
077400 
177572 


000216 
000214 


000154 


000001 
000001 
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177776 
177600 


177600 


140166 
177572 
177776 


140116 
177572 
177776 


177776 


177600 


140026 
177572 


MOV 
JSR 


; 
sROUTINE TO 


; 

TS7: MOV 
MOV 
MOV 


MF PT 





SAVMR2 


PC ,MMU 
#30000 ,84177776 
#200 ,R2 

a 


#77404 ,8¢177600 
PC,1TS7 


#1,FLAG 
#1,80177572 
#100000, 84177776 
ag Ta aad 


1,80177572 
#20000 .80177776 
C(R2)- 

PC, TSM7 


#30000 ,80177776 
#77400 ,8@177600 
84177572 

(R2)+ 

(SP)+,R3 

(SP)-+ , 88214 


TS7FIN 


#1,FLAG 
#1,80177572 
R7,R 


R11 
(R2)+ 


; 
sINIT MMU 
;SETUP PSW 


; 
sSETUP FOR AN ABORT 


CAUSE AN ABORT TO OCCUR A 


ND 
;THEN CHECK IF ABORT FLAG REGISTERED 
;THIS EVENT AND CHECK IF STATUS REGS 
sCONTAINED EXPECTED VALUES. 
;IF NO ABORT OCCURRED THEN GO TO ERROR 
;OTHERWISE CONTINUE. 
sSETUP FOR AN ABORT 
s;CAUSE AN ABORT TO OCCUR AND 
;THEN CHECK IF ABORT FLAG REGISTERED 
;THIS EVENT AND CHECK IF STATUS REGS 
s;CONTAINED EXPECTED VALUES. 
;IF NO ABORT OCCURRED THEN GO TO ERROR 
sneninere CONTINUE. 


SINIT MMU 

;SETUP MMR1 EXPECTED DATA 

sSETUP FLAG FOR AN ABORT 

; TURN MMU ON 

sSETUP PSW FOR AN ABORT CILLEGAL MODE) 
;CAUSE AN ABORT 

;CHECK IF AN ABORT OCCURRED BY 
;CHECKING ABORT FLAG AND STATUS REGS 
;IF NO ABORT OCCURRED THEN GO TO ERROR 
;OTHERWISE CONTINUE. 

;CLEAR STATUS REGS SAVE AREAS 

; 


3 
;SETUP MMR1 EXPECTED DATA 

sSETUP FLAG FOR AN ABORT 

; TURN MMU ON 

;SETUP PSW FOR AN ABORT CILLEGAL MODE) 
;CAUSE AN ABORT 

;CHECK IF AN ABORT OCCURRED BY 
;CHECKING ABORT FLAG AND STATUS REGS 
;IF NO ABORT OCCURRED THEN GO TO ERROR 
;OTHERWISE CONTINUE. 

;SETUP PSW 

;SETUP FOR AN ABORT 

MMU OFF 


; 
;TRY TO CAUSE AN ABORT 
;POP THE STACK 

;sRESTORE DATA AT TEST LOCATIONS 
: 


CAUSE AND CHECK NONRESIDENT ABORTS 


;SETUP FOR AN ABORT 
; TURN MMU ON 

;SAVE PC 

;CAUSE AN ABORT 


SS a | rr ee re t*S 
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9315 043252 


022767 


°001401 
4 


104002 


105067 
022767 
001401 
104002 


026727 
001401 
104002 


026701 
001401 
104002 


010701 


000000 


140010 
100000 


137774 


137764 


137750 
137746 
137744 


000000 


640377 
100000 


137702 
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140006 


140002 


000022 


137716 


003042 
137710 


177776 
177600 


137564 
177572 








SEQ 0167 ; 
;DID AN ABORT OCCUR 


;IF YES GO ON | 

sMMU ERROR 

;IF NO GO TO ERROR 
sSETUP EXPECTED DATA 
; TEST MMRO FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 

sMMU ERROR 

sNOT OK THEN GO TO ERROR 
; TEST MMR1 FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 

sMMU ERROR 

sNOT OK THEN GO TO ERROR 
;_ TEST MMR2 FOR EXPECTED VALUE 
;IF OK THEN CONTINUE 

sMMU ERROR 

sNOT OK THEN GO TO ERROR 
;CLEAR STATUS REGS SAVE AREAS 
: 


; 
sRETURN 


; 
sROUTINE TO CHECK IF A NONRESIDENT ABORT OCCURRED 


CMP #0,FLAG 
BEQ OK7 
ERROR +2 
OK7: CLRB SAVMRO 
CMP #100000, SAVMRO 
BEQ OKA7 
ERROR +2 
OKA7: CMP SAVMR1 , #22 
BEQ OKAY7 
ERROR +2 
OKAY7: CMP SAVMR2 ,R1 
BEQ OKAY7A 
ERROR +2 
OKAY7A: CLR SAVMRO 
CLR SAVMR1 
CLR SAVMR2 
RTS PC 
: 
TSM7: CMP #0,FLAG 
BEQ TSMA 
ERROR +2 
TSMA: BIC 040377 , B@SAVMRO 
CMP #100000, SAVMRO 
BEQ TSMB 
ERROR +2 
TSMB : CMP R3,SAVMR1i 
BEQ TSMC 
ERROR +2 
TSMC: RTS PC 
; 
TS7FIN: NOP 
TSMMUS : 
: TEST READ ONLY ABORTS 
CLR 80177572 
CLR FLAG 
MOV 80246, -( SP) 
CLR SAVMRO 
CLR SAVMR1 
CLR SAVMR2 
JSR PC MMU 
MOV #30000 , 80177776 
MOV $244 ,R2 
MOV #77402 ,8¢177600 
MOV $246 ,-(SP) 
MOV #1,FLAG 
MOV #1 ,80177572 
MOV R7,R1 





;D0ID AN ABORT OCCUR 
sIF YES GO ON 
;MMU ERROR 
;IF NO THEN GO TO ERROR 
;SETUP EXPECTED DATA 
; TEST MMRO FOR EXPECTED VALUE 
sIF OK THEN CONTINUE 
;MMU ERROR 
;IF NO THEN GO TO ERROR 
; TEST MMRI FOR EXPECTED VALUE 
:IF OK THEN CONTINUE 


;MMU ERRGR 
;IF NOT OK THEN GO TO ERROR 
sRETURN 


sMMU OFF 
;CLEAR MMU ABORT FLAG 
;SAVE DATA AT TEST LOCATIONS 


; 
sCLEAR STATUS REGS SAVE AREAS 
; 


: 
;INIT MMU 
;SETUP PSW 


: 
;SETUP FOR AN ABORT 
;PUSH DATA ONTO THE STACK 
;SETUP FLAG FOR AN ABORT 
;TURN MMU ON 
;SAVE PC 
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9316 


043254 


006622 
022767 
001401 
104002 


105067 
022767 
001401 
104002 


022767 
001401 
104002 


020167 
001401 
104002 


012737 
012746 


012703 
012701 
012702 
004767 


005037 
012703 
012701 


137546 
020000 


011026 
137522 
030000 
000002 
000246 


000244 


177572 
137444 


177572 
044076 
044146 
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MTPI C(R2)+ ;CAUSE ABORT 
137544 CMP 60 ,.FLAG :0ID ABORT OCCUR 
BEQ i$ ;IF YES THEN GO ON 
ERROR +2 ;MMU ERROR 
;IF NO THEN GO TO ERROR 
1$: CLRB SAVMRO ;SETUP EXPECTED DATA 
137540 CMP #20000 , SAVMRO ; TEST MMRO FOR EXPECTED VALUE 
BEQ 2s ;IF OK THEN CONTINUE 
ERROR +2 ;MMU ERROR 
;OTHERWISE GO TO ERROR 
137530 2$: CMP #11026 ,SAVMR1 ; TEST MMR1 FOR EXPECTED VALUE 
BEQ 3$ ;IF OK THEN CONTINUE 
ERRCR oc ;MMU ERROR 
;sOTHERWISE GO TO ERROR 
3$: CMP Ri, SAVMR2 ; TEST MMR2 FOR EXPECTED VALUE 
BEQ 4$ ;IF OK THEN CONTINUE 
ERROR y-4 ;MMU ERROR 
;sOTHERWISE GO TO ERROR 
177776 4$: MOV #30000 ,80177776 ;SETUP PSW 
MOV @2,-CSP) ;PUSH DATA ONTO STACK 
MTPI CR2)+ ;TRY TO CAUSE ABORT 
MOV (SP)+, 80246 sRESTORE DATA AT TEST LOCATIONS 
MOV (SP)+, 80244 : 
TSMMUS9 : 
; TEST PAGE LENGTH ERROR ABORTS 
CLR 86177572 sMMU OFF 
CLR FLAG ;CLEAR *"U ABORT FLAG 
CLR SAVMRO ;CLEAR STATUS REGS SAVE AREAS 
CLR SAVMR1 $ 
CLR VMR2 : 
177776 MOV #30000 ,80177776 ;SETUP PSW 
JSR PC P ;INIT MMU 
MOV oPLFO,R3 ;LET RS, Ri, AND R2 POINT TO THE 
MOV @6BNO .R1 — EXPANSION TABLES 
MOV *ABORTO,R2 
172516 MOV $26 ,80172516 ;DISABLE USER DATA SPACE 
JSR PC, TSM9 ; TURN MMU ON 
;D0 RELOCATIONS FOR THE DIFFERENT 
dmx OF THE PAGE LENGTH FIELD AND 
OCK NUMBER. IF AN ABORT OCCURS 
S CHECK TO SEE IF IT WAS SUPPOSED TO. 
;AND IF YES CHECK ABORT FLAG AND 
:STATUS REGISTERS. 
MOV OPLFi,R3 ;LET R3, R1, AND R2 POINT TO THE 
MOV OBN1 ,R1 sDOWNWARD EXPANSION TABLES 
MOV @ABORT7 ,R2 ; 
JSR » 1SM9 ; TURN MMU ON 
300 RELOCATIONS FOR THE DIFFERENT 
;VALUES OF THE PAGE LENGTH FIELD AND 
;BLOCK NUMBER. IF AN ABORT OCCURS 
;sCHECK TO SEE IF IT WAS SUPPOSED TO. 
;AND IF YES CHECK ABORT FLAG AND 
:STATUS REGISTERS. 
CLR 84177572 sMMU OFF 
MOV OPLF1+10,R3 sPOINT TO A VALUE WHICH SHOULD CAUSE 
MOV $6N1+10,R1 ;AN ABORT IF MMU IS ON. 





SEQ 0168 
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SEQ 0169 


9375 043474 011337 177600 MOV CR3) 80177600 ;SETUP VUIPDRO 
9376 043500 006521 MF PI (R1)- ;00 A RELOCATION 
pl 043502 012605 MOV (SP)+,R5 ;POP THE STACK 
je 4 043504 000167 000542 JMP TS9OFIN 
’ 
po ;ROUTINE TO CAUSE AND CHECK PAGE LENGTH ERROR ABORTS 
; 

9383 043510 012337 177600 TSM9: MOV (R3)+,80177600 sSETUP UIPDRO 
9384 043514 010100 MOV R1,RO sSAVE A COPY OF R1 
9385 043516 012767 000001 137304 MOV $1,FLAG ;SETUP FOR AN ABORT 
9386 043524 012737 000001 177572 MOV #1,80177572 sTURN MMU ON 
9387 043532 010704 MOV R7,R4 sSAVE PC 
9388 043534 006530 MF PI OC RO)-+ 300 A RELOCATION OPERATION 
9389 043536 021227 000000 CMP ee #0 ;WAS AN ABORT SUPPOSED TO OCCUR 
9390 043542 001007 BNE sIF YES GO TO 2$ 
9391 043544 012605 MOV tsP)>, RS ;POP THE STACK 
9392 043546 022767 000001 137254 CMP #1, FLAG ;DID AN ABORT OCCUR 
9393 043554 001401 BEQ i$ sNO GO ON 
9394 043556 104002 ERROR +2 ;MMU ERROR 
9395 ;YES GO TO ERROR 
9396 043560 000425 1$: BR 6$ ; 
9397 043 022767 000000 137240 23: CMP #0,FLAG ;DID AN ABORT OCCUR 
9398 043570 001401 BEQ 3$ ;YES GO ON 
9399 043572 104002 ERROR +2 ;MMU ERROR 
9400 ;NO GO TO ERROR 
9401 043574 105067 137242 3%: CLRB SAVMRO sSETUP EXPECTED DATA 
9402 043600 022767 040000 137234 CMP 640000 , SAVMRO ; TEST MMRO FOR EXPECTED VALUE 
9403 043606 001401 BEQ 43 sIF OK THEN CONTINUE 
9404 043610 104002 ERROR +2 ;MMU ERROR 
9405 sNOT OK THEN GO TO ERROR 
9406 043612 022767 000020 137224 43: CMP #20, SAVMR1I ; TEST MMR1 FOR EXPECTED VALUE 
9407 043620 001401 BEQ 5$ sIF OK THEN CONTINUE 
9408 043622 1 ERROR +2 :MMU ERROR 
9409 sNOT OK THEN GO TO ERROR 
9410 043624 020467 137216 S$: CMP R4 , SAVMR2 ; TEST MMR2 FOR EXPECTED VALUE 
9411 043630 001401 BEQ 6% sIF OK THEN CONTINUE 
9412 043632 1 ERROR +2 ;MMU ERROR 
9413 ;NOT OK THEN GO TO ERROR 
9414 043634 005067 137170 6%: CLR FLAG ;CLEAR MMU ABORT FLAG 
9415 043640 005067 137176 CLR SAVMRO sCLEAR STATUS REGS SAVE AREAS 
9416 04 005067 137174 CLR SAVMR1 ; 
9417 043650 005067 137172 CLR SAVMR2 ; 
9418 043654 005201 INC Ri ;POINT TO NEXT ENTRY 
9419 043656 005201 INC Ri 3 

Oa INC Re 3 
9421 043662 005202 INC R2 ; 
9422 043664 021327 000777 CMP (R3),@777 sHAVE ALL ENTRIES BEEN TRIED 
9423 043670 001307 BNE TSM9 3NO REPEAT 
9424 043672 000207 RTS PC ;YES RETURN 


: 
;UPWARD EXPANSION TABLES 
9427 3 

9428 043674 070006 PLFO: 


9429 043676 
9430 043700 070006 
9431 043702 013406 
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9432 043704 020006 


ABORTO: 


ee ee 
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000200 
001700 

300 
700 





SEQ 0170 
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-— 








: 
s;DOWNWARD EXPANSION TABLES 


; 
PLF1: 


BN1: 


ABORT? : 





$855555555555555555555555555555 
33333323 Oo 
orrroororr.rcoOo°o°o $8 

5385 

$333 
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ee LS ES 


SEQ 0171 
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000000 
000001 


177572 
136544 


100105 
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172302 
136500 
177572 


177776 
177636 


136424 
177572 


177776 
172212 


136350 
177572 


177776 


136302 
177572 


.WORDB O 
-WORD i 
.WORD O 
-WORD 0O 
: NOP 
FUNCTIONAL TEST OF BITS <6:1> OF 
CLR 84177572 
CLR FLAG 
CLR SAVMRO 
CLR SAVMR1i 
CLR SAVMR2 
JSR PC MMU 
CLR 84177776 
MOV #20200 ,R2 
MOV #77400 ,8¢172302 
MOV $1,FLAG 
MOV #1 ,80177572 
MOV R7,R1 
MF PI CR2)-+ 
MOV #100003 ,R4 
JSR PC,.1S10 
MOV #30000 ,80177776 
JSR PC, 
MOV #77400 ,80177636 
MOV #160000, R2 
MOV €1,.FLAG 
MOV $1 ,80177572 
MOV R7,R1 
MF PD CR2)+ 
MOV €100177,R4 
JSR PC,7TS10 
MOV #10000 ,80177776 
JSR PC, 
MOV 977400 ,80172212 
MOV #120000, R2 
MOV $1,FLAG 
MOV #1 ,88177572 
MOV R7,R1 
MF PI CR2)+ 
MOV #100053 ,R4 
JSR PC,7TS10 


SEQ 0172 


MMRO 

sMMU OFF 

s;CLEAR MMU ABORT FLAG 

sCLEAR STATUS REGS SAVE AREAS 
5 


; 
;INIT MMU 
;INIT PSW: PREVIGUS MODE = KERNAL 


i 
sSETUP KIPOR1 TO ABORT 
; SETUP ny Se AN ABORT 


;D0 A RELOCATION VIA KIPARI 
;SETUP EXPECTED DATA 

;CHECK IF AN ABORT OCCURRED AND 
;IF YES CHECK BITS <6:1> OF MMRO. 
sINIT PSW: PREVIOUS MODE = USER 
sINIT MMU 

sSETUP UDPDR7 TC ABORT 


$ 
;SETUP FLAG FOR AN ABORT 
; TURN MMU ON 

:SAVE PC 

:D0 A RELOCATION VIA UDPAR7 

;SETUP EXPECTED DATA 

;CHECK IF AN ABORT OCCURRED AND 

;IF YES CHECK BITS <6:1> OF MMRO. 
;INIT PSW: PREVIOUS MODE= SUPERVISOR 
sINIT MMU 

;SETUP SIPORS TO ABORT 

;ACCESS PAGE 05 

;SETUP FLAG FOR AN ABORT 

; TURN MMU ON 

;SAVE PC 

:D0 A RELOCATION VIA SIPARS 

;SETUP EXPECTED DATA:ABORT, PAGE 05 
;CHECK IF AN ABORT OCCURRED AND 

sIF YES CHECK BITS <6:1> OF MMRO. 


;TEST THAT ILLEGAL MODE CAUSES MMU ABORT 


#20000 ,80177776 
PC ,MMU 

#40000 ,R2 
#1,FLAG 
#1,8¢177572 


C(R2)+ 
#100105,R4 


:INIT PSW:SET ILLEGAL PREVIOUS MODE 
sINIT MMU 

;SET UP ACCESS TO PAGE 2 

;SETUP FLAG FOR AN ABORT 

;TURN MMU ON 

sSAVE PC 

;00 A RELOCATION 

;SETUP EXPECTED DATA:ABORT, ILLEGAL 
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SEQ 0173 


; PROCESSOR MODE, PAGE 02 


9606 044544 004767 000004 JSR PC,1S10 ;CHECK IF AN ABORT OCCURRED AND 
en ;IF YES CHECK BITS <6:1> OF MMRO. 
. 044550 000167 000062 JMP TLOF IN 
; 
9611 sROUTINE TO CHECK IF A MMU ABORT OCCURRED AND IF STATUS REG MMRO 
anne sCON;AINS EXPECTED DATA 
i 
9614 044554 022767 000000 136246 1510: CMP #0,FLAG ;DID AN ABORT OCCUR 
9615 044562 001401 BEQ 1$ ;YES GO ON 
9616 044564 104002 ERROR +2 sMMU ERROR 
9617 sNO GO TO ERROR 
9618 044566 020467 136250 1$: CMP R4,SAVMRO ; TEST MMRO FOR EXPECTED DATA 
9619 044572 001401 BEQ 2$ 0K GO ON 
9620 044574 104002 ERROR +2 sMMU ERROR 
9621 s3NO GO TO ERROR 
9622 044576 022767 000022 136240 2%: CMP #22, SAVMR1 ; TEST MMR1 FOR EXPECTED DATA 
9623 044604 001401 BEQ 3$ ;0K GO ON 
9624 044606 104002 ERROR +2 sMMU ERROR 
9625 sNO GO TO ERROR 
9626 044610 020167 136232 3$: CMP R1,SAVMR2 ; TEST MMR2 FOR EXPECTED DATA 
9627 044614 001401 BEQ 43 ;0K GO ON 
9628 044616 1 ERROR +2 sMMU ERROR 
9629 s;NO GO TO ERROR 
9630 044620 005067 136216 4$: CLR SAVMRO ;CLEAR MMU STATUS REGS SAVE AREAS 
9631 044624 005067 136214 CLR SAVMR1 ; 
9632 044630 005067 136212 CLR SAVMR2 3 
9633 044634 000207 RTS ;RETURN 
9634 ; 
9635 044636 TLOF IN: 
9638 044636 TSMM11: 
9639 ; TEST DATA SPACE BITS MMRS 
9640 044636 005037 177572 CLR 9¢17757 sMMU OFF 
9641 044642 005067 136162 CLR FLAG ;CLEAR MMU ABORT FLAG 
9642 044646 012737 030000 177776 MOV #30000 ,89177776 ; SETUP 
9643 044654 012701 000026 MOV $26,R1 sSETUP FIRST MMR3 VALUE 
9644 044660 012703 177610 MOV $177610,R3 sPOINT TO UIPDR4 
9645 044664 012704 000021 MOV #21,R4 sSETUP SECOND MMR3 VALUE 
044670 004767 000060 JSR PC,TS11 ; TEST ENABLE USER DATA SPACE BIT 
9647 044674 012737 000000 177776 MOV #0 ,80177776 sSETUP PSW 
9648 044702 012701 000023 MOV $23,R1 sSETUP FIRST MMR3 VALUE 
9649 044706 012703 172310 MOV #172310,R3 sPOINT TO KIPOR4 
9650 044712 012704 000024 MOV #24 ,R4 sSETUP SECOND MMR3 VALUE 
9651 044716 004767 000032 JSR PC ,TS1i ; TEST ENABLE KERNEL DATA SPACE BIT 
9652 044722 012737 010000 177776 MOV #10000 ,8177776 sSETUP PSW 
9653 044730 012701 000025 MOV #25,R1 s;SETUP FIRST MMR3 VALUE 
9654 044734 012703 172210 MOV #172210,R3 sPOINT TO SIPDR4 
9655 044740 012704 000022 MOV #22 ,R4 sSETUP SECOND MMR3 VALUE 
je 044744 004767 000004 JSR PC,TSii ; TEST ENABLE SUPERVISOR DATA SPACE BIT 
j= 044750 000167 000120 JMP TLIF IN 
cane sROUTINE TO TEST ENABLE DATA SPACE BITS OF MMR3 
9662 044754 904767 072572 TS1i1: JSR PC MMU sINIT MMU 
9663 044760 010137 172516 MOV R1,8172516 ;DISABLE DATA SPACE OF MODE UNDER TEST 
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012713 


004767 


012703 
012767 
012737 
010767 
1123 42 
004767 


012703 
012767 
012737 
010767 
114125 
004767 


100000 
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136026 
177572 


136010 


135766 
177572 


135746 


177776 


172516 
172310 


135644 
177572 


135612 
177572 


135560 
177572 


1$: 


MOV #77400 ,CR3) 
MOV #100000, R2 
MOV 01,FLAG 

MOV #1.90177572 
MF PD CR2)+ 

CMP #0 ,FLAG 

BEQ $ 

ERROR +2 

MOV R4,8¢172516 
MOV #100000, R2 
MOV #1,FLAG 

MOV #1,80177572 
MF PD CR2)+ 

TST CSP)+ 

CMP #1,FLAG 
BEQ 2s 

ERROR +2 

CLR FLAG 

RTS PC 


MMR1 FUNCTIONAL TEST 
R 90177572 


CL 

CLR FLAG 

CLR SAVMR1 

JSR PC MMU 

MOV #30000 ,80177776 
MOV #100200, R4 
MOV R4,R1 

MOV #100101,R5 
MOV RS ,R2 

MOV #20,80172516 
MOV 077402 ,80172310 
MOV $6414,R3 

MOV #1,FLAG 

MOV €1,80177572 
MOV R7 .SLOCOO 
MOVB CR4)+,(R5)+ 
JSR PC,.1TSi2 

MOV $175011,R3 
MOV #1,.FLAG 

MOV #1,89177572 
MOV R7,SLOCOO 
MOVB CR1i)+, -CR2) 
JSR PC.7TSi2 

MOV $6771,R3 
MOV #1,FLAG 

MOV #1,80177572 
MOV R7,SLOCOO 
MOVB ~-CR1),CRS)+ 
JSR PC,7S1i2 


;SETUP IPDOR TO ABORT 


4 
;SETUP FLAG FOR AN ABORT 
MMU ON 

;00 A | dated tee 


sMMU ERROR 
NO GO TO ERROR 


sENABLE DATA SPACE OF MODE UNDER TEST 
; 

;SETUP FLAG FOR AN ABORT 

sMMU ON 


:00 A RELOCATION 
;sPOP THE STACK 

;DID AN ABORT OCCUR 
3NO GO ON 


;MMU ERROR 


;YES GO 


TO ERROR 
;CLEAR MMU ABORT FLAG 
sRETURN 


;MMU OFF 

;CLEAR MMU ABORT FLAG 
;CLEAR STATUS REG SAVE AREA 
sINIT MMU 

;INIT PSW 

sSETUP TEST LOCATIONS 

$ 

3 


3 
sINIT MMRS 

;SETUP KIPDR4 TO ABORT 

;SETUP EXPECTED DATA FOR MMRI 
;SETUP FLAG FOR AN AGORT 

; TURN MMU ON 

sSAVE PC 

700 A RELOCATION 

;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1 EQUALS EXPECTED DATA 
;SETUP EXPECTED DATA FOR MMRI 
;SETUP FLAG FOR AN ABORT 

; TURN MMU ON 

;SAVE PC 

;00 A RELOCATION 

;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1 EQUALS EXPECTED DATA 
;SETUP EXPECTED DATA FOR MMRi 
;SETUP FLAG FOR AN ABORT 

; TURN ON 

;SAVE PC 

;D0 A RELOCATION ~ 

;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1 EQUALS EXPECTED DATA 


SEQ 0174 
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-— 


ba 045270 


22 
9787 045526 


012703 
012767 
012737 
010767 
112125 
004767 


012703 


012703 
012767 
012737 
010767 
014225 
004767 


000167 


022767 
001401 
104002 
020367 
001401 
104002 


026767 
001401 
104002 
005067 
005067 
000207 
000240 


000070 
171025 


000036 


012762 
000001 


000000 


135414 


135352 


135372 
135370 


177572 
135336 
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135526 
177572 


135474 
177572 


135442 
177572 


135410 


135404 


172516 


MOV $6411,R3 
MOV #1,FLAG 
MOV #1 ,80177572 
MOV R7,SLOCOO 
MOVB (R1i)+,CRS)>+ 
JSR PC,TSi2 
MOV #171025,R3 
MOV #1,FLAG 
MOV #1 ,80177572 
MOV R7,SLOCOO 
MOV C(R5)+,-CR2) 
JSR PC,1TSi2 
MOV #12762 ,R3 
MOV #1,FLAG 
MOV #1,8¢177572 
MOV R7,SLOCOO 
MOV -(R2),CR5)+ 
JSR PC,7TSi2 
JMP T12F IN 

$ 

sROUTINE TO 

3 

TSi2: CMP #0 ,FLAG 
BEQ i$ 
ERROR +2 

i$: CMP R3,SAVMR1I 
BEQ 2$ 
ERROR +2 

2$: CMP SLOCOO , SAVMR2 
BEQ 3$ 
ERROR +2 

3$: CLR SAVMR1 
CLR SAVMR2 
RTS PC 

: 

TI2FIN: NOP 

TSMM13: 


SEQ 0175 


;SETUP EXPECTED DATA FOR MMRI 
;SETUP FLAG FOR AN ABORT 

;TURN MMU ON 

sSAVE PC 

300 A RELOCATION 

;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1i EQUALS EXPECTED DATA 
;SETUP EXPECTED DATA FOR MMRI 
;sSETUP FLAG FOR AN ABORT 

; TURN MMU ON 

sSAVE PC 

;00 A RELOCATION 

;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMR1i EQUALS EXPECTED DATA 
;SETUP EXPECTED DATA FOR MMR 
;SETUP FLAG FOR AN ABORT 

; TURN MMU ON 

sSAVE PC 

300 A RELOCATION 

;CHECK IF AN ABORT OCCURRED AND IF 
;YES IF MMRi EQUALS EXPECTED DATA 


CHECK IF AN ABORT OCCURRED AND IF MMR1 EQUALS EXPECTED DATA 


;DID AN ABORT OCCUR 
:YES GO ON 


; TEST MMR1 FOR EXPECTED DATA 
;0K GO ON 
:MMU ERROR 
;NO GO TO ERROR 
; TEST MMR2 FOR EXPECTED DATA 
;0K GO ON 
sMMU ERROR 
:NO GO TO ERROR 
;CLEAR STATUS REG SAVE AREA 


: 
;RETURN 


; ADDER RELOCATION TEST PART A 
§ 5 HHREREESEEEESEES ES EEEEES EES OE EEREESEEOEEREEEEEEEEEEEEREEEREEEE 


;(NEED 16 BITS OF MEMORY ADDRESSING) 


CLR 86177572 

CLR FLAG 

CLR 90177776 

JSR PC .MMU 

MOV #20,80172516 

MOV #PARAD1,R3 

MOV @PARVAL,R1 
1$: MOV CR1)+,8CR3)+ 

CMP CR1), #333 

BNE i$ 





7MMU OFF 
;CLEAR MMU ABORT FLAG 

:INIT PSW 

;INIT MMU 

; INIT MMR3 

;SETUP PARS WITH TEST VALUES 
; 
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7 
MEMORY MANAGEMENT TESTS oe care 
9788 045530 012703 046002 MOV OPHY1,R3 sSET POINTERS TO ADDER PART A 
9789 045534 012701 045750 MOV @VIR1,R1 : TEST TABLES. 
9790 045540 012702 046034 MOV @MODE1 .R2 
9791 045544 012237 177776 2s: MOV (R2)+, 80177776 VINIT PSW 
9792 045550 013305 MOV QC R3)+,R5 sSAVE DATA AT PHYSICAL ADDRESS 
9793 045552 012737 000001 177572 MOV $1 ,80177572 ;TURN MMU ON 
9794 045560 006531 MF PI OC R1)+ _— DATA AT RELOCATED VIRTUAL ADDRESS 
9795 045562 012604 MOV CSP)+,R4 
9796 045564 005037 177572 CLR 84177572 STURN MMU OFF 
9797 045570 020504 CMP R5,R4 ;IS DATA EQUAL TO EXPECTED 
9798 045572 001401 BEQ 3$ ;YES GO ON 
9799 045574 104002 ERROR +2 ;MMU ERROR 
9800 ;NO IT IS AN ADDER ERROR 
9801 045576 021327 000111 3$: CMP (R3), #111 ;ARE WE READY TO TEST DATA SPACE 
9802 045602 001360 BNE 2$ :NO GO TO 2$ 
9803 045604 005203 INC R3 sPOINT TO DATA SPACE VALUES 
9804 045606 005203 INC R3 ; 
9805 045610 005201 INC Ri ; 
9806 045612 005201 INC Ri ; 
9807 045614 005202 INC R2 $ 
9808 045616 005202 INC Re ; 
9809 045620 012237 177776 MOV (R2)+,80177776 sINIT PSW 
9810 045624 013305 MOV QCR3)+,R5 ;SAVE DATA AT PHYSICAL ADDRESS 
9811 045626 012737 000027 172516 MOV $27 ,980172516 sINIT MMRS 
9812 045634 012737 000001 177572 MOV 41,80177572 ; TURN MMU ON 
9813 045642 106531 MF PD @CR1)+ ;SAVE DATA AT RELOCATED VIRTUAL ADDRESS 
9814 045644 012604 MOV CSP)+,R4 ;POP THE STACK 
9815 045646 005037 177572 CLR 86177572 ; TURN MMU OFF 
9816 045652 020504 CMP RS .R4 ;IS DATA EQUAL TO EXPECTED 
9817 045654 001401 BEQ 4$ ;YES GO ON 
9818 045656 104002 ERROR +2 ;MMU ERROR 
9819 ;NO IT IS AN ADDER ERROR 
9820 045660 4$: 
j= 045660 000167 000202 JMP TI3FIN 
ba ;ADDER TEST PART A TABLES 
a H 

9825 045664 172240 PARADi1: .WORD 172240 
9826 045666 177642 -WORD 177642 
9827 045670 172252 WORD 172252 
9828 045672 177640 -WORD 177640 
9829 045674 172242 WORD 172242 
9830 045676 172254 WORD 17 
9831 045700 177652 WORD 177652 
9832 045702 177644 WORD 177644 
9833 045704 172246 -WORD 172246 

34 045706 177654 WORD 177654 
9835 045710 172250 WORD 172250 

36 045712 177660 ‘ 177660 
9837 045714 000333 ‘ D> 333 
9838 045716 000000 PARVA1L: .WORD 
9839 045720 9000010 -WORD 000010 

840 045722 177777 -WORD 177777 
9841 045724 177601 -WORD 177601 
9842 045726 000010 -WORD 000010 
9843 045730 000052 -WORD 000052 
9844 045732 000070 -WORD 000070 
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9845 045734 000010 -WORD 000010 
9846 045736 000010 -WORD 000010 
9847 045740 000060 -WORD 000060 
9848 045742 000000 -WORD 000000 
9849 045744 000010 -WORD 000010 
9850 045746 000333 -WORD 333 
9851 045750 000000 VIR1 -WORD 000000 
9852 045752 025000 -WORD 025000 
9853 045754 135224 -WORD 135224 
9854 045756 017700 -WORD 017700 
9855 045760 033000 -WORD 033000 
045762 145252 -WORD 145252 
9857 045764 121000 -WORD 121000 
045766 3000 . WORD 
9859 045770 075000 -WORD 075000 
045772 142000 -WORD 142000 
9861 045774 117700 -WORD 117700 
9862 045776 000111 -WORD iil 
9863 046000 007000 -WORD 007000 
9864 046002 000000 PHY1 -WORD 
9865 046004 006000 . WORD 
046006 015124 -WORD 015124 
9867 046010 . WORD 
9868 046012 014000 WORD 014000 
9869 046014 012452 WORD 012452 
9870 046016 010000 WORD 010000 
9871 004000 
9872 046022 01600C WORD 016000 
987 24 010000 010000 
9874 046026 017700 WORD 017700 
9875 046030 000111 -WORD 111 
9876 046032 010000 WORD 010000 
9877 046034 010000 MODE1: .WORD 010000 
9878 046036 030000 WORD 030000 
9879 046040 010000 010000 
9880 046042 030000 WORD 
9881 046044 010000 WORD 010000 
9882 046046 010000 010000 
9883 046050 030000 WORD 030000 
9884 046052 030000 WORD 030000 
9885 046054 010000 -WORD 010000 
046056 030000 WORD 
9887 046060 010000 010000 
9888 046062 000111 WORD iil 
po 046064 030000 WORD 030000 
; 
9891 046066 TI3F IN: 
9902 046066 TS$1822: 
9903 ; TEST 22/18 BIT ADDRESS OPTION 
9904 ji ERR EEEEEEEE ESOS ESSE 4466 40040640000600000000004000000000 0000008 


sCHECK THE SOFTWARE SWITCH REGISTER TO DETERMINE IF THIS IS A 22 BIT OR AN 
318 BIT ADDRESS SYSTEM. BIT O08 IN THE SWR=1 INDICATES AN 18 BIT SYSTEM. 
;IF WE'RE IN A 22 BIT SYSTEM WE CAN PERFORM SOME EXTRA TESTS. 

9905 046066 032777 000400 133044 BIT #BITO8 , 9SWR :IS BIT 08 SET? 

9906 046074 001405 BEQ 100$ ;BRANCH IF ITS NOT 

9907 046076 062737 000001 001204 ADD #1,90$TESTN ;KEEP TEST NUMBERS IN ORDER 

9908 ;ADD 1 FOR THE TESTS WE‘RE SKIPPING 
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SEQ 0178 


ree 046104 000167 001422 


JMP T14F IN ;SKIP OVER THESE TESTS IF IT IS 


991 : 
cote ;IF THIS IS A 22 BIT SYSTEM CHECK THE 22/18 BIT ADDRESS OPTION 
: 
9913 ;T0 TEST 22 BIT ADDRESSING WE DO THE FOLLOWING: 
9914 3 A. ENABLE 22 BIT ADDRESSING MODE 
9915 ; B. CLEAR ADDRESS 0 
9916 . C. WRITE PHYSICAL ADDRESS 17000000 WITH ALL ONES 
9917 D. CHECK ADDRESS 0 
9918 LIF ADDRESS 0 IS UNCHANGED (=0) OR A TIME OUT OCCURRED, IT INDICATES 
9919 ;22 BIT MODE IS FUNCTIONING. 
ooee ;IF ADDRESS 0 =177777 IT INDICATES THAT 22 BIT MODE IS NOT FUNCTIONING. 
9922 046110 013767 000004 134674 1003: MOV 8¢4 , SLOCOO ;SAVE VECTOR 
9923 046116 013767 134670 MOV 8@6,SLOCO1 ;SAVE VECTOR 
9924 046124 012737 046204 000004 MOV 01$,804 ;SET VECTOR FOR NXM TRAP 
9925 046132 012737 000340 000006 MOV $340 ,8¢6 ; 
9926 046140 012767 000020 124350 MOV $20,SR3 sENABLE 22 BIT MODE ADDRESSING 
9927 046146 012767 170000 124200 MOV #170000, KIPAR6 ;SET KIPAR6 FOR 1920-1924KW ADDR RANGE 
9928 046154 012767 000001 131410 MOV #1,SRO0 sENABLE MMU 
046162 005067 131612 CLR 0 ;CLEAR ADDR O 
ae 046166 012737 177777 140000 MOV #177777 ,8¢140000 io tina tent Ee TO ADDR 17000000 VIA KIPARG 
; 
9932 046174 005767 131600 TST 0 ;ADDR O REMAINING CLEAR INDICATES 
9933 ;THAT 22 BIT ADDRESS MODE IS WORKING AND 
9934 ;THAT SOME FURTHER TESTS SHOULD BE PERFORMED 
9935 046200 001405 BEQ 2$ 3IF ADDR O #177777 
9936 sERROR! 22 BIT ADDRESS MODE BAD 
9937 046202 ERROR 2 ;MMU ERROR 
9938 046204 012706 001000 1$: MOV eSTBOT ,SP ;GOT HERE AS A RESULT OF NXM TRAP--- 
9939 ;CLEAN UP THE STACK 
9940 046210 005037 177766 CLR 80177766 ;CLEAR CPU ERROR REGISTER 
9941 046214 012737 046254 000004 23: MOV $33,904 ;SET UP VECTOR FOR NXM TRAP 
9942 046°22 042767 000020 124266 BIC @BITO4 SRS ;SET 18 BIT ADDRESSING MODE IN SR3 
9943 04..30 012767 170000 124116 MOV #170000, KIPAR6 ;SET KIPAR6 SO THAT BITS 18-21 SHOULD 
994g ;BE ASSERTED IF 22 BIT ADR WAS ENABLED 
9945 046236 012737 177777 140000 MOV 4177777, 80140000 sTRY TO WRITE ADDR 17000000 VIA KIPARG 
9946 ;ADDR O SHOULD = 177777. A TIME OUT 
9947 046244 022737 177777 000000 CMP 4177777, 220 ;0R ADDR O = ZERO INDICATES AN ERROR 
9948 046252 001403 BEQ 4$ ;GO TO NEXT TEST IF ADDR 0-177777 
9949 046254 005067 131312 3$: CLR SRO ;DISABLE MMU BEFORE 
9950 sERROR! 18 BIT ADDR OPTION IS N.G. 
ant 046260 104002 ERROR +2 ;MMU ERROR 
2 $ 
9953 ;TEST ADDRESS BITS 18 THRU 21 
9955 
046262 052767 000020 124226 4$: BIS SBITO4 ,SR3 sENABLE 22 BIT ADDRESSING MODE 
9957 046270 012767 046332 131506 MOV $53.4 ;SET UP FOR NXM TRAP 
9958 046276 005067 131476 CLR 18) ;CLEAR ADDRESS 0 
9959 046302 012767 O1 124044 MOV #10000 ,KIPAR6 ;TEST ADDRESS BIT 18 
9960 046310 012737 177777 140000 MOV 4177777, 88140000 ;sWRITE ALL ONES TO ADDR 1000000 
9961 046316 005767 131456 TST 0 ;TEST ADDRESS 0. SHOULD = ZERO 
9962 046322 001403 BEQ 5$ ;BRANCH IF ADDRESS 0=0 
9963 046324 005067 131242 CLR SRO ;DISABLE MMU BEFORE ERROR 
9964 046330 104002 ERROR +2 ;MMU E 


RROR 
sERROR! BIT 18 DID NOT ASSERT 











-_=— . 
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SEQ 0179 


9966 046332 012737 046374 000004 S5%$: MOV 063,804 ;SET UP FOR NXM TRAP 

9967 046340 005067 131434 CLR 0 ;CLEAR ADOR 0 

9968 046344 012767 020000 124002 MOV #20000 , KIPAR6 ;TEST ADDRESS BIT 19 

9969 046352 012737 177777 140000 MOV #177777 ,80140000 ;WRITE ALL ONES TO ADDR 2000000 
9970 046360 005767 131414 TST 0 ;TEST ADOR 0. SHOULD= ZERO 

9971 046364 001403 BEQ 6$ ;BRANCH IF ADDRESS 0-0 

9972 046366 005067 131200 CLR SRO ;DISABLE MMU BEFORE ERROR 

9973 046372 104002 ERROR +2 ;MMU ERROR 

9974 sERROR! BIT 19 DID NOT ASSERT 

9975 046374 012737 046436 000004 63: MOV 07%, 804 ;SET UP FOR NXM TRAP 

9976 046402 005067 131372 CLR 0 ;CLEAR ADDR O 

9977 046406 012767 040000 123740 MOV #40000 , KIPAR6 ;sTEST ADDRESS BIT 20 

9978 046414 012737 177777 140000 MOV 0177777 ,80140000 ;WRITE ALL ONES TO ADDR 4000000 
9979 046422 005767 131352 TST 0 sTEST ADDR 0. SHOULD -0 

9980 046426 001403 BEQ 7$ s;BRANCH IF ADDRESS 0 =0 

9981 046430 005067 131136 CLR SRO ;DISABLE MMU BEFORE ERROR 

9982 046434 104002 ERROR +2 ;MMU -ERROR 

9983 sERROR! BIT 20 DID NOT ASSERT 

9984 046436 012737 046500 000004 73: MOV 083,804 sSET UP FOR NXM 

9985 046444 005067 131330 CLR 0 ;CLEAR ADDRESS 0 

9986 046450 012767 100000 123676 MOV #100000 , KIPAR6 ;TEST ADDRESS BIT 21 

9987 046456 012737 177777 140000 MOV #177777, 88140000 ;WRITE ALL ONES AT ADDR 10000000 
9988 046464 005767 131310 TST 0 ;CHECK ADDRESS 0. SHOULD = 0 
9989 046470 001403 BEQ 8$ ;BRANCH IF ADDR O = 0 

9990 046472 005067 131074 CLR SRO sDISABLE MMU BEFORE ERROR 
9991 046476 104002 ERROR +2 ;MMU ERROR 

9992 sERROR! ADDR BIT 21 DID NOT ASSERT 

9993 046500 005067 131066 8$: CLR SRO ;DISABLE MMU 

9994 046504 005037 177766 CLR 80177766 ;CLEAR CPU ERROR REGISTER 

9995 046510 012706 001000 MOV @STBOT RE ;RESET STACK POINTER 

9996 046514 013737 003012 000004 MOV 9PSLOC00 , 804 sRESTORE VECTOFS 

pd 046522 013737 003014 000006 MOV 88SLOCO1, 886 5 
10007 046530 TSMM14: 
10008 : ADDER RELOCATION TEST PART 8 
100093 gs 2988400040560 06 6400466460466 0666606 046664664666 066860466668 6464066846600468 

;CNEED 22 BITS OF MEMORY ADDRESSING) 

10010 046530 005037 177572 CLR 8eSRO ; TURN OFF MMU. 
10011 046534 005067 131226 CLR :CLEAR THE CPU ERROR REGISTER 
10012 046540 013737 000004 003012 MOV 804 . B@SLOCOO0 ;SAVE LOC 4 IN SLOCOO. 
10013 046546 013737 000006 003014 MOV 966, 8@SLOCO1 ;SAVE LOC 6 IN SLOCO1. 
10014 046554 012737 047244 000004 MOV ONXMTRP , 904 ;SET UP FOR TIMEOUT TRAP 
10015 046562 012737 000340 000006 MOV $340 . 806 ;SET UP FOR TIMEOUT TRAP 
10016 046570 005037 172340 CLR BEKIPARO ;SET KER PARO FOR IST 4KW OF MEMORY. 
10017 046574 012767 077406 123476 MOV 977406 ,KIPDRO ;SET KER POR FOR 4KW R/W ACCESS. 
10018 012737 177500 172354 MOV #177500 , BOKIPARG ;SET UP KERNEL PAGE ADDR REG 6 
10019 ;FOR HIGHEST 4K WORDS OF NON-I/0 
10020 :FOR 2 MEG WORDS OF MEMORY. 
10021 046610 012767 077406 123476 MOV 677406 ,KIPOR6 ;SET KER POR6 FOR 4KW R/W ACCESS 
10022 046616 012737 000020 172516 MOV 620, G@SR3 sENABLE 22 BIT ADDRESSING. 
10023 046624 012737 000001 177572 MOV #1 ,8@SRO ; TURN ON THE MMU. 

10024 046632 005737 147776 TST 90147776 ;ATTEMPT TO ADDR. LAST MEMORY ADDR. 333 
10025 ;eeeeeeeeseeeeWILL TRAP TO 4 IF 2 MEG WORDS OF MEMORY NOT AVAILABLEseesacace 
10026 046636 013737 003012 000004 MOV 9OSLOCO00 . 804 sRESTORE LOC 4 

10027 046644 013737 003014 000006 MOV 8OSLOCO1 , ae6 sRESTORE LOC 6 

10028 046652 005037 177572 CLR 84177572 ;MMU OFF 

10029 046656 005037 003030 CLR SOFLAG ;CLEAR MMU ABORT FLAG 





~~ 
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047130 


000167 


125252 
177572 
177572 
000333 


047330 
047276 


000027 
177776 
052525 
000001 
177572 


000020 
000040 


172516 
000004 


000376 
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177776 
172516 
177746 


177572 


172516 


177572 


172516 


1$: 


2s: 


3$: 


4$: 





PC MMU 

#10000 ,8¢177776 
$20,80172516 
#1000, 80177746 
@PARVA3,R4 
@VIR3,R1 
(R4)+,80172246 
#1,80177572 
#125252, -( SP) 
@0(R1) 

QC R1i)- 
cadet 


80177572 
+2 


80177572 
_ 


@PARVA2,R4 
@PARAD2,R1 
(R4)+, OCR1)+ 
ae 


@MODE? ,R4 
evIR2,R1 
OPARVAS,R2 
@VIRS,R3 
PC,1S14 


(R1),@111 


027 ,@0172516 
(R4)+, 80177776 
#52525, -(SP) 


#1,80177572 
OC Ri d+ 
8@177572 
#20,80172516 
PC,T14 


80172516 
PC,TS14 


TI4F IN 





SEQ 0180 


3 
;TURN CACHE TEST FEATURE ON 
;SET POINTERS TO INIT TABLES 


i 
s;INIT SIPARS 


;TURN MMU ON 

sPUSH BACKGROUND DATA ON TO THE STACK 
;sWRITE DATA TO PHYSICAL ADDRESS 

sWRITE DATA AT PHYSICAL ADDRESS TO STACK 
:IS DATA EQUAL TO EXPECTED 


sYES GO ON 


; TURN MMU OFF 
;MMU ERROR 
sNOT EQUAL GO TO ERROR 


:NO, GO 
;SET POINT 


TO 3 


5 
ERS TO ADDER PART B TABLES 


; 
sWRITE DATA TO PHYSICAL ADDRESS AND THEN 
sCHECK IF DATA AT PHYSICAL ADDRESS IS 
sEQUAL TO EXPECTED AND IF NOT DETERMINE 


sIF IT IS AN ADDER ERROR 


OR A MEMORY ERROR 


sHAVE WE DONE ALL THE 22 BIT MODE I SPACE 


sCASES 


3NO GO TO 4$ 
sPOINT TO 22 BIT MODE D SPACE CASE 


PSW 
sPUSH DATA ONTO STACK 
;TURN MMU ON 


;WRITE DATA 
;TURN MMU OF 
sINIT MMR 


a PHYSICAL ADDRESS 


3 
sCHECK IF DATA AT PHYSICAL ADDRESS IS EQUAL 
;TO0 EXPECTED AND IF NOT DETERMINE IF IT 


IS AN ADDER ERROR OR 


sINIT MMRS FOR 18 BIT MODE 


sWRITE DATA TO PHYSICAL 


S AND THEN 


ADDRES 
sCHECK IF DATA AT PHYSICAL ADDRESS IS 
sEQUAL TO EXPECTED AND IF NOT DETERMINE IF 
;IT IS AN ADDER ERROR OR A MEMORY ERROR 


| 
= 
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047332 
10142 047334 
10143 047336 


012437 
012737 


176777 


DIAG. 


177776 
000001 
052525 
177572 
010000 
172246 
000001 
000000 
052525 


000000 
125252 


177572 


177572 
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177572 


177776 
177572 


SEQ 0181 


sROUTINE TO WRITE DATA 10 PHYSICAL ADDRESS AND TO CHECK IF DATA AT 
sPHYSICAL ADDRESS IS EQUAL TO EXPECTED AND IF NOT DETERMINE IF IT IS 
;AN ADDER ERROR OR A MEMORY ERROR 


3 
TS14: MOV (R4)+,80177776 sINIT PSW 
MOV €1,80177572 ; TURN MMU ON 
MOV #52525, -(SP) ;sWRITE DATA ONTO STACK 
MTPI @CR1)+ sWRITE DATA TO PHYSICAL ADDRESS VIA STACK 
CLR 80177572 :7 OFF 
T14: MOV #10000 ,80177776 NINIT PSW 
MOV (R2)+,80172246 sINIT SIPAR3 
MOV #1,80177572 ; TURN MMU 
MF PI 80CR3) 300 RELOCATION 
CMP #52525 ,.(SP)+ ;IS DATA EQUAL TO EXPECTED 
BEQ 2$ sYES GO ON 
MF PI BOC R3) ; WHAT TYPE OF ERROR IS IT 
CMP #125252,(SP)+ ; 
BEQ i$ ; 
ERROR +2 sMMU ERROR 
;IT IS A MEMORY ERROR 
BR 2s ; 
1$: ERROR +2 ;MMU ERROR 
;IT IS AN ADDER ERROR 
2s: CLR 00177572 ; TURN MMU OFF 
INC R3 ; 
INC R3 ; 
RTS PC ;RETURN 
; 
;NON-EXISTANT MEMORY TRAP ROUTINE 
; 
NXMTRP: CLR 8eSRO ;TURN OFF MMU. 
MOV ST14FIN, (SP) ;SET UP "aes WITH RETURN ADDR. 
MOV 8@SLOCO00 , 864 sRESTORE LOC 4 
MOV 8@SL0C01 , 886 sRESTORE LOC 6 
CLR 801777 ;CLEAR TIME ouT INDICATION FROM 
;CPU ERROR REGISTER. 
RTT sRETURN FROM TRAP; GO TO NEXT TEST. 
:ADDER TEST PART 8 TABLES 
; 
PARAD2: .WORD 177646 
-WORD 177650 
-WORD 177652 
-WORD 172240 
-WORD 177640 
-WORD 177642 
-WORD 172244 
-WORD 177644 
-WORD 172252 
-WORD 172352 
-WORD 177662 
-WORD 172242 
-WORD 333 
PARVA2: .WORD 157700 
-WORD 137700 
-WORD 077700 
-WORD 176777 








- nnn nnn nnn re eS -ssilies hsss-nS  SSSSSSScneennene 
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SEQ 0182 





10144 047340 007600 . WORD 
10145 047342 167700 . WORD 
10146 047344 175700 . WORD 
10147 047346 177425 . WORD 
10148 047350 177220 . WORD 
10149 047352 173700 . WORD 
10150 047354 176700 WORD 
10151 047356 077400 WORD 
10152 047360 000333 . WORN 
10153 047362 070000 VIR2:  .WORD 
10154 047364 110000 . WORD 
10155 047366 130000 WORD 
10156 047370 000000 . WORD 
10157 047372 000000 . WORD 
10158 047374 030000 . WORD 
10159 047376 050000 . WORD 
10160 047400 052524 . WORD 
10161 047402 1 WORD 
10162 047404 130000 WORD 
10163 047406 000111 . WORD 
10164 047410 030000 . WORD 
10165 047412 030000 . WORD 
10166 047414 030000 MODE2: .WORD 
10167 047416 0300900 . WORD 
10168 047420 030000 . WORD 
10169 047422 010000 . WORD 
10170 047424 030000 . WORD 
10171 047426 030000 . WORD 
10172 047430 > WORD 
10173 047432 030000 WORD 
10174 047434 010000 . WORD 
10175 047436 00 WORD 
10176 047440 000111 . WORD 
10177 047442 . WORD 
10178 047444 010000 . WORD 
10179 047446 160000 PARVA3S: .WORD 
10180 047450 140000 . WORD 
10181 047452 . WORD 
10182 047454 176770 . WORD 
10183 047456 007600 . WORD 
10184 047460 170000 . WORD 
10185 047462 176000 . WORD 
10186 047464 177552 . WORD 
10187 047466 177400 . WORD 
10188 047470 174000 - WORD 
10189 047472 177000 . WORD 
10190 047474 007500 . WORD 
10191 047476 000333 - WORD 
£0192 04 060000 VIRS:  .WORD 
10193 047502 060000 . WORD 
30194 04 060000 . WORD 
10195 047506 060700 . WORD 
10196 067510 060000 . WORD 
10197 047512 060000 . WORD 
10198 047514 060000 . WORD 
10199 047516 060024 . WORD 
10200 047520 060000 . WORD 


LE 
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012737 
012704 
004767 


157776 


000040 


047602 


000000 


127730 
130120 
133140 


177572 
133144 
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130154 


130130 


177776 


SEQ 0183 
-WORD 060000 
-WORD 060000 
-WORD 060000 
-WORD 333 
; 
T14F IN: 
; TEST NON-EXISTANT MEMORY TRAP 


§ F SRRSEREAESAEAEEEEEAAEEEREREREAREAEEEEEEEEEEEDE ED EEED SEED DEED LES 
sWE ARE ASSUMING THAT THE NON-EXISTANT MEMORY TIME OUT 
sFEATURE IS WORKING SINCE WE CAN’T GUARANTEE THAT 
;THE SYSTEM BEING TESTED HAS A NON-EXISTANT MEMORY LOCATION. 
sAT THIS TIME WE WILL ATTEMPT TO TEST THE NXM FUNCTION 
JSR PC, sINIT THE MMU 
#177400, BOKIPARG /SET KIPAR6 TO RELOCATE TO HIGHEST MEMORY 
MOV 4, SLOC00 sSAVE VECTOR 


MOV 23,4 sLOAD VEC WITH ADDR OF TRAP HANDLER 
BIS #6 ITOO,SRO s;TURN ON THE MMU 
CLR CPEREG sCLEAR THE CPU ERROR REGISTER 
CLR PS ;CLEAR THE PSW 
TST 90157776 sACCESS PHYSICAL ADDR 17757776 
18: BR NXMF IN sIF IT DOESN‘T TRAP WE’LL ASSUME 
sTHAT THIS IA A 4 MEGABYTE SYSTEM 
sAND GO TO THE NEXT TEST 
23: a ae ;IS CPU ERROR REGISTER CORRECT? 
; 
ERROR +2 sMMU ERROR 
3$: con + alain 31S CONTENTS OF STACK CORRECT? 
; 
ERROR +2 sMMU ERROR 
43: A €0,(SP)+ 3IS CONTENTS OF STACK CORRECT? 
+ 
ERROR +2 sMMU ERROR 
NXMFIN: CLR SRO ;TURN OFF THE MMU 
CLR CPEREG ;CLEAR THE CPU ERROR REGISTER 
MOV SLOCOO .4 sRESTORE THE VECTOR 
TSMM15: 
; PAGE WRITTEN as TEST 
CLR a¢1 sMMU OFF 
CLR FL ;CLEAR MMU ABORT FLAG 
JSR PC MMU sINIT MMU 
CLR 90177776 :INIT PSW 
MOV #172300,R4 :SET POINTER TO KPDRS 
JSR PC,1Si5 ;00 RELOCATIONS AND TEST KIPORS FOR 


sPAGE WRITTEN BIT BEING SET AND IF 
sNOT SET GO TO ERROR 

;00 RELOCATIONS AND TEST KDPDORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 


;SET GO TO ERROR 

MOV #50000 ,86177776 sINIT PSW 

MOV #172200,R4 sSET POINTER TO SPORS 

JSR PC,TS15 3D0 RELOCATIONS AND TEST SIPDRS FOR 
;PAGE WRITTEN BIT BEING SET AND IF NOT 
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10268 
10269 047726 
10270 
10271 
10272 047732 
10273 047736 
10274 047744 
10275 047750 
10276 


10277 
10278 047754 
10279 
10280 
10281 047760 


10282 047764 
10283 047770 
10284 


10285 
10286 047774 
10287 050000 
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004767 


005037 
012737 
012704 
004767 


004767 


005037 
012704 
004767 


012704 
004767 


012704 
004767 


000167 


000136 


177776 


000110 


177776 
172300 
000152 


172200 
000142 


177600 
000132 


000154 


000002 
000027 
000001 


177572 
077506 
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177776 


172516 
177572 


172516 
177572 


JMP 





PC,715 


80177776 


#170000, 80177776 


#177600,R4 
PC,7TS15 


PC.1T15 


80177776 
#172300,R4 
PC,T1SA 


#172200,R4 
PC,T1SA 


#177€90,R4 
PC,TISA 


TISFIN 





= 
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SEQ 0184 


;SET GO TO ERROR 

300 RELOCATIONS AND TEST SDPORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
sSET GO TO ERROR 

sINIT PSW TO A KNOWN STATE 

sINIT PSW 

;SET POINTER TO UPORS 

300 RELOCATIONS AND TEST UIPORS FOR 
sPAGE WRITTEN BIT SEING SET AND IF 
sNOT SET GO TO ERROR 

300 RELOCATIONS AND TEST UDPORS FOR 
sPAGE WRITTEN BIT BEING SET AND IF NOT 
;SET GO TO ERROR 

sINIT PSW TO A KNOWN STATE 

;SET POINTER TO Ss 

sEXPLICITLY WRITE TO KPDRS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 
sSET POINTER TO SPORS 

sEXPLICITLY WRITE TO SPDRS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 
sSET POINTER TO UPORS 

sEXPLICITLY WRITE TO UPDRS AND TEST 
sFOR PAGE WRITTEN BIT BEING CLEARED 
;AND IF NOT CLEARED GO TO ERROR 


; 
sROUTINE TO 00 RELOCATIONS AND TEST IPDRS FOR PAGE WRITTEN BIT BEING 
SET AND IF NOT SET REPORT AN ERROR 


i 
TSi5: CLR 
1$: MOV 


2$: ADD 


RTS 


C(R1),CR1) 
9¢177572 
— 


2 


€20000 ,R1 
R1,@160000 
1$ 

PC 


sSET POINTER TO VIRTUAL ADDRESS 
:INIT MMRZ 


URN MMU 
sIS DATA EQUAL TO EXPECTED 
;0K GO ON 


;MMU ERROR 
;NO GO TO ERROR 


sPOINT TO NEXT VIRTUAL ADDRESS 
ARE WE DONE 


3 
sNO GO TO i$ 
3 URN 


; 
sROUTINE TO DO RELOCATIONS AND TEST DPORS FOR PAGE WRITTEN BIT BEING SET 


;AND IF NOT 
; 
T15: CLR 


i$: MOV 


SET REPORT AN ERROR 


#1,80177572 
(R2),-CSP) 
(R1) 
80177572 


sSET POINTER TO VIRTUAL ADDRESS 
;POINT TO FIRST DPOR 

sINIT MMRS 

;TURN MMU ON 

:PUSH DATA ONTO THE STACK 

D0 A RELOCATION 

;TURN MMU OFF 

sIS DATA EQUAL TO EXPECTED 
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a 


10325 050126 
10326 050130 


10370 050312 
10371 050314 
10372 

10373 050316 
10374 050324 
10375 050332 


10383 050370 


012737 


020000 
160000 


077406 


000020 








rr EE ssssscre ss et” 
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172516 


000010 
172516 
177776 


000010 
172516 


172516 
177776 


177776 


2$: 


RTS 


2s 
2 


#20000 ,R1 
— 


1 
PC 


SEQ 0185 


;NO GO TO ERROR 
sPOINT TO NEXT VIRTUAL ADDRESS 
sARE WE DONE 
sNO GO TO 1$ 
;RETURN 


: 
sROUTINE TN EXPLICITLY WRITE TO PORS AND TEST PAGE WRITTEN BIT FOR BEING 
;CLEARED AND IF NOT CLEARED REPORT AN ERROR 


a 
TLISA: 
1$: 


TSML6A: 


TSM16B : 


TSM16C: 


CLR 
MOV 


CMP 
BEQ 
ERROR 
INC 
CMP 
BNE 
RTS 


R2 
CR4),CR4) 
2$ 

+2 

R2 
R2,920 

i$ 

PC 


TEST CSM (CALL SUPERVISOR MODE) 
R 96177572 


sCLEAR COUNTER 

300 AN EXPLICIT WRITE TO POR 
;I1S DATA EQUAL TO EXPECTED 
OK GO ON 


ROR 
s INCREMENT POINTER 
;ARE WE DONE 

sNO GO TO 1$ 
;RETURN 


CL sMMU OFF 
CLR BOFLAG ;CLEAR MMU ABORT FLAG 
MOV @TMMIGE ,R4 sINIT R4 
MOV $37 ,80172516 sENABLE CSM INSTRUCTION 
CLR 90177776 ;SET PS TO KER MODE 
MOV 8010,-(SP) sSAVE VECTORS 
MOV 8014 ,-CSP) ; 
MOV 8616 ,-(SP) ; 
MOV OTMMN16B , 8010 sSETUP NEW VECTORS 
MOV #137 ,8014 3 
MOV OTMM16A , 8016 ; 
-WORD 7014 ; TEST INSTRUCTION 
ERROR +2 ;MMU ERROR 

;G0 TO ERROR IF NOT TRAPPED 
MOV eTMM16C , 8610 ;SETUP NEW VECTOR 
MOV €27,80172516 ;DISABLE CSM INSTRUCTION 
MOV #140000 , 80177776 :SET PS TO USER MODE 
-WORD 7014 ; TEST INSTRUCTION 
ERROR +2 ;MMU ERROR 

3G0 TO ERROR IF NOT TRAPPED 
MOV oTMM160,8010 ;SETUP NEW VECTOR 
MOV #27 ,80172516 ;DISABLE CSM INSTRUCTION 
CLR 86177776 ;SET PS TO KER MODE 
-WORD 7014 ; TEST INSTRUCTION 
ERROR +2 MMU E 

;G0 TO ERROR IF NOT TRAPPED 
MOV #37 ,80172516 ;ENABLE CSM INSTRUCTION 
MOV 640000 ,80177776 ;SET PS TO SUP MODE 
MOV $700 ,R6 ;INIT SUP SP 
MOV 140000, 80177776 ;SET PS TO USER MODE 
MOV #600 ,R6 ;INIT USER SP 
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10384 050374 


10440 050610 


| 
L 


012737 
000277 
007024 
104002 


000167 


042737 
022737 
001401 
104002 


005726 
005726 


000014 


000504 


007777 
000000 


177624 
007777 
030000 


177622 
007777 
000000 
177616 


000364 
070017 


000572 
050526 
050524 
156430 


050406 
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000010 


177776 
177776 


177776 
177776 


177776 
177776 


177776 


156430 


i$: 


TMM16C: 


1$: 


TMM16D : 


1$: 


TMMIGE : 


TMMLG6F : 


TMM16A: 


1$: 


2s: 


3$: 


4$: 


5$: 


14,8010 ;SETUP NEW VECTOR 
;SET ALL CC BITS 

7024 ; TEST INSTRUCTION 
+2 ;MMU ERROR 

;GO TO ERROR IF NOT TRAPPED 
TM16A 
07777,80177776 ;CLEAR UNWANTED BITS 
#0 ,80177776 sIS PS CORRECT 
i$ ;YES GO ON 
+2 ;MMU ERROR 

;NO GO TO ERROR 
CSP)+ ;CLEAN UP STACK 
CSP )+ ; 
TSM16A sCONTINUVE TESTING 
07777 ,80177776 sCLEAR UNWANTED BITS 
#30000 ,84177776 sIS PS CORRECT 
i$ sYES GO ON 
+2 ;MMU ERROR 

sNO GO TO ERROR 
(SP )+ sCLEAN UP STACK 
CSP) $ 
TSM16B8 sCONTINUVE TESTING 
#7777 ,80177776 ;CLEAR UNWANTED BITS 
$0 ,80177776 7IS PS C cT 
i$ :YES GO ON 
+2 ;MMU ERROR 

;NO GO TO ERROR 
(SP)+ ;CLEAN UP STACK 
CSP)+ $ 
TSM16C sCONTINUVE TESTING 
156430 ; TEST LOCATION 
2 ;MMU ERROR 
mesa 3G0 TO ERROR IF DION’ T ABORT 
#70017 ,8@0177776 :IS PS CORRECT 
is :YES GO ON 
+2 ;MMU ERROR 

;NO GO TO ERROR 
R6, 0572 ;IS SP CORRECT 
23 ;YES GO ON 
2 ;MMU ERROR 

;NO GO TO ERROR 
R4, STMMIGE+2 :IS R4&4 CORRECT 
3$ :YES GO ON 
+2 ;MMU ERROR 

3 TO ERROR 
SOTMMIGE , 2156430 ;IS TEST LOCATION OK 
4$ ;YES GO ON 
+2 ;MMU ERROR 

;NO GO TO ERROR 
(SP)+, #156430 :IS STACK CORRECT 
5$ ;YES GO ON 
+2 ;MMU ERROR 

:NO GO TO ERROR 
(SP)+, @TSM16D 31S STACK CORRECT 








SEQ 0186 


: 
[ee 


~_—-, 
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10477 050774 
10478 051002 
10479 051010 
10480 051012 
10481 051014 
10482 051016 
10483 

10484 051020 
10485 051024 


10496 
10497 051056 


001401 
104002 
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177776 


177572 


003030 


100041 


172516 
177776 


177776 


000010 
000016 


177776 


6$: 


9$: 


10$: 


11$: 


TS16A: 


TS1i6: 


200$: 


201%: 


202$: 


BEQ 
ERROR 


6$ s;YES GO ON 
+2 sMMU ERROR 
sNO GO TO ERROR 


(SP )+, #140000 ;IS STACK CORRECT 
7$ ;YES GO ON 
+2 sMMU ERROR 
;NO GO TO ERROR 
#700 ,R6 ;RESTORE SUP SP 
#140000, 80177776 ;SET PS TO USER MODE 
R6 , 600 ;IS USER SP CORRECT 
8$ ;YES GO ON 
+2 ;MMU ERROR 
;NO GO TO ERROR 
#77400 ,SIPDRO sSETUP SIPDRO TO ABORT 
@TMML6F , 8616 ;SETUP VECTOR 
#1 ,98¢FLAG ;sSETUP FLAG FOR AN ABORT 
$1,80177572 ; TURN MMU ON 
R7,R1 ;SAVE OLD PC 
7014 ; TEST INSTRUCTION 
#0 , OF LAG ;DID AN ABORT OCCUR 
;YES GO ON 
+2 ;MMU ERROR 
:NO GO TO ERROR 
BeSAVMR2 ,R1 :IS MMR2 CORRECT 
;YES GO ON 
+2 :MMU ERROR 
;NO GO TO ERROR 
BeSAVMRO , 100041 :IS MMRO CORRECT 
:YES GO ON 
2 ;MMU E 
;NO GO TO ERROR 
#37 ,80172516 sENABLE CSM 
#40000 ,80177776 ;SET PSW TO SUP 
#700 .R6 ;SETUP SUP 
#140000, 80177776 :SET PSW TO USE 
#600 ,R6 ;SETUP USE SP 
$14,810 ;SETUP NEW VECTOR 
#7516, 8016 ;SETUP NEW VECTOR 
;SET ALL CC BITS 
7027 ;TEST INSTRUCTION 
45712 
yd ;MMU ERROR 
:GO TO ERROR IF DION‘T TRAP 
TM1I6A 
#70017 ,80177776 :IS PSW CORRECT 
200$ :YES GO ON 
+2 ;MMU ERROR 
;NO GO TO ER 
R6,#572 :IS SP CORRECT 
201$ ;YES GO ON 
+2 ;MMU ERROR 
:NO GO TO 
(SP)+, 045712 :IS STACK CORRECT 
202% ;YES G 
+2 ;MMU ERROR 
;NO GO TO ERROR 
(SP)+, @TS16A :IS STACK CORRECT 


a 


SEQ 0187 


te 
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| 
a 





SE 
MEMORY MANAGEMENT TESTS “v 
10498 051062 001401 BEQ 203% ;YES GO ON 
10499 051064 104002 ERROR +2 ;MMU ERROR 
10500 ;NO GO TO ERROR 
10501 051066 022627 140000 2033: CMP (SP)+, #140000 :IS STACK CORRECT 
10502 051072 001401 BEQ 2043 ;YES GO ON 
10503 051074 104002 ERROR +2 ;MMU ERROR 
10504 ;NO GO TO ERROR 
10505 051076 012706 000700 2043: MOV #700 ,R6 sRESTORE SUP SP 
10506 051102 012737 140000 177776 MOV #140000, 80177776 ;SET PSW TO USER MODE 
10507 051110 020627 000600 CMP R6 , #600 ;IS USER SP CORRECT 
10508 051114 001401 BEQ’ TM16A ;YES GO ON 
10509 051116 104002 ERROR +2 ;MMU ERROR 
10510 : ;NO GO TO ERROR 
10511 051120 005037 177776 TMi6A: CLR 80177776 ;SET PS TO KER MODE 
10512 051124 012637 000016 MOV (SP)+,8016 ;sRESTORE VECTORS 
10513 051130 012637 000014 MOV (SP)+,8014 ; 
ae 051134 012637 000010 MOV (SP)+, 8010 ; 
10519 ¢ SSRREAEKE SEES EEESESEEEEKEEEEEEAAEAEEEEKEOEEEE6E4GEKEEKEEEDEEE KE EE LEEKS EKEES 
10520 -SBTTL FLOATING POINT TESTS 
10521 § SS SEES OEE EEEEEEEEESEEEEEEEEES EE 446 6646464446464646 64644446466 44464 464464464464 
10522 ; BEGIN FLOATING POINT TESTING 
10523 § SSR EEOEEEEEEEEEEEEDEE 4446606465445 646046646664666 4646066 6464646646064664646444464646464464644646 
10524 § 8882466040846 66644664046 444666466464566 46 6404 06 $6646666464646646 0066440646464 64 446446444 
10537 051140 MBT1i: 
10538 
10539 : FPP REGISTER BIT TESTS 
10540 bf BEES ESO E4444 44484 OSO40446004646466 46446 04604644646646446446% 
;R5=FPP POINTER 
;R1=TEMPORARY COUNTER 
;R2=POINTER TO EXPECTED DATA 
;R3=POINTER TO RECEIVED DATA 
:R4=O0DD/EVEN COUNTER 
10541 051140 170011 SETO 
10542 051142 005005 MBT2: CLR RS ;SETUP FPP ACC POINTER 
10543 051144 012702 003109 MOV @BTEXP .R2 ;POINT TO TEST DATA 
10544 051150 012703 003110 MOV OB TRES RS sPOINT TO RECEIVED DATA 
10545 051154 170400 MBT2A: CLRD ACO ;SETUP FPP REGISTER VALUES 
10546 051156 174012 STO ACO, (R2) ;CLEAR EXPECTED VALUE 
10547 051160 005004 CLR RS 
10548 051162 170400 BTGO: CLRD ACO ;SETUP FPP REGISTER VALUES 
10549 051164 170401 CLRO ACi 
10550 051166 170402 CLRD AC2 
10551 051170 170403 CLRD ACS 
10552 051172 170404 CLRD AC4 
10553 051174 170405 CLRD ACS 
10555 051176 010501 MOV RS5S.Ri ;GET FPP AC NUMBER INTO Ri 
10556 051200 070127 000014 MUL #14,R1 ;ALLOW 10 LOCATIONS FOR OPERATION 
10557 051204 062701 051212 ADD @MACO,R1 ;SETUP JMP LOCATION 
10558 051210 000111 JMP 1) 
10559 051212 172467 131662 MACO: LOD BTEXP,ACO ;LOAD TEST DATA INTO TEST REGISTER 
10560 051216 174067 131666 MACOA: STD ACO, BTRES ;SAVE TEST RESULT 
10561 051222 000167 000074 JMP MACE ;GET OUT 
10562 051226 172567 131646 MACI: LOD BTEXP,AC1i ;LOAD TEST DATA INTO TEST REGISTER 
10563 051232 174167 131652 STD ACi1,BTRES :SAVE TEST RESULT 
10564 051236 000167 000060 JMP MACE ;GET OUT 








COKDAEO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 
10565 051242 


10 
10567 
pee oa 


S 
) 


8 
10619 


10620 


10621 


566 051246 


051252 
051256 
05 


051500 
051504 
051506 


001410 
174367 


177710 
131566 


177674 
131552 
131544 
131536 
131530 
140132 


000004 


131500 
000246 


140132 


000001 


131452 
000220 


140132 


000902 


131424 
000172 


140132 


000003 
131376 





MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-170 


131560 
131552 
131544 
131536 


MAC2: 


MAC3: 


MAC4: 


MACS: 


MACE : 


BTER: 


MBT8A: 


MBT8B: 


MBT8C: 


LOD 
STD 


BTEXP,AC2 
AC2, BTRES 
MACE 
BTEXP,AC3 
AC3,BTRES 
MACE 
BTEXP, ACO 
ACO, AC4 


MAC 

BTEXP,BTRES 
BTER 
BTEXP+2,BTRES+2 
BTER 
BTEXP+4,BTRES+4 
BTER 
BTEXP+6,BTRES+6 
MBTS 

SeDE TFPA 

+3 


QTHER REGISTERS 
Ri 


R502 

MB TSC 
AC2,BTRES 
R7 ,BTTST 
MBTSC 
OeDETFPA 
+3 


R5,@3 
MBT8D 
AC3,BTRES 


SEQ 0189 


;LOAD TEST DATA INTO TEST REGISTER 
s;SAVE TEST RESULT 

;GET OUT 

;LOAD TEST DATA INTO TEST REGISTER 
sSAVE TEST RESULT 

;GET OUT 


sLOfD TEST DATA INTO TEST REGISTER 
;SAVE TEST RESULT 

;GET OUT 

;LOAD TEST DATA INTO TEST XFER REGISTER 
;LOAD TEST REGISTER 

wee INTO XFER FPP REGISTER 

; 


;BRANCH IF REGISTER ERROR 


GOOD RESULT 
a FLOATING POINT FAULT. $$$ 


E 
;FPP AC LOADED INCORRECTLY 
INED ZERO 


;CLEAR TEMPORARY COUNTER 

;SEE IF RO UNDER TEST 

sBRANCH IF TEST ING RO 

sSEE IF TESTING FPP REGISTER >R4 
;SKIP RO TESTING 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF EXPECTED RESULT 
;sDETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
:BAD ACO 


sSEE IF Ri UNDER TEST 

sBRANCH IF R1 UNDER TEST 

sSAVE AC TEST RESULT 

:VERIFY THAT CONTENTS REMAINED ZERO 
;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
;BAD ACL 


;SEE IF TESTING FPP REGISTER AC2 
sBRANC:? IF R2 UNDER TEST 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
s;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $: 


;FPP ERROR 
;BAD AC2 


;SEE IF R3 UNDER TEST 
;BRANCH IF R3 UNDER TEST 
sSAVE AC TEST RESULT 
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10622 051512 
10623 051516 
oe 051520 
S 051524 


10674 
10675 051712 
10676 


10678 
10689 051712 


TESTS 


004767 
001403 


000144 
140132 


000004 
131346 
000114 
140132 
000005 


131316 
000064 


140132 


177776 


177314 


000006 
177272 


131222 
131216 
131212 
131206 





MBT8D: 


MBTS8E : 


MBTSF : 


MBTS8SFG: 


MBTS8I: 


TST 


BNE 
TST 
BNE 


TST 
BITSTE: RTS 


R7,BTTST 


AC4,ACO 
R7,BTTST 
MBT8E 
BeDETFPA 
+3 


R4 
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SEQ 0190 
;VERIFY THAT CONTENTS REMAINED ZERO 
;BRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD AC3 


s;SEE IF R4 UNDER TEST 

sBRANCH IF R4 UNDER TEST 

sMOVE REGISTER CONTENT 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 


s;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


;BAD AC4 
;SEE IF RO UNDER TEST 
;BRANCH IF RO UNDER TEST 
sMOVE REGISTER CONTENTS 
sSAVE AC TEST RESULT 
;VERIFY THAT CONTENTS REMAINED ZERO 
;BRANCH IF GOOD 
s;DETERMINE FLOATING POINT FAULT. $33 
3FPP ERROR 
;BAD ACS 
; INCREMENT PATTERN COUNTER 


; TEST FOR ODD /EVEN 
;BRANCH IF EVEN 

;SET CARRY FOR TEST PATTERN SHIFT 
sROTATE LSW OF TEST PATTERN 
;ROTATE 2 WORD OF TEST PATTERN 
sROTATE 3 WORD OF TEST PATTERN 
sROTATE 4 WORD OF TEST PATTERN 

; JUMP IF THROUGH WITH TEST PATTERN 
;CONTINUE WITH NEW TEST PATTERN 


;GO TO NEXT REGISTER TEST 

sSEE IF oo TESTING 

;JUMP IF THROUGH 

sCONTINVE TESTING WITH NEW PATTERN 


sVERIFY CONTENTS AS ZERO 
ZERO 


sEXIT IF NOT 
;VERIFY CONTENTS AS ZERO 
sEXIT IF NOT Z 


ERO 
sVERIFY CONTENTS AS ZERO 
sEXIT IF NOT ZERO 
;VERIFY CONTENTS AS ZERO 
;GO BACK TO CALLING ROUTINE 
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10693 
10694 051712 
10695 051714 


10701 051744 
10702 051752 
10703 051760 
10704 051764 
10705 051766 
10706 051772 
10707 051776 
10708 052000 
10709 052004 
10710 052010 


10725 052070 
10726 052074 
10727 052076 
10728 052102 
10729 

10730 052104 
10731 052110 
10732 052114 
10733 052120 
10734 052122 
10735 052126 
10736 

10737 052130 


10740 052144 
10741 052146 
10742 052152 
10743 


| 
= 


140132 
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131142 
131136 


MFA: 


BFACI: 


BFAC2: 


BF ACS: 


SEQ 0191 


TEST UNIQUENESS OF FPP ACCUMULATORS 

jj SRRRERAREREEAEEASEAEDEEEEEEDED ERED SEED EE EEDEEEEEEEEEEE SEES EREES 
sTHIS TEST LOADS UNIQUE PATTERNS INTO EACH ACCUMULATOR SIMULTANEOUSLY. 
sR2=POIN;ER TO EXPECTED DATA 
sR3=POINTER TO RECEIVED DATA 


RO 

R4 

@BTEXP ,R2 
#BTRES ,R3 
#51,BTEXP 
#52, BTEXP+2 


BTEXP, ACO 
ACO, BTRES 
RS BFA 


BFAC1 
O2DETFPA 


+ 


;SETUP FPP ACC POINTER 


sPOINT TO TEST DATA 
sPOINT TO RECEIVED DATA 
sSETUP EXPECTED DATA 

; 

i 


i 
sMOVE DATA TEMPORARILY 

;PUT DATA INTO TEST REGISTER 
sSUBTRACT TEN FROM EACH EXPECTED DATA 
sMOVE DATA TEMPORARILY 

sMOVE DATA INTO TEST REGISTER 
sSUBTRACT 10 FROM TEST DATA WORDS 
sSTORE INTO TEST REGISTER 

sGET NEXT SET OF UNIQUE DATA WORDS 
sSTORE INTO TEST REGISTER 

;sGET NEXT SET OF TEST DATAS 

sLOAD TEST REGISTER 

sGET NEXT SET OF TEST WORDS 

sLOAD FINAL TEST REGISTER 

sALL REGISTER CONTAIN UNIQUE TEST WORDS 
; STORE — 


; CHECK x 

;BRANCH IF 6000 

;DETERMINE FLOATING POINT FAULT. $$$ 
3;FPP ERROR 


;BAD ACO 
sUPDATE EXPECTED RESULT 
sSTORE AC1 RESULT 
;CHECK RESULT 


sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 


:STORE AC2 RESULT 
RESULT 


GOOD 

;DETERMINE FLOATING POINT : AULT. $$$ 
;FPP ERROR 
;BAD AC2 RESLUT 

;UPDATE EXPECTED RESULT 

;SAVE TEST RESULT 

;CHECK RESULT 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD AC3 RESULT 
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FLOATING POINT TESTS 


SEQ €192 





10744 052154 004567 000104 BFAC4: JSR RS, ADOT UPDATE EXPECTED RESULT 
10745 052160 172704 LOD AC4, AC3 ;SAVE TEMPORAR 

10746 052162 174367 130722 STD AC3.BTRES SSTORE ACS RESULT 

10747 052166 004567 000124 JSR RS, BFA ;CHECK RESULT 

10748 052172 001403 BEQ BFACS ;BRANCH IF GOOD 

10749 052174 004737 140132 CALL § @@DETFPA ;DETERMINE FLOATING POINT FAULT. $$ 
10750 052200 104003 ERROR +3 FPP ERROR 

10751 ;BAD AC4 RESULT 

10752 052202 004567 000056 BFACS: JSR RS, ADDT ;UPDATE EXPECTED RESULT 

10753 052206 172605 LOD ACS, AC2 ;SAVE TEMPORARY COPY 

10754 052210 174267 130674 STD AC2.BTRES ;MOVE ACS RESULT 

10755 052214 004567 000076 USR RS, BFA ;CHECK RESULT 

10756 052220 001456 BEQ BFAE ;BRANCH IF GOOD 

10757 052222 004737 140132 CALL § SODETFPA sDETERMINE FLOATING POINT FAULT. $43 
10758 052226 104003 ERROR +3 FPP ERROR 

10759 ;BAD ACS RESULT 

10760 052230 000452 BR BFAE ;EXIT MODULE 

10762 052232 162767 000010 130640 SUBT: SUB #10, BTEXP ;UPDATE EXPECTED CONTENTS 
10763 052240 162767 000010 130634 SUB #10, BTEXP+2 ;UPDATE EXPECTED CONTENTS 
10764 052246 162767 000010 130630 SUB 010, BTEXP+4 ;UPDATE EXPECTED CONTENTS 
10765 052254 162767 000010 130624 SUB #10, BTEXP+6 ;UPDATE EXPECTED CONTENTS 
10766 052262 000205 RTS RS , 

10767 052264 062767 000010 130606 ADDT: ADD #10, BTEXP ;UPDATE EXPECTED CONTENTS 
10768 052272 062767 000010 130602 ADD #10. BTEXP+2 ;UPDATE EXPECTED CONTENTS 
10769 052300 062767 000010 130576 ADD 010, BTEXP+4 ;UPDATE EXPECTED CONTENTS 
10770 052306 062767 000010 130572 ADD #10, BTEXP+6 ;UPDATE EXPECTED CONTENTS 
10773 052314 RTS RS ; 

10773 052316 026767 130556 130564 BFA: CMP BTEXP,BTRES ;VERIFY CONTENTS 

10774 052324 001013 BNE FB ;EXIT IF NOT ZERO 

10775 052326 026767 130550 130556 CMP BTEXP+2,BTRES+2 ;VERIFY CONTENTS 

10776 052334 001007 BNE BFS ;EXIT IF NOT ZERO 

10777 052336 026767 130542 130550 CMP BTEXP+4,BTRES+4 ;VERIFY CONTENTS 

10778 052344 001003 BNE FB ;EXIT IF NOT ZERO 

10779 052346 026767 130534 130542 CMP BTEXP+6, BTRES+6 ;VERIFY CONTENTS 

10780 052354 000205 BFB: RTS RS ;GO BACK TO CALLING ROUTINE 
10782 

10783 052356 BFAE: 

10784 

10785 % 

10786 

10789 052356 TSFP1: 

10790 ; TEST LOFPS AND STFPS MODE 0 

10791 052356 005037 140054 CLR SeTRPFLG ;CLEAR TRAP FLAG 

10792 052362 012704 147757 MOV 0147757,R4 ;SETUP DATA TO BE LOADED 

10793 052366 004767 JSR PC LOST ;LOAD AND STORE FPS WITH DATA 
10794 052372 012704 105252 MOV #105252,R4 ;SETUP DATA TO BE LOADED 

10795 052376 004767 000022 JSR PC,LOST ;LOAD AND STORE FPS WITH DATA 
10796 052402 012704 042505 MOV 042505 ,R4 ;SETUP DATA TO BE LOADED 

10797 052406 004767 000012 JSR PC,.LOST ;LOAD AND STORE FPS WITH DATA 
10798 052412 00 CLR R4 ;SETUP DATA TO BE LOADED 

10799 052414 004767 000004 JSR PC LOST ;LOAD AND STORE FPS WITH DATA 
10801 $ 

10802 052420 000167 000020 JMP FINI 


| 
e 
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140132 


177776 
177760 


140132 


140054 


140132 


140132 


: 
LOST: 


i 
TSF2: 


1$: 


LOFPS 
STFPS 
CMP 
BEQ 
CALL 
ERROR 


RTS 
NOP 


TEST CFC 
R 


C 


R4 


90177776 ,R1 
#177760,R1 


is 
GeDETFPA 
+3 


#200 ,R4 
R4 





a EE 
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SEQ 0193 


;LOAD FPS WITH DATA 

sLOAD Ri WITH CFPS) 

;DID THE INSTRUCTIONS WORK 

;YES GO ON 

_ sDETERMINE FLOATING POINT FAULT. $399 

;FPP ERROR 
;NO GO TO ERROR 

;RETURN 


sCLEAR TRAP FLAG 

sSETUP DATA TO BE LOADED 

sLOAD FPS AND COPY CONDITION CODES TO PS 
sSETUP DATA TO BE LOADED 

sLOAD FPS AND COPY CONDITION CODES TO PS 
sSETUP DATA TO BE LOADED 

sLOAD FPS AND COPY CONDITION CODES TO PS 
sSETUP DATA TO BE LOADED 

sLOAD FPS AND COPY CONDITION CODES TO PS 


;LOAD FPS 

;COPY CONDITION CODES TO PS 

;SAVE PS TO R1 

;MASK OUT UNWANTED BITS 

sWAS CONDITION CODE BITS TRANSFERRED 

sCORRECTLY 

sYES GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
3;FPP ERROR 
3NO GO TO ERROR 

;RETURN 


;CLEAR TRAP FLAG 
;SETUP DATA TO BE LOADED 
;LOAD FPS 


;FPP ERROR 


ON 
sDETERMINE FLOATING POINT FAULT. $$$ 
3;FPP ERROR 
;NO GO TO ERROR 





EE 
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| 
= 


FLOATING POINT TESTS =e cans 
10864 052614 012704 000100 2%: MOV #100 ,R4 ;SETUP DATA TO BE LOADED 
10865 052620 170104 LOFPS R4 ;LOAD FPS 
10866 052622 170002 SETI ;MAKE FL#=0 
10867 052624 170201 STFPS Ri ;STORE FPS 

052626 020127 000000 CMP R1,¢0 :IS FL#0 
10869 052632 001403 BEQ 3$ ;YES GO ON 
10870 052634 004737 140132 CALL BeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
10871 052640 104003 ERROR +3 ;FPP ERROR 
72 ;NO GO TO ERROR 
10873 052642 170012 33: SETL sMAKE FL#1 
10874 052644 170201 STFPS Ri ;STORE FPS 
10875 052646 104 CMP R1,R4 :IS FlLei 
10876 052650 001403 BEQ 4$ ;YES GO ON 
10877 052652 004737 140132 CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$ 
10878 052656 104003 ERROR +3 ;FPP ERROR 
10879 ;NO GO TO ERROR 
10880 052660 4$: 
10881 3 
10884 052660 TSFP4: 
10885 : TEST ILLEGAL OP CODES AND STST 
10886 052660 005037 140054 CLR SeTRPFLG ;CLEAR TRAP FLAG 
10887 052664 012705 170003 MOV #170003,R5 sINIT OP CODE 
10888 052670 013746 000244 MOV 80244, -(SP) sSAVE FP VECTOR 
10889 052674 012737 053030 000244 MOV @ILLOP1, 90244 sSETUP NEW VECTOR 
10890 052702 013746 MOV 804, -CSP) sSAVE TIME OUT VECTOR 
10891 052706 012737 053114 000004 MOV oT , 804 ;SETUP NEW VECTOR 
10892 052714 013746 000010 MOV 8010,-(SP) sSAVE ILLEGAL VECTOR 
10893 052720 012737 053124 000010 MOV @ILLOP2, 8010 sSETUP NEW VECTOR 
10894 052726 00 Di: CLR R3 ; 
10895 052730 170103 LOFPS R3 sCLEAR FPS 
10896 052732 CLR R2 3 
10897 052734 010537 052740 MOV RS ,8402 sSETUP THE ILLEGAL INST 
10898 052740 D2: -WORDB O 5 
10899 052742 170000 D3: cFcc sMEMORY WORDS TO 3E USED WITH 
10900 052744 INC R2 sEXECUTION OF ILLEGAL OP CODE 
10901 052746 Re 3 
10902 052750 170201 STFPS Ri sSAVE FPS 
10903 052752 004737 140132 CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
10904 052756 104003 ERROR +3 3FPP ERROR 
10905 :G0 TO ERROR 
10906 0527 022705 170010 D4: CMP #170010,R5 ;COMPUTE NEXT OP CODE 
10907 052764 001003 BNE 05 $ 
10908 052766 012705 170013 MOV #170013,R5 8 
10909 052772 000755 BR Di 3 
10910 052774 022705 170077 DS: CMP 170077 ,R5 3 
10911 053000 001001 BNE 06 3 
10912 053002 BR 07 3 
10913 053004 D6: INC RS 3 
10914 053006 000747 BR D1 3 
10915 053010 012637 000010 D7: MOV (SP)+, 8010 sRESTORE VECTORS 
10916 053014 012637 000004 MOV (SP)+, 804 ; 
10917 053020 012637 000244 MOV (SP)+, 80244 : 
10918 
10919 ; 
coake 053024 000167 000104 JMP FING 
3 
10922 053030 022716 052742 ILLOP1: CMP #03,(SP) ;DID TRAP OCCUR ON TEST INST 
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10943 053106 
10944 
10945 053110 


10946 
10947 053114 
10948 053120 


10949 
10950 053122 
10951 
10952 053124 
10953 053130 


10954 
10955 053132 
10956 053134 
10957 
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001403 
004737 
104003 


140132 


100000 
140132 


140132 


140054 
000244 


040000 





cern ncnc ccc ncc cc cccnncncccc ccc ccc ence cneeeeeeeerereeeeee eee ssn» 
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000244 


1$%: 


2s: 


3$: 


; 
TIMEOU: 


18: 


2s: 


SEQ 0195 
BEQ i$ ;YES GO ON 
CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ER +3 ;FPP ERROR 
;NO GO TO ERROR 
(SP)+,(SP)+ ;CLEAN UP STACK 
STFPS Ri sSTORE FPS 
CMP #100000,R1 :IS FPS CORRECT 
BEQ 2s sYES GO ON 
CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $93 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
CLR R4 sINT R4 TO A KNOWN STATE 
STST Ra sSTORE FEC AT R4 
»IF THE DESTINATION MODE IS IMPROPERLY 
sDECODED AN ODD ADDRESS TRAP TO 4 
;SHOULD OCCUR 
CMP #2 ,R4 3IS FEC CORRECT 
BNE 3$ sNO GO TO ERROR 
JMP 04 ;YES GO ON 
CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $39 
ERROR +3 3;FPP ERROR 
3G0 TO ERROR 
JMP 04 ;THEN GO ON 
CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 3FPP ERROR 
sERROR BECAUSE OF TRAP TO 4 
RTT ;RETURN 
CALL GeDETFPA sDETERMINE FLOATING POINT FAULT. $93 
ERROR +3 :FPP ERROR 
sERROR BECAUSE OF TRAP TO 10 
RTT sRETURN 
TEST FID CINTERRUPT DISABLE BIT) 
CLR @eTRPFLG sCLEAR TRAP FLAG 
MOV 80244, -( SP) sSAVE FP VECTOR 
MOV #ILL ,80244 sSETUP NEW VECTOR 
MOV ~R3 iSETUP 0 =. TO Ls LOADED 
LOFPS sLOAD FP 
4 = 170020 ; ILLEGAL ie INSTRUCTION 
STFPS i ;SEE IF ERROR WAS RECORDED IN FPS 
CMP #140000. R1 3 
BEQ is sYES GO ON 
CALL SODE TF PA sDETERMINE FLOATING POINT FAULT. 898 
ERROR +3 3sFPP ERROR 
sO GO TO ERROR 
STST as 3SEE IF FEC=2 
CMP @2 ,R4 : 
BEG 2s sYES GO ON e 
CALL GODE TFPA sDETERMINE FLOATING POINT FAULT. 888 
ERROR +3 3FPP ERROR 
sNO GO TO ERROR 
MOV (SP)+, 80244 sRESTORE VECTOR 
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11029 
11030 053376 
11031 053400 
£1032 


11036 053410 
11037 053412 
11038 053414 
11039 053416 
11040 053420 
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000167 


004737 
104003 


012701 
012703 
022421 
001403 
004737 
104003 


077306 
012637 
000167 
177777 
000000 
052525 
125252 
177777 


000010 
140132 


140054 


000004 
053430 
053420 


053420 
140132 


053410 
000004 


140132 
003162 


003162 
140132 


053410 
000004 
140132 


000004 


000030 





en ee er SS Ses > a 





ae 
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000004 


i$: 
23: 


3$: 


4$: 
5$: 


3 
TS6DA: 


TS6DAT: 


JMP 


CALL 
cRROR 


RTT 


CLR 


JMP 


- WORD 
. WORD 
. WORD 
. WORD 
. WORD 





TEST LOD, STO FSRC AND FOST MODE 
BOTRPFLG 


SEQ 0196 


FINS 
BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;FID ERROR 
;RETURN 


1 
s;CLEAR TRAP FLAG 


R4 ;SETUP TO LOAD DATA 
R4 ;CLEAR FPS 
;SET FD TO 1 

a04, -(SP) sSAVE TIMEOUT VECTOR 
@TSF6, 804 ;SETUP NEW VECTOR 
€TS6DAT,R4 ;SETUP POINTER TO DATA 
fR4),ACO ; TEST INSTRUCTION 
R4, @TSEDAT 31S R4 CORREC 
i$ ;YES GO ON 
BEDE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP FRROR 

sNO Gu TO ERROR 
STS6DA,R1i :SETUP POINTER TO DATA 
04 RS ;INIT COUNTER 
C(R4)+,CR1I)+ ;WAS SOURCE DATA ALTERED 
3$ ;NO GO 
BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;YES GO TO ERROR 
R323 sARE WE DONE 
#TSTLOC,R4 ;SETUP POINTER FOR DATA 
ACO, (R4) ; TEST INSTRUCTION 
R4,@TSTLOC :IS R4&4 CORRECT 
4$ , :YES GO ON 
SeODETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;NO GO TO ERROR 
#TS6DA,.R1 ;SETUP POINTER TO DATA 
#4 ,R3 ;INIT COUNTER 
C(R4)+,CR1L)+ ;IS DESTINATION DATA CORRECT 
6% ;YES GO ON 
BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

:NO GO TO ERROR 
R3,5$ ;ARE WE DONE 
(SP)+, 804 sRESTORE VECTOR 
FING 
177777 

00 

052525 
125252 
177777 
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11041 053422 
11042 053424 
11043 053426 


053510 


096 
11097 053624 
11098 053630 
11099 
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000000 
052525 


125252 


004737 
104003 


000006 


000167 


012703 
022421 
001401 
104003 


077304 
000207 


004737 
104003 


140132 


140054 
000200 


000004 
053624 
053634 


053644 


003162 
000072 
003162 
053644 


000054 
053634 


003162 
000026 
053654 
003162 
000010 
000004 
000056 


000004 


140132 
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000004 


; 
CHECK7: 
CHEK7: 


CHK7: 


é 
TSF7: 


CLR 


JMP 


MOV 
CMP 
Q 


BE 
ERROR 


SOB 
RTS 


CALL 
ERROR 





TEST LOD, LOF FSRC MODE 0 
PFLG 


SEQ 0197 

000000 

052525 

125252 

SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 

+3 ;FPP ERROR 

3000 ADDRESS TRAP 
;RETURN 


@eTR s;CLEAR TRAP FLAG 


#200 ,R4 ;SETUP TO LOAD FPS 
R4 ;LOAD FPS, FD=1 
804, -(SP) sSAVE TIMEOUT VECTOR 
@TSF7, 804 ;SETUP NEW VECTOR 
@TS7DA1,R4 ;SETUP POINTER TO DATA 
CR4),ACO ;CLEAR ACO 
@TS7DA2,R1 sSETUP POINTER TO DATA 
(R1),AC1 sLOAD ACi WITH DATA 
ACi1,ACO ; TEST INSTRUCTION 
@TSTLOC,R4 ; 
AC1,(R4) ;CHECK IF AC1 HAS BEEN ALTERED 
PC ,CHECK7 ; 
@TSTLOC,R4 ;SETUP POINTERS FOR DATA 
#TS7DA2,R1 ; 
ACO, (R4) ;CHECK IF ACO RECEIVED CORRECT DATA 
PC »CHECK7 ° 
@TS7DA1,R1 ;SETUP POINTER TO DATA 
(R1),AC1 sCLEAR AC1 

;SET FD=0 
AC1,ACO ; TEST INSTRUCTION 

;SET FD=1 
#TSTLOC,R4 ;SETUP POINTER TO DATA 
ACi,(R4) ;CHECK IF AC1 HAS BEEN ALTERED 
PC »CHECK7 ° 
@TS7DA4,R4 ;SETUP POINTERS FOR DATA 
@TSTLOC,R1 3 
ae bomen’ ;CHECK IF ACO HAS CORRECT DATA 

’ ‘ 
(SP)+, 964 sRESTORE VECTOR 
FIN? 
04 RS ;INIT COUNTER 
(R4)+,(R1)+ :IS DATA OK 
CHK7 ;YES GO ON 
+3 ;FPP ERROR 
;NO GO TO ERROR 

R3 ,CHEK7 ;ARE WE DONE 
PC ;YES RETURN 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 


;0DD ADDRESS TRAP 
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11100 053632 
11101 

11102 053634 
11103 053636 
11104 053640 


16 
11128 053722 
11129 053724 
11130 053726 
11131 053732 
11132 053734 
11133 053740 
11134 053744 
11135 053750 
11136 053752 
11137 053756 
11138 053762 
11139 053764 
11140 053766 
11141 053770 
11142 053772 
11143 053776 


11147 054014 
11148 054016 
ree 054022 
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000006 


000167 


012703 
022421 
001403 
004737 
104003 


003162 
000026 
054104 
003162 
000010 
000004 
000062 


000004 


140132 
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000004 


- 
TS7DAL: . 
TS7DA2: . 


TS7DA4: . 


FIN?: 


: 
TSFP10: 
i 


RTT 
WORD 0O 
-WORD 0O 
-WORD 0 
WORD 9 
WORD 37641 
-WORD 65121 
-WORD 37373 
WORD 22265 
WORD 
. WORD 
«WORD 37373 
-WORD 22265 
TEST STD, STF FDST MODE O 
CLR TRPF 
V #200 .R4 
LDOFPS R4 
MOV 804, -CSP) 
MOV @TSF10,304 
MOV @TS10D1,R4 
LOD (R4),ACO 
MOV #TS$10D02,R1 
LOD CR1),AC1 
STO AC1,ACO 
MOV #TSTLOC,R4 
STD AC1,CR4) 
JSR PC ,CHEC10 
MOV @TSTLOC,R4 
MOV #TS10D02,Ri 
STO ACO, (R4) 
JSR PC .CHEC1O 
MOV ®TS10D1, R1 
LOD (Ri), ACL 
SETF 
STF ACi,ACO 
SET 
MOV #TSTLOC,R4 
STD AC1i, (R4) 
JSR PC ,CHEC10 
MOV #TS1004,R4 
MOV #TSTLOC,R1 
STD ACO, CR1) 
JSR PC ,.CHEC10O 
MOV (SP)+, 904 
JMP FIN1O 
: MOV $4 ,R3 
CMP CR4)+,CR1)+ 
BEQ CHK10 
CALL BeDETFPA 
ERROR +3 





;FPP ERROR 


SEQ 0198 


sRETURN 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;LOAD FPS ’ FD=1 

sSAVE TIMEOUT VECTOR 
;SETUP NEW VECTOR 
sSETUP POINTER TO DATA 
;CLEAR ACO 

;SETUP POINTER TO DATA 
sLOAD AC1 WITH DATA 

; TEST INSTRUCTION 


$ 
;CHECK IF AC1 HAS BEEN ALTERED 

: 

;SETUP POINTERS FOR DATA 

: 

;CHECK IF ACO RECEIVED CORRECT DATA 
s 

;SETUP POINTER TO DATA 

;CLEAR ACI 

;SET FD=0 

; TEST INSTRUCTION 

;SET FD=1 


; SETUP POINTER TO DATA 
sCHECK IF AC1 HAS BEEN ALTERED 


; 
s;SETUP POINTERS FOR DATA 

: 
s;CHECK IF ACO HAS CORRECT DATA 
i 
sRESTORE VECTOR 


sINIT COUNTER 

:IS DATA OK 

sYES GO ON 

;DETERMINE FLOATING POINT FAULT. $$$ 








COKDAEO KOJ11-B CLUSTER DIAG. MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-180 
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11159 ;NO GO TO ERROR 
11160 054050 077306 CHKi0O: SOB R3,CH1O sARE WE DONE 
aoaae 054052 000207 RTS PC sYES RETURN 
3 
11163 054054 004737 140132 TSF10: CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11164 054060 104003 ERROR +3 ;FPP ERROR 
11165 ;0D00 ADDRESS TRAP 
11166 054062 000006 RTT ; 
11167 3 
11168 054064 000000 TSi0Di: .WORD 0 
11169 054066 000000 -WORD 0 
11170 054070 000000 WORD O 
11171 054072 000000 -WORD 0 
11172 054074 177777 TSi0D2: .WORD 177777 
11173 054076 111236 WORD 111236 
11174 054100 100045 WORD 100045 
11175 054102 003651 -WORD 3651 
11176 054104 000000 TS10D4: .WORD 0 
11177 054106 000000 -WORD 0O 
11178 054110 100045 -WORD 100045 
11179 054112 003651 -WORD 3651 
11180 054114 FINLO: 
11181 ; 
11184 054114 TSFPil: 
11185 : TEST FOST SINGLE OPERAND MODE 0 
11186 054114 005037 140054 CLR SeTRPFLG ;CLEAR TRAP FLAG 
11187 054120 012704 000200 MOV #200 ,R4 :SETUP TO LOAD FPS 
11188 054124 170104 LOFPS R4 ;SET FD=1 
11189 054126 012704 054210 MOV $7S11D01,R4 ;SETUP POINTER TO DATA 
11190 054132 172414 i.DD (R4),ACO ;LOAD ALL ONES TO ACO 
11191 054134 170400 CLROD ACO ; TEST INSTRUCTION 
11192 054136 170203 STFPS R3 ;GET FPS 
11193 054140 012704 003162 MOV STSTLOC,R4 s 
11194 054144 174014 STD ACO, (R4) ;CHECK ACO FOR ALL ZEROES 
11195 054146 012701 000004 MOV $4 ,R1 ;INIT COUNTER 
11196 054152 022427 000000 i$: CMP (R4)+, 80 : 
11197 054156 001403 BEG 2$ ;0K GO ON 
11198 054160 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11199 054164 104003 ERROR +3 ;FPP ERROR 
11200 ;NO GO TO ERROR 
11201 054166 077107 2$: SOB R1i,1$ ;ARE WE DONE 
11202 054170 020327 000204 CMP R3 , 9204 ;CHECK FPS 
11203 054174 001403 BEQ 3$ :0K GO ON 
11204 054176 004737 140132 CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11205 054202 104003 ERROR +3 ;FPP ERROR 
11206 :NO GO TO ERROR 
11207 054204 3$ 
11208 5 
isa 054204 000167 000010 JMP FINIL 
i ; 
41211 054210 177777 TSi1D1: .WORD 177777 
11212 054212 177777 -WORD 177777 
11213 054214 177777 -WORD 177777 
11214 054216 177777 -WORD 177777 
11215 054220 FINi1: 
11216 ; 
11219 054220 TSFPi2: 





L 





| 
2 


054420 


11277 054424 
11278 054430 
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TESTS 


012701 
022227 
001403 
004737 
104003 


077107 
020327 
001403 
004737 
104003 


012637 


000167 


004737 
104003 


DIAG. 


140054 
040200 


140200 
140132 


000002 
140132 


000004 
003162 
177777 


003162 


003162 
140132 
000004 
000000 
140132 


000204 
140132 
000004 


000010 
140132 
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000004 


1$: 


2$: 


TSFP13: 
; 


1$: 
2s: 


3$: 


H 
TSF13: 


SEQ 0200 


TEST FOST SOP MODE 0 WITH ILLEGAL AC7 
CLR BeTRPFLG 


MOV #40200 ,R3 
LOFPS R3 

CLRO AC7 

STFPS 4 

STST RS 

CMP #140200,R4 
BEQ 1$ 

CALL SeDETFPA 
ERROR +3 

CMP #2,R5 
BEQ 2$ 

CALL BEDE TFPA 
ERROR +3 


TEST FOST SOP MODE 1 
864 ) 


MOV e” 

MOV STSF13,304 
CLR Sé¢TRPFLG 
MOV $200 ,R2 
LOFPS Re 

MOV 64 ,R5 

MOV #TSTLOC,R4 
MOV 177777, CR4)+ 
S08 RS ,.100$ 
MOV #TSTLOC,R2 
CLRD (R2) 

STFPS R3 

CMP R2,@TSTLOC 
BEQ 1$ 

CALL BODE TFPA 
ERROR +3 

MOV $4 ,R1 

CMP (R2)+,@0 
BEQ 3$ 

CALL SeDETFPA 
ERROR +3 

soB Ri.2$ 

CMP R3, #204 
BEQ 4$ 

CALL BEDE TFPA 
ERROR +3 

MOV (SP)+, 804 
JMP FINi3 
CALL BEDE TFPA 
ERROR +3 





sCLEAR TRAP FLAG 
s;SETUP TO LOAD FPS 
;SET FID=1, AND FD=1 
5 a ieee 


;IS FPS CORRECT 

;YES GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 

;IS FEC CORRECT 

;YES G 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 


sSAVE TIMEOUT VECTOR 
;SETUP NEW VECTOR 
;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=1 
:INIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
sMOVE ALL ONES TO TEST LOCATION 
sARE WE DONE 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 
sWAS R2 ALTERED 
:NO GO ON 


;DETERMINE FLOATING POINT FAULT. $$$ 
:FPP ERROR 
:YES GO TO ERROR 

;INIT COUNTER 

;CHECK LOCATION FOR 0 

70K GO ON 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO EPROR 


ON 
sDETERMINE FLOATING POINT FAULT. $$$ 
sFPP ERROR 
;NO GO TO ERROR 
sRESTORE VECTOR 


;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
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SEQ 0201 


11279 ;000 ADDRESS TRAP 
11280 054432 000006 RTT ;RETURN 
; 
11282 054434 FINI3: 
$ 
11286 054434 TSFP14: 
11287 : TEST oe * a MODE 2 
11288 054434 013746 0090004 MOV -( SP) sSAVYE TIMEOUT VECTOR 
11289 054440 012737 054574 000004 MOV oTsria, 864 ;SETUP NEW VECTOR 
11290 054446 005037 140054 CLR SeTRPFLG ;CLEAR TRAP FLAG 
11291 054452 012702 000200 MOV $200 ,R2 ;SETUP TO LOAD FPS 
11292 054456 170102 LOFPS Re sSET FD-1 
3 054460 012705 000004 MOV 04,R5 sINIT COUNTER 
11294 054464 012704 003162 MOV @TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
11295 054470 012724 177777 100$: MOV 177777, CR4)+ sMOVE ALL ONES TO TEST LOCATION 
11296 054474 077503 SOB R5,100$ sARE WE DONE 
11297 054476 012702 003162 MOV #TSTLOC,R2 sSETUP POINTER TO DATA 
11298 054502 170422 CLRO CR2)-+ ; TEST INSTRUCTI ION 
11299 054504 170203 STFPS R3 ;GET FPS 
11300 054506 020227 003172 CMP R2,@TSTLOC+10 ;IS R2 CORRECT 
11301 054512 001403 BEQ sYES GO ON 
11302 054514 004737 140132 CALL BODE TFPA sDETERMINE FLOATING POI’. FAULT. $$$ 
11303 054520 104003 ER +3 ;FPP ERROR 
11304 ;NO GO TO ERROR 
11305 054522 012702 003162 1$: MOV STSTLOC,R2 sSETUP POINTER TO DATA 
11306 054526 012701 000004 MOV 64 ,R1 sINIT 
11307 054532 022227 000000 2$: CMP CR2)+, 60 ;CHECK LOCATION FOR 0 
11308 054536 001403 BEQ 3$ ;YES GO 
11309 054540 004737 140132 CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11310 054544 104003 ERROR +3 ;FPP ERROR 
11311 :NO GO TO ERROR 
11312 054546 077107 3$: SOB Ri,2$ sARE WE DONE 
11313 054550 020327 000204 CMP RS, 0204 sCHECK FPS 
11314 054554 001403 BEQ ;0K GO ON 
11315 054556 004737 140132 CALL See TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11316 054562 104003 ERROR +3 ;FPP ERROR 
11317 7NO GO TO ERROR 
stake 054564 012637 000004 4$: MOV (SP)+, 804 sRESTORE VECTOR 
1 
11320 8 
11321 054570 000167 000010 JMP FINI4 
11323 054574 004737 140132 TSFi4: CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11324 104003 ERROR +3 ;FPF ERROR 
11325 ;000 ADDRESS TRAP 
Ts 000006 RTT ;RETURN 
11 
11328 054604 000240 FINi4: NOP 
£1329 F 
11332 
——— t—“‘“‘“‘“‘iésésCsC*C*C*C*CC Gi ee SET OR SERS AES ccoeeooee 
11334 STEST FDST SOP MODE 3 
11335 5 
11336 
ro 054606 TSFP1S: 
; 
11339 054606 013746 000004 MOV 864, -C( SP) ;SAVE TIMEOUT VECTOR 


| 
= 
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SEQ 020 
FLOATING POINT TESTS . 
11340 054612 012737 055012 000004 MOV $TSF15,004 ;SETUP NEW VECTOR 
11341 054620 005037 140054 CLR SeTRPFLG ;CLEAR TRAP FLAG 
11342 054624 012702 000200 MOV #200 ,R2 sSETUP TO LOAD FPS 
11343 054630 170102 LOFPS Re2 ;SET FDO=1 
11344 054632 012705 000011 MOV #9.,R5 sINIT COUNTER 
11345 054636 012704 003162 MOV @TSTLOC,R4 sSETUP POINTER TO TEST LOCATION 
11346 054642 012724 177777 100$: MOV 0177777, (R4)+ ;INIT TEST LOCATION 
11347 054646 077503 $oB RS5S,100$ ;ARE WE DONE 
11348 054650 012737 003174 003162 MOV @TSTLOC+12,8@TSTLOC sINIT TEST LOCATION 
11349 054656 012702 003162 MOV #TSTLOC,R2 sSETUP POINTER TO DATA 
054662 170432 CLRD BCR2)+ ; TEST INSTRUCTION 
11351 054664 170203 STFPS R33 ;GET FPS 
11352 054666 020227 003164 CMP R2,@TSTLOC +2 31S R2 CORRECT 
11353 054672 001403 BEQ i$ ;YES GO ON 
11354 054674 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $33 
11355 054700 104003 ERROR +3 ;FPP ERROR 
11356 ;NO GO TO ERROR 
11357 054702 012702 003162 i$: MOV @TSTLOC,R2 ;SETUP POINTER TO DATA 
11358 054706 022227 003174 CMP CR2)+, #TSTLOC+12 ;IS DATA CORRECT 
11359 054712 001403 BEQ 2$ ;YES GO ON 
11360 054714 004737 140132 CALL SeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
11361 054720 104003 ERROR +3 ;FPP ERROR 
11362 :NO GO TO ERROR 
11363 054722 012701 000004 2s: MOV 64 ,R1 ;INIT COUNTER 
11364 054726 022227 177777 3$: CMP (R2)+, 0177777 sIS LOCATION ALL ONES 
11365 054732 001403 BEQ 4s ;YES GO ON 
11366 054734 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11367 054740 104003 ERROR +3 ;FPP ERROR 
11368 ;NO GO TO ERROR 
11369 
11370 054742 077107 4$: SOB R1,3$% ;ARE WE DONE 
11371 054744 012701 000004 MOV Ri ;INIT COUNTER 
11372 054750 022227 000000 S$: CMP CR2)+, 80 ;IS LOCATION 0 
11373 054754 001403 BEQ 6$ :YES GO ON 
11374 054756 004737 140132 SeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
11375 054762 104003 ERROR +3 ;FPP ERROR 
11376 ;NO GO TO ERROR 
11377 054764 077107 6$: SoB R1,5$ ;ARE WE 
11378 054766 020327 000204 CMP R3 , #204 ;CHECK FPS 
11379 054772 001403 BEQ 7$ ;0K GO ON 
11380 054774 004737 140132 CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11381 055000 104003 ERROR +3 :FPP ERROR 
11 ;NO GO TO ERROR 
11383 055002 012637 000004 7$: MOV (SP)+, 804 sRESTORE VECTOR 
ae 055006 000167 000010 JMP FINiS 
1 3 
11386 055012 004737 140132 TSF1i5: CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11387 055016 104003 ERROR +3 ;FPP ERROR 
11388 ;000 ADDRESS TRAP 
11389 055020 000006 RTT ;RETURN 
11390 ; 
11391 055022 000240 FINiS: NOP 
11392 ; 
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11414 055076 
11415 055102 
11416 055104 
ron td 055110 


1418 
11419 055112 


11430 055152 
11431 

11432 055154 
11433 055156 
11434 055162 
11435 055164 
11436 055170 
11437 

11438 055172 
11439 055176 
11440 

11441 055202 
11442 055206 
11443 


11454 
11455 055214 


11456 


11457 055214 


020327 


013746 
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SEQ 0203 
; 
TSFP16: 
: 
000004 MOV @04,-(SP) ;SAVE TIMEOUT VECTOR 
055202 000004 MOV @TSF16,9804 ;SETUP NEW VECTOR 
140054 CLR BeTRPFLG ;CLEAR TRAP FLAG 
6v0200 MOV $200 ,R2 ;SETUP TO LOAD FPS 
LOFPS Re2 ;SET FD=1 
000010 V #8.,R5 ;INIT COUNTER 
003162 MOV #TSTLOC,R4 sSETUP POINTER TO TEST LOCATION 
177777 100$: MOV 177777, CR4)+ ;INIT TEST LOCATION 
S08 RS ,100$ ;ARE WE DONE 
003172 MOV #TSTLOC+10,R2 ;SETUP POINTER TO DATA 
CLRD -CR2) ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
003162 CMP R2,@TSTLOC ;IS R2 CORRECT 
BEQ i$ ;YES GO ON 
140132 CF L QeDETFPA ;DETERMINE FLOATING POINT FAULT. $$% 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
000004 i$: MOV 04,R1 ;INIT COUNTER 
000000 2s: CMP CR2)+, 40 :IS LOCATION 0 
BEQ 3$ ;YES GO ON 
140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
3$: SOB R1.2$ ;ARE WE DONE 
000004 MOV $4 ,R1 sINIT COUNTER 
177777 4$: CMP (R2)+, 0177777 3IS LOCATION UNCHANGED 
BEQ 5$ ;YES GO ON 
140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
7NO GO TO ERROR 
5$: SOB R1,4$ sARE WE DONE 
000204 CMP R3, #204 ;CHECK FPS 
BEQ 6$ ;0K GO ON 
140132 CALL @eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:NO GO TO ERROR 
000004 6$: MOV (SP)+, 004 sRESTORE VECTOR 
000010 JMP FINI6 
140132 TSFi6: CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;00D ADDRESS TRAP 
RTT ;RETURN 
FINI6: NOP 
sTEST FDST SOP MODE 5 
ISFP17: 
000004 MOV 864, -(SP) ;SAVE TIMEOUT VECTOR 
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11515 
11516 055426 


= 


TESTS 
012737 


012701 
022227 
001403 
004737 
104003 


077107 
012701 


077107 
020327 
001403 
004737 
104003 


012637 
000167 


004737 
104003 


000006 
000240 


055414 
140054 
000200 
000011 
003162 
177777 
003174 
003164 
003162 


140132 


003174 
140132 


000004 
177777 
140132 


000004 


000004 
000010 
140132 
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000004 


003162 


1$: 


2$: 
3$: 


4$: 
5$: 


7$: 


‘ 
TSF1i7: 


STEST FDST SOP MODE 6 


i 
TSFP20: 





MOV $TSF17,9804 s;SETUP NEW VECTOR 
CLR @eTRPFLG s;CLEAR TRAP FLAG 
MOV 200 ,R2 ;SETUP TO LOAD FPS 
LOFPS R2 sSET FD=1 
MOV #9.,R5 sINIT COUNTER 
MOV #TSTLOC,R4 s;SETUP POINTER TO TEST LOCATION 
MOV #177777,CR4)+ ;INIT TEST LOCATION 
SOB 3,100$ ;ARE WE DONE 
MOV @TSTLOC+12, 9@TSTLOC sINIT TEST LOCATION 
MOV @TSTLOC+2,R2 ;SETUP POINTER TO DATA 
CLRD 8-(R2) ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
MP R2,@TSTLOC sIS R2 CORRECT 
BEQ 1$ sYES GO ON 
CALL SeDE TFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
sNO GO TO ERROR 
CMP (R2)+, @TSTLOC+12 :IS DATA CORRECT 
BEQ 2$ ;YES GO ON 
CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 sFPP ERROR 
:NO GO TO ERROR 
MOV #4,R1 sINIT COUNTER 
CMP (R2)+,0177777 sIS LOCATION ALL ONES 
BEQ 4s ;YES GO ON 
CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. 
ER +3 sFPP ERROR 
sNO GO TO ERROR 
SOB R1,3$ sARE WE DONE 
MOV #4,R1 sINIT COUNTER 
CMP CR2)+, 80 :IS LOCATION 0 
BEQ 6$ ;YES GO ON 
CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
SOB R1,5$ sARE WE 
CMP R3, #204 sCHECK FPS 
BEQ 7$ ;0K GO ON 
CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;sFPP ERROR 
:NO GO TO ERROR 
MOV (SP)+, 804 sRESTORE VECTOR 
JMP FINI7 
CALL GODETFPA sDETERMINE FLOATING POINT FAULT. 
ERROR +3 sFPP ERROR 
;000 ADDRESS TRAP 
RTT sRETURN 
NOP 


$$$ 


$$$ 


$$$ 


SEQ 0204 
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SEQ 0205 
FLOATING POINT TESTS 

11517 : 

11518 055426 005037 140054 CLR BeTRPFLG ;CLEAR TRAP FLAG 

11519 055432 013746 MOV 804, -CSP) ;SAVE TIMEOUT VECTOR 

11520 055436 012737 055612 000004 MOV STSF 20,804 ;SETUP NEW VECTOR 

11521 055444 012702 000200 MOV $200 ,R2 ;SETUP TO LOAD FPS 

11522 055450 170102 LOFPS R2 ;SET FD=1 

11523 055452 012705 000010 MOV #8.,R5 ;INIT COUNTER 

11524 055456 012704 003162 MOV #TSTLOC,R4 ;SETUP POINTER TO TEST LOCATION 
11525 055462 012724 177777 100$: MOV #177777, (R4)>+ ;INIT TEST LOCATION 

11526 055466 077503 SOB RS, $ ;ARE WE DONE 

11527 055470 012702 003163 MOV #TSTLOC+1,R2 ;SETUP POINTER TO DATA 

11528 055474 170462 000007 CLRD 7CR2) ; TEST INSTRUCTION 

11529 055500 170203 STFPS R3 ;GET FPS 

11530 055502 020227 003163 CMP R2,.@TSTLOC+1 :IS R2 CORRECT 

11531 055506 001403 BEQ i$ ;YES GO ON 

11532 055510 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11533 055514 104003 ERROR +3 ;FPP ERROR 

11534 ;NO GO TD ERROR 

11535 055516 012702 003162 i$: MOV #TSTLOC,R2 ;SETUP POINTER TO DATA 
11536 055522 012701 000004 MOV 04,R1 ;INIT COUNTER 

11537 055526 022227 177777 2$: CMP (R2)+,¢177777 :IS DATA CORRECT 

11538 055532 001403 BEQ 3$ ;YES GO ON 
11539 055534 004737 140132 CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11540 055540 104003 ERROR +3 ;FPP ERROR 
11541 ;NO GO TO ERROR 
11542 055542 077107 3$: SOB R1,2$ sARE WE DONE 
11543 055544 012701 000004 MOV 04 ,R1 sINIT COUNTER 

11544 055550 022227 000000 4$: CMP CR2)+,@0 :IS DATA CORRECT 

11545 055554 001403 BEQ 5$ ;YES GO ON 
11546 055556 004737 140132 CALL QeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11547 055562 104003 ERROR +3 ;FPP ERROR 

:NO GO TO ERROR 

11549 055564 077107 5$: SOB R1,4$ ;ARE WE DONE 
11550 055566 020327 000204 CMP R3 ,#204 :IS FPS CORRECT 
11551 055572 001403 BEQ 6$ ;YES GO ON 
11552 055574 004737 140132 CALL SeDETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
11553 055600 104003 ERROR +3 3FPP ERROR 
11554 ;NO GO TO ERROR 
11555 055602 012637 000004 6$: MOV (SP)+, 804 ;sRESTORE VECTOR 
sare 055606 000167 000010 JMP 0 

1 ; 

11558 055612 004737 140132 TSF20: CALL SeDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11559 055616 104003 ERROR +3 ;FPP ERROR 

11560 ;0DD ADDRESS TRAP 

osiee 05562C 000006 RTT ;RETURN 

1 

11563 055622 000240 FIN20: NOP 

11564 ; 

11567 3 

11568 pt te ee ee een en ne nn nn eee- 

11569 ;sTEST FOST SOP MODE 7 

11570 : 

11571 ; 

rt 055624 TSFP21: 

i ° 

11574 055624 005037 140054 CLR S¢TRPFLG ;CLEAR TRAP FLAG 

11575 055630 013746 000004 MOV a04,-(SP) ;SAVE TIMEOUT VECTOR 
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11576 055634 
11577 055642 
11578 055646 
11579 055650 


11618 056026 


012737 


077107 
022227 
001403 
004737 
104003 


012701 


DIAG. 

056032 
000200 
000019 
003162 


177777 


003162 
003165 
000005 


000003 
177777 
140132 


000204 
140132 


000004 
000010 
140132 


PS tA rion ee ee 
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000004 


003172 


MOV @TSF21 ,804 
MOV #200 ,R2 
LOFPS R2 

MOV #8.,R5 

MOV @TSTLOC,R4 


SEQ 0206 


sSETUP NEW VECTOR 
sSETUP TO LOAD FPS 
;SET FD=1 
sINIT COUNTER 
;SETUP POINTER TO TEST LOCATION 


100$: MOV #177777, (CR4)+ ;INIT TEST LOCATION 
SOB RS .i00 ;ARE WE DONE 
MOV @TSTLOC, @@TSTLOC+10 ;INIT TEST LOCATION 
MOV #TSTLOC+3,R2 ;SETUP POINTER TO DATA 
CLRD as(R2) ; TEST INSTRUCTION 
STFPS R3 ;GET FPS 
CMP R2,@TSTLOC+3 :IS R2 CORRECT 
BEQ i$ ;YES GO ON 
CALL BeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
i$: MOV #TSTLOC,R2 ;SETUP POINTER TO DATA 
MOV #4 ,R1 ;INIT COUNTER 
2$: CMP CR2)+, 40 ;IS DATA CORRECT 
BEQ 3$ ;YES GO ON 
CALL OSDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
3$: S08 R1i,2$ sARE WE DONE 
CMP (R2)+, @TSTLOC :IS DATA CORRECT 
BEQ 4$ :YES GO ON 
CALL SeDETFPA s;DETERMINE FLOATING POINT FAULF. $$$ 
ERROR +3 ;FPP ERROR 
3NO GO TO ERROR 
4$: MOV @3,R1 ;INIT COUNTER 
5$: CMP (R2)+, 0177777 :IS DATA CORRECT 
BEQ 6$ :YES GO ON 
CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
6$: $08 R1,5$ ;ARE WE 
CMP RS, 0204 :CHECK FPS 
BEQ ;0K GO ON 
CALL SODETFPA s;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 :FPP ERROR 
:NO GO TO ERROR 
7$: MOV CSP )+,. 304 sRESTORE VECTOR 
JMP FIN21 
3 
TSF2i: CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;000 ADDRESS TRAP 
RTT sRETURN 
FIN21: NOP 


Sr TT Te Te ee ee et ee esse ee ee ses es 


sTEST FDOST SOP MODE 3 GR7 


TSFP22: 
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11653 056144 
11654 
11655 056146 


11669 056166 
11661 
11662 056170 


11672 056222 
11673 


11693 056260 


| 
= 


005037 


012701 


077107 
020327 
001403 
004737 
104003 


012637 
000167 


604737 
104003 


000006 
000240 


005037 
013746 
012737 
012702 
170102 
012705 
012704 


DIAG. 


140054 
000004 
056216 
000200 
000010 
003162 
177777 


003172 
003162 


003162 
000004 
000000 
140132 


000004 
177777 
140132 


000204 
140132 
000004 
000010 
140132 


140054 
000004 


056352 
000200 


000004 
003162 
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000004 


003162 


000004 


100$: 


i$: 


2$: 
3$: 


4$: 


BeTRPFLG 


#8. .R5 
@TSTLOC,R4 
0177777, CR4)+ 


RS ,100$ 
@TSTLOC+10,8@TSTLOC 


8é¢TSTLOC 
R3 
#TSTLOC,R2 
04,R1 
CR2)+, #0 
2$ 
SeDETFPA 
+3 


R1,1$ 
64,R1 
SODETFFA 
+3 

R1,3% 

R3 ,#204 
5$ 

BODE TFPA 
+3 
(SP)+, 304 
FIN22 


BODE TFPA 
+3 


SEQ 0207 


;CLEAR TRAP FLAG 


OR 
;SETUP TO LOAD FPS 
;SET FDe#1 
- g INIT COUNTER 
;SETUP POINTER TO TEST LOCATTOw 
;INIT TEST LOCATION 
WE DONE 


3A 

sINIT TEST LOCATION 

; TEST INSTRUCTION 
;GET FPS 

sSETUP POINTER TO DATA 
;INIT COUNTER 
:IS DATA CORRECT 


;YES GO ON 
_  sgDETERMINE FLOATING POINT FAULT. $83 
;FPP ERROR 
;NO GO TO ERROR 

;ARE WE DONE 

;INIT COUNTER 

:IS DATA CORRECT 

;YES GO ON 

sDETERMINE FLOATING POINT FAULT. $33 
3FPP ERROR 


; ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 

:NO GO TO ERROR 
sRESTORE VECTOR 


sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
:000 ADDRESS TRAP 

;RETURN 


TEST FOST SOP 


5 
TSFP23: 
: 


4, 
#TSTLOC,R4 


;CLEAR TRAP FLAG 

sSAVE TIMEOUT VECTOR 

sSETUP NEW VECTOR 

sSETUP TO LOAD FPS 

;SET FD=1 

s;INIT CCUNTER 

sSETUP POINTER TO TEST LOCATION 
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11694 056264 
11695 056270 


11701 056314 
11702 056316 
11703 056322 
11704 

11705 056324 


11712 056346 


11748 056466 
11749 056470 
11750 056474 
11751 056476 
11752 056502 


TESTS 


177777 
124664 


000004 
003162 
900000 
140132 


000204 
140132 
000004 
000010 
140132 


003162 
177777 


003162 
124532 


003162 
000004 
000000 


140132 


003162 
140132 
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000004 


003172 


100$: 


1$: 


2$: 


STEST FOST SOP 


F 
TSFP24: 


100$: 


1$: 


2$: 


aa 


0177777,C(R4)->+ sINIT TEST LOCATION 
,100$ ;ARE WE DONE 

TSTLOC ; TEST INSTRUCTION 
R3 ;GET FPS 
04 Ri sINIT COUNTER 
@TSTLOC,R2 ;SETUP POINTER TO DATA 
CR2)+, 00 :I1S DATA CORRECT 
2$ ;YES GO ON 
@eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
3 ;FPP ERROR 

:NO GO TO ERROR 
Ri,1$ ;ARE WE DONE 
R3, #204 sCHECK FPS 
3$ ;0K GO ON 
BeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
23 ;FPP ERROR 

;NO GO TO ERROR 
(SP)+, 904 sRESTORE VECTOR 
FIN23 
SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;00D ADDRESS TRAP 

; 

MODE 7 GR7 
@¢TRPFLG ;CLEAR TRAP FLAG 
a04,-C(SP) ;SAVE TIMEOUT VECTOR 
€TSF24 ,ae4 ;SETUP NEW VECTOR 
#200 ,R2 ;SETUP TO LOAD FPS 
R2 ;SET FD=1 
#8.,R5 ;INIT COUNTER 
#TSTLOC,R4 ;SETUP TEST LOCATION POINTER 
#177777, (R4)>+ :INIT TEST LOCATION 
R5,100$ ;ARE WE DONE 
@TSTLOC, 9#TSTLOC+10 :INIT TEST LOCATION 
@TSTLOC+10 ; TEST INSTRUCTION 
R3 ;GET FPS 
#TSTLOC,R2 ;SETUP POINTER TO DATA 
$4 ,R1 ;INIT COUNTER 
(R2)+, 80 31S DATA CORRECT 
2$ :YES GO ON 
@eDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

sNO GO TO ERROR 
R1,1$ ;ARE WE DONE 
CR2)+,@TSTLOC 31S DATA CORRECT 
3$ ;YES GO ON 
QeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


SEQ 0208 
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11753 


11768 
11769 056552 


11783 056564 
11784 

11785 056564 
11786 056570 


11787 056572 
11788 056574 


11792 056612 


11795 056622 
11796 056626 
11797 056630 
11798 056634 


11811 056676 


012701 


077107 
012701 
022227 
001403 
004737 


000003 
177777 


140132 


000204 
140132 
000004 
000010 
140132 


140054 


000004 
003162 
177777 


003162 


003166 
140132 
003162 
000002 
000000 


140132 


000002 
177777 


140132 


3$: 
4$: 


5$: 


CALL 
ERROR 


RTT 
NOP 





@3.R1 
(R2)+, 0177777 
53 


cla 


R1,4$ 
R3 , #204 


6$ 
~ in 


(SP)+, 804 
FIN24 


SeDETFPA 


+ 
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sNO GO TO ERROR 

;INIT COUNTER 

:IS DATA CORRECT 

:YES GO ON 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
:NO GO TO ERROR 

sARE WE DONE 

;CHECK FPS 

;0K GO 


ON 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 
sRESTORE VECTOR 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;000 ADDRESS TRAP 


; 
TSFP25: 
; 


100$: 


2s: 


3$: 
4$: 


S¢TRPFLG 

R2 

R2 

$4,R5 
@TSTLOC,R4 
6177777, (R4)+ 
RS ,100$ 
STSTLOC,R2 
(R2)+ 

R3 


i 
@ODE TFPA 
+3 


STSTLOC,R2 
#2,R1 
(R2)+, 80 
3$ 
BODETFPA 
+3 
Ri,2$ 
$2,R1 
amici 
$ 
@eDETFPA 


:CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=0 
:INIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
:INIT TEST LOCATION 
;ARE WE DONE 
sSETUP POINTER TO DATA 
; TEST INSTRUCTION 


;GET FPS 
:IS R2 CORRECT 
;YES GO ON 


;DETERMINE FLOATING POINT FAULT. 


sFPP ERROR 
;NO GO TO ERROR 
;SETUP POINTER TO DATA 
;INIT COUNTER 


GO ON 
s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

:NO GO TO ERROR 
;ARE WE DONE 
:INIT COUNTER 
31S DATA CORRECT 
:YES G 


O ON 
sDETERMINE FLOATING POINT FAULT. 





SEQ 0209 


$$$ 
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ant 056702 


11869 
11870 


104003 
077107 


140132 


140054 


000300 
000004 
140132 
057236 
057266 
000224 
057246 
000010 
140132 
057246 
057276 
000166 
000224 
000000 
140132 
057256 
057306 
000130 
000200 
057236 
000204 


140132 


5$: 
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;FPP ERROR 
:NO GO TO ERROR 


ON 
DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;NO GO TO ERROR 


;TEST TSTF AND 


é 
TSFP26: 


@TS26D3,R2 


#TS26D2,R4 
#TS2605 ,R2 
PC ,CHEC26 
#200 ,.R4 

R4 
8¢TS26D0 
R3 

R3,#204 

45 
BeDETFPA 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=0 

; TEST INSTRUCTION 
;GET FPS 

;CHECK FPS 

; 0K 


;FPP ERROR 
sNO GO TO ERROR 
;SETUP POINTERS TO DATA 


i 
;CHECK IF DATA IS CORRECT 
TION 


;-PP ERROR 
:NO GO TO ERROR 
;SETUP POINTERS TO DATA 


;CHECK IF DATA IS CORRECT 
; TEST INSTRUCTION 

;GET FPS 

;CHECK FPS 


;0K GO ON 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 
er POINTERS TO DATA 


CHECK IF DATA IS CORRECT 
;SETUP TO LOAD FPS 

;SET FD=1 

; TEST INSTRUCTION 

;GET FPS 

;CHECK FPS 

;0K GO O 


N 
;DETERMINE FLOATING POINT FAULT. 


GO ON 
;DETERMINE FLOATING POINT FAULT. 


GO ON 
sDETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 





SEQ 0210 
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SEQ 0211 


11871 057112 104003 ERROR +3 ;FPP ERROR 
11872 ;NO GO TO ERROR 
11873 057114 012704 057236 4$: MOV @TS26D00,R4 sSETUP POINTERS TO DATA 
11874 057120 012702 057266 MOV #TS2603,R2 | : 
11875 057124 004767 000064 JSR PC ,CHEC26 s;CHECK IF DATA IS CORRECT 
11876 057130 170567 000112 TSTO TS26D01 ; TEST INSTRUCTION 
11877 057134 170203 STFPS R3 ;GET FPS 
11878 057136 020327 000210 CMP R3,4210 ;CHECK FPS 
11879 057142 001403 BEQ S$ ;0K GO ON 
11880 057144 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $5$ 
11881 057150 104003 ERROR +3 ;FPP ERROR 
11882 ;NO GO TO ERROR 
11885 057152 012704 057246 5$: MOV #TS26D01,R4 ;SETUP POINTERS TO DATA 
11884 057156 012702 057276 MOV #TS2604,R2 ; 
11885 057162 004767 000026 JSR PC ,CHEC26 s;CHECK IF DATA IS CORRECT 
11886 057166 170567 000064 TSTD TS26D2 ; TEST INSTRUCTION 
11887 057172 170203 STFPS R3 ;GET FPS 
118£8 057174 020327 000200 CMP R3, #200 ;CHECK FPS 
11889 057200 001403 BEQ 6$ ;0K GO ON 
11890 057202 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11891 057206 104003 ERROR +3 ;FPP ERROR 
11892 ;NO GO TO ERROR 
11893 057210 6$: 
oe 057210 000167 000102 JMP FIN26 
; 
11896 057214 012701 000004 CHEC26: MOV 4,R1 ;INIT COUNTER 
11897 057220 022422 1$: CMP CR4)+,CR2)+ :IS DATA CORRECT 
11898 057222 001403 BEQ 2s :YES GO ON 
11899 057224 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
11900 057230 104003 ERROR +3 sFPP ERROR 
11901 ;NO GO TO ERROR 
11902 057232 077106 2s: SOB R1,1$ ;ARE WE DONE 
pres 057234 000207 RTS PC RETURN 
; 
11905 057236 000177 TS2600: .WORD 177 
11906 057240 177777 -WORDB 177777 
11907 057242 177777 -WORD 177777 
11908 057244 177777 -WORD 177777 
11909 057246 177777 TS26D1: .WORD 177777 
11910 057250 000000 WORD 0 
11911 057252 000000 WORD 0 
11912 057254 000000 -WORD 0 
11913 057256 077777 TS26D2: .WORD 77777 
11914 057260 000000 WORD 0 
11915 057262 000000 WORD 0 
11916 057264 000000 -WORD 0 
11917 057266 000177 TS26D3: .WORD 177 
11918 057270 177777 -WORD 177777 
11919 057272 177777 WORD 177777 
11920 057274 177777 -WORD 177777 
11921 057276 177777 TS2604: .WORD 177777 
41922 057300 000000 WORD 0 
11923 057302 000000 WORD 0 
11924 057304 000000 -WORD 0 
11925 057306 077777 TS2605: .WORD 77777 
11926 057310 000000 -WORD 0 
11927 057312 000000 -WORD 0 
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11928 057314 
11929 057316 
11930 


11939 
11940 057320 


11954 057372 
11955 
11956 057374 


11961 057416 


11962 
11963 057420 
11964 057424 


11969 057442 
11970 

11971 057444 
11972 057450 
11973 057454 
11974 057460 
11975 057464 
11976 057466 
pee 057472 


11978 
11979 057474 
41980 


11985 057520 
11986 


000000 
000240 


104003 


012702 
004767 
020327 
001403 
004757 
104003 


012705 


140054 


000014 
003162 
057600 


003162 


003162 
140132 
057630 
000152 
000000 


140132 


003172 


003176 
140132 
003172 
057640 
000076 
000000 
140132 
003162 
000020 
003162 


140132 
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3 Oe ee ee ee ee 
;TEST ABSF 


; 
TSFP27: 
; 


100$: 


i$: 


2$: 


3$: 


4$: 


BETRPFLG 
RS 


R5 

#12. ,R1i 
#TSTLOC,R4 
#TS27D0,R3 
(R3)+,CR4)+ 
R1,100$ 
€TSTLOC,.RS 
CRS) 

R3 
1hiiainanae 
@eDETFPA 
+3 
#TS2703,R2 
PC ,CHEC27 
R3, #0 


2$ 

SeDETFPA 

+3 
#TSTLOC+10,R5 
CR5)+ 


R3 
ene 


3 

SeDETFPA 

+3 
#TSTLOC+10,R5 
#TS27D4 ,R2 

PC ,CHEC27 

R3, 40 


4$ 
@eDETFPA 
+3 
#TSTLOC,.RS 
20(R5) 


R3 
R5,#TSTLOC 
5$ 
SeDETFPA 
+3 





;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=0 

;INIT COUNTER 


sSETUP POINTER TO TEST LOCATION 


;SETUP POINTER TO TEST VALUE 
sINIT TEST LOCATION 
;ARE WE DONE 

;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 

71S RS CORRECT 
:YES GO 


ON 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

:NO GO TO ERROR 
;SETUP POINTER TO DATA 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 
;0K GO 0 


N 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 
71S RS CORRECT 
;YES GO 


ON 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
:NO GO TO ERROR 
;SETUP POINTER TO DATA 


;CHECK IF DATA IS CORRECT 
;CHECK FPS 
;0K Gu O 


N 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 
:IS RS CORRECT 
;YES GO ON 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 


$$$ 


$$$ 





SEQ 0212 
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SEQ 0213 


11987 057522 012705 003202 S$: MOV @TSTLOC+20,R5 ;SETUP POINTERS TO DATA 
11988 057526 012702 057650 MOV #TS2705,R2 ; 
11989 057532 004767 000020 JSR PC ,CHEC27 ;CHECK IF DATA IS CORRECT 
11990 057536 020327 000004 CMP R304 ;CHECK FPS 
11991 057542 001403 BEQ 6$ ;0K GO ON 
11992 057544 004737 140132 CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
11993 057550 104003 ERROR +3 ;FPP ERROR 
;NO GO TO ERROR 
11995 057552 6$: 
11996 057552 000167 000102 JMP FIN27 
$ 
11998 057556 012701 000004 CHEC27: MOV 04 ,R1 ;INIT COUNTER 
11999 057562 022522 i$: CMP CR5)+,CR2)+ 31S DATA CORRECT 
12000 057564 001403 BEQ 2$ ;YES GO ON 
12001 057566 004737 140132 CALL SéDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12002 057572 104003 ERROR +3 ;FPP ERROR 
12003 ;NO GO TO ERROR 
12004 057574 077106 2s: SOB R1i,1$ ;ARE WE DONE 
yen 057576 000207 RTS PC ;RETURN 
; 
12007 057600 177777 TS27D0: .WORD 177777 
12008 057602 177777 -WORD 177777 
12009 057604 177777 -WORD 177777 
12010 057606 177777 -WORD 177777 
12011 057610 000377 TS27D1: .WORD 377 
12012 057612 175436 -WORD 175436 
12013 057614 136477 -WORD 136477 
12014 057616 000001 -WORD i 
1201. 057620 000177 TS27D2: .WORD 177 
12016 057622 175436 -WORD 175436 
12017 057624 136477 -WORD 136477 
12018 957626 000001 . WORD 
12019 057630 077777 TS27D3: .WORD 77777 
12020 057632 177777 -WORD 177777 
12021 057634 177777 -WORD 177777 
12022 057636 177777 -WORD 177777 
12023 057640 000377 TS27D4: .WORD 377 
12024 057642 175436 -WORD 175436 
12025 057644 136477 -WORD 136477 
12026 0574646 000001 -WORD i 
12027 057650 000000 TS2705: .WORD 0 
12028 057652 000000 -WORD 0 
12029 057654 136477 -WORD 136477 
12030 057656 000001 . WORD 
12031 057660 000240 FIN27: NOP 
12032 ; 
12035 ; 
12036 Soe cc ceesernressseresceccocsccoces 
12037 ;TEST ABSD 
12038 $ 
039 : 
12040 057662 TSFP3O: 
12042 057662 005037 140054 CLR @3TRPFLG ;CLEAR TRAP FLAG 
043 057666 012705 000200 MOV #200 ,R5 ;SETUP TO LOAD FPS 
12044 057672 170105 LDOFPS = R5 ;SET FD=1 
12045 057674 012701 000014 MOV #12. .R1 ;INIT COUNTER 


| 
L 





(eee 2 eR Te REE RE oe Kee 
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12046 057700 


12062 057756 


12099 

12100 060122 
12101 060126 
12102 060130 


104003 
012705 


104003 


012705 
012702 
004767 


000167 


003162 
060144 


003162 


003162 
140132 
060174 
000152 
000200 


140132 


003172 


003202 
140132 


140132 
003162 
000020 
003162 
149132 
003202 
060214 
000020 
000204 


140132 


000102 
000004 





1$: 


2s: 


3$: 


4$: 


5$: 
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@TSTLOC,R4 
#TS30D0,R3 
CR3)+,CR4)+ 
R1,100$ 
#TSTLOC,RS 
CR5) 


R3 
—— 
@eDETFPA 


+ 


#TS30D3,R2 
PC ,CHEC30 
R3, #200 


2$ 
SeDETFPA 


+ 


#TSTLOC+10,R5 
CR5)+ 


R3 
alata 
eDETFPA 

+3 
#TSTLOC+10,R5 
$#TS30D4,R2 

PC ,CHECSO 

R3 , #200 

4$ 

BeDETFPA 

+3 

#TSTLOC,RS 
20(R5) 

R3 
a 
SeDETFPA 

+3 
#TSTLOC+20,.R5 
#TS30D5,R2 

PC ,CHEC30O 
R3,#204 

6$ 

BeDETFPA 

+3 

FIN30 


#4,R1 
CR5)+,CR2)+ 
2$ 


;SETUP POINTER TO TEST LOCATION 


sSETUP POINTER TO TEST VALUE 
;INIT TEST LOCATION 
;ARE WE DONE 

;SETUP POINTER TO DATA 
; TEST INSTRUCTION 


;GET FPS 
:;IS RS CORRECT 
;YES GO ON 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;NO GO TO ERROR 
;SETUP POINTER TO DATA 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 
;0K GO 0 


N 
;DETERMINE FLOATING POINT FAULT. 


FPP ERROR 
;NO GO TO ERROR 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 
;GET FPS 
sIS RS CORRECT 
YES G 


0 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
:NO GO TO ERROR 
;SETUP POINTERS TO DATA 


: 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO ON 
;DETERMINE FLOATING POINT FAULT. 


;sFPP ERROR 
:NO GO TO ERROR 
;SETUP POINTER TO DATA 
; TEST INSTRUCTION 


;GET FPS 
:I1S R5 CORRECT 
;YES GO ON 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;NO GO TO ERROR 


;SETUP POINTERS TO DATA 


SCHECK IF DATA IS CORRECT 
;CHECK FPS 
0K GO 0 


N 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;NO GO TO ERROR 


;INIT COUNTER 
;IS DATA CORRECT 
;YES GO ON 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 


$$$ 





SEQ 0214 
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SEQ 0215 


12103 060132 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12104 060136 104003 ERROR +3 ;FPP ERROR 
12105 ;NO GO TO ERROR 
12106 060140 077106 2s: SoB R1i,1i$ ~ gARE WE DONE 
pied 060142 000207 RTS PC ;RETURN 
$ 
109 060144 177777 TS30D0: .WORD 177777 
12110 060146 177777 -WORD 177777 
12111 060150 177777 -WORD 177777 
12112 060152 177777 -WORD 177777 
12113 060154 000377 TS30D1: .WORD 377 
12114 060156 175436 -WORD 175436 
12115 C60160 136477 -WORD 136477 
12116 060162 000001 -WORD i 
12117 060164 000177 TS30D2: .WORD 177 
12118 060166 175436 -WORD 175436 
12119 060170 136477 -WORD 136477 
12120 060172 %00001 . WORD 
12121 060174 077777 TS3003: .W°RD 77777 
12122 060176 177777 -WORD 177777 
12123 060200 177777 -WORD 177777 
12124 060202 177777 -WORD 177777 
12125 060204 000377 TS30D4: .WORD 377 
12126 060206 175436 -WORD 175436 
12127 060210 136477 -WORD 136477 
12128 060212 900001 -WORD 1 
12129 060214 000000 TS30D5: .WORD 0 
12130 060216 000000 -WORD 0 
12131 060220 000000 -WORD 0 
12132 060222 000000 -WORD 0 
12133 060224 0900240 FIN3SO: NOP 
12134 ; 
12137 : 
12138 fn nn en we nn ne ne nn nn eee eee ee 
ee ;TEST FOST SOP MODE 2 GR7 
; 
setae 060226 TSFP31: 
; 
12143 060226 005037 140054 CLR Be TRPFLG ;CLEAR TRAP FLAG 
12144 060232 013746 000004 MOV 804, -C SP) ;SAVE TIMEOUT VECTOR 
12145 060236 012737 060354 000004 MOV #TSF31,804 ;SETUP NEW VECTOR 
12146 060244 012702 000200 MOV #200 ,R2 :SETUP TO LOAD FPS 
12147 060250 170102 DFPS R22 ;SET FD=1 


L 
TSD31: — e5 ; TEST INSTRUCTION 


12151 060262 000240 P 
12152 060264 170205 STFPS R3 ;GET FPS 
12153 060266 020327 000204 CMP R3,#204 s;CHECK FPS 
12154 060272 001403 BEQ 1$ ;0K GO ON 
12155 060274 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
12156 060300 104003 ERROR +3 ;FPP ERROR 
1 3NO GO TO ERROR 
12158 060302 012702 060254 1$: MOV #TSD31+2,R2 ;SETUP POINTER TO DATA 
12159 060306 022227 000005 CMP CR2)+,45 ;IS DATA CORRECT 
12160 060312 001403 BEQ 2s ;YES GO ON 
12161 060314 004737 140132 CALL B#DETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
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12162 060320 
12163 


7 
pines 060366 


12190 060366 
12191 060372 
12192 060374 
12193 060376 


12214 060502 
12215 060504 
12216 060510 
12217 

12218 060512 
12219 060516 
12220 060520 


| 
= 


104003 


012701 
022227 
001403 
004737 
104003 


077107 
012637 
000167 


004737 
104003 


000006 
000240 


000003 
000240 


140132 


000004 
000010 
140132 


140054 


000014 
003162 
060576 
122540 
003162 
060626 
000114 
000000 
140132 


122512 


003172 
060636 


000056 
000010 
140132 


122464 
003202 


+3 


#3,R1 
(R2)+, #240 
4$ 
@eDETFPA 
+3 

R1,3$ 
(SP)+, 904 
FIN3i 


QeDETFPA 
+3 
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SEQ 0216 


;FPP ERROR 
;NO GO TO ERROR 
;INIT COUNTER 
;I1S DATA CORRECT 
;YES GO ON 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 
;ARE WE DONE 
;sRESTORE VECTOR 


;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


;0D0D ADDRESS TRAP 
;RETURN 


i 
TSFP32: 
i 


100$: 


1$: 


2s: 


BeTRPFLG 
R5 


RS 

#12. ,R1 
#TSTLOC,R4 
#TS32D0,R3 
CR3)+, CR4)+ 
R1,100$ 
TSTLOC 

R3 


@TSTLOC,.RS 
#TS3203,R2 
oe 


i$ 
BeDETFPA 
+3 


TSTLOC +10 
R3 


#TSTLOC+10,R5 
#TS3204,R2 
oa 


2s 
SeDETFPA 


+ 

TSTLOC +20 

R3 
#TSTLOC+20,R5 





;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
:SET FD=0 
;INIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
;SETUP POINTER TO TEST VALUE 
;INIT TEST LOCATION 
;ARE WE DONE 
; TEST INSTRUCTION 
;GET FPS 
sSETUP POINTERS TO DATA 


: 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 
;YES GO ON 
web ;DETERMINE FLOATING POINT FAULT. $$$ 
; 


RROR 
7NO GO TO ERROR 
; TEST INSTRUCTION 


;GET FPS 
;SETUP POINTERS TO DATA 


; 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 
;0K GO ON 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 
; TEST INSTRUCTION 
;GET FP 


;SETUP POINTERS TO DATA 





12221 060524 
12222 060530 
12223 060534 
12224 060540 


12235 060570 
12236 
12237 060572 
12238 060574 
12239 
12240 060576 


12274 060660 
0664 


12279 060702 


000167 


012703 


COKDAEO KDOJ11-68 CLUSTER DIAG. 
FLOATING POINT TESTS 


140132 


140054 
000200 


000014 
003162 
061072 


2s: 


$ 
TS32D0: . 


TS32D1: . 


TS32D3: . 
TS32D4: . 


TS32D5: . 


FINS2: 
; 
: 


-W 
NOP 


#TS3205,R2 
PC ,CHECS2 


R304 


3$ 
@eDETFPA 


+ 


FINS2 


#4 ,R1 
CR5)+,CR2)+ 
2s 

BeDETFPA 

+3 


R1,1$ 
PC 


0 
177777 
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SEQ 0217 


; 
;CHECK TF DATA IS CORRECT 
_ sCHECK FPS 

;0K GO ON 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
:NO GO TO ERROR 


s;INIT COUNTER 

;IS DATA CORRECT 

;YES GO ON 

;DETERMINE FLOATING POINT FAULT. $$$ 
:FPP ERROR 
;NO GO TO ERROR 

;ARE WE DONE 

;RETURN 


3 
TSFP33: 


S¢TRPFLG 
#200,R5 
R5 


#12. ,R1 
#TSTLOC,R4 
#TS33D0,R3 


;CLEAR TRAP FLAG 
;SETUP TO LOAD FPS 
;SET FD=1 
;INIT COUNTER 
;SETUP POINTER TO TEST LOCATION 
;SETUP POINTER TO TEST VALUE 





COKDAEO *0J11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


12280 060706 


12289 060742 
12290 060746 
12291 

12292 060750 
12293 060754 


12330 061106 
12331 061110 


12336 061122 


c 


012324 


170203 


104003 


000167 
012701 
022522 
001403 
004737 
104003 


140132 


000102 
000004 


140132 


100$: 


1%: 


2s: 


3$: 


; 
CHECS3S3: 
i$: 


2s: 


; 

TS33D0: . 
TS33D1: . 
TS3302: . 


TS33D3: . 


CR3)+, CR4S)+ 
R1,100$ 
TSTLOC 


R3 
#TSTLOC,RS 
€TS3303,R2 
PC ,CHEC33 
R3 , 4200 


i$ 
SBeDETFPA 
+3 


__ 
#TSTLOC+10,R5 
#TS33D04,R2 

PC ,CHEC33 
R3,%210 


2$ 

SeDETFPA 

+ 

TSTLOC +20 

R3 
#TSTLOC+20,R5 
#TS3305,R2 

PC ,CHEC33 

R3, #204 


3$ 

@eDETFPA 

+3 

FIN33 

04,R1 

arr okowe* 


2 
SeDETFPA 
+3 
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SEQ 0218 


;INIT TEST LOCATION 
;ARE WE DONE 


'; TEST INSTRUCTION 
;GET FPS 
;SETUP POINTERS TO DATA 


; 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO ON 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 
; TEST INSTRUCTION 
;GET FPS 
;SETUP POINTERS TO DATA 


; 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 


;0K GO ON 
_— ;sDETERMINE FLOATING POINT FAULT. $$$ 
; 


RROR 
:NO GO TO ERROR 
; TEST INSTRUCTION 
;GET FPS 
;SETUP POINTERS TO DATA 


: 

;CHECK IF DATA IS CORRECT 

;CHECK FPS 

;0K GO ON 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


RR 
sNO GO TO ERROR 


;INIT COUNTER 

;I1S DATA CORRECT 

;YES GO ON 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;NO GO TO ERROR 

;ARE WE DONE 

;RETURN 








COKDAEO KDJ11-B8 CLUSTER DIAG. 


12337 061124 
12338 061126 
12339 130 


12369 061204 
12370 
12371 061206 


12375 061222 
12376 
12377 061224 
12380 061236 
12381 
12382 061240 
12385 
12386 
12387 
12388 
12389 061240 
12390 
12391 061240 


12392 061244 
12393 061250 


12397 061262 


FLOATING POINT TESTS 


172407 
170201 


104003 


1703512 
022722 


104003 


012701 


174021 


047600 
003122 


147600 
140132 


000002 


140132 


061166 
140132 
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- WORD 1 
-WORD 177777 
-WORD 172710 
TS33D4: .WORD 170000 
. WORD 1 
-WORD 177777 
-WORD 172710 
TS3305: .WORD 
-WORD 0 
-WORD 0 
-WORD O 
FINS3: NOP 


i 
;TEST LOD MODE 0, ILLEGAL AC7 


MF SRCMO: 

MOV #47600,R4 
LOFPS R4 
MOV #RECFEC,R2 

i$: LOD R7,ACO 
STFPS Ri 
CMP #147600,Ri 
BEQ 2$ 
CALL BODE TFPA 
ERROR +3 

2$: STST (R2) 
CMP #2 ,CR2)+ 
BEQ 3$ 
CALL BeDETFPA 
ERROR +3 

3$: CMP #1$,(R2)+ 
BEQ 4$ 
CALL BeDETFPA 
ERROR +3 

4$: 

; 

; -—"#se @aeeeeceaecceceneeneeceeceenenaeene «= 

;TEST LDD MODE2 

i 

MLODMe2 : 

t 
MOV @RECDST,R1 
MOV 6TAB1,R4 
MOV #47750 ,R2 
LOFPS R2 
LOD (R4)+, ACO 
STFPS R3 
STD ACO, (R1)-+ 


SE) 9219 


;SETUP FPP STATUS 

s;LOAD FP STATUS 

;POINT TO RECEIVED FEC MEMORY 

;#TEST INSTRUCTION 

;LOAD ACO FROM ILLEGAL AC7 

;SAVE FPP STATUS 

;VERIFY FER BIT SET 

;BRANCH IF GOOD ERROR CONDITION 
;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
;THE FER BIT DIONT SET 


;SAVE FEC AND FEA 

;VERIFY FEC CONTENTS 

s;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 


;F-PP ERROR 
sFEC NE 2 COPCODE ERROR) 


3;F PP 


;VERFIY FEA CONTENTS 
sBRANCH FI GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 


ERROR 
;FEA NOT CORRECT ERROR ADDRESS 


;POINT TO RECEIVED DATA LOCATION 
sPOINT TO GOOD DATA 

;LOAD GOOD STATUS 

;LOAD FPP STATUS - DOUBLE,ID 
s*TEST INSTRUCTION - MODE 2 
;SAVE TEST FPP STATUS 

sSAVE TEST RESULT MODE 2 
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FLOATING POINT TESTS 


| 
L 


12398 061264 
12399 061266 
12400 061270 
12401 061274 


12 061402 
12435 061406 
12436 061410 
12437 061414 
12438 

12439 061416 
12442 061430 
12443 

12444 061432 
12445 061436 


12454 061470 
12455 061474 
12456 





012737 


003142 
003164 
00 


003164 
003162 


1%: 


2s: 


{TEST LOD MODE 3 


; 
MLDOMS : 


1%: 


2s: 


33: 


R2,R3 ;VERIFY FPP STATUS 
is ;BRANCH IF GOOD 
SeDETFPA :DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;BAD FPP STSTUS 
$TAB1+10,R4 ;VERFIY AUTO-INCR 
2s ;BRANCH IF GOOD 
BODE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;BAD AUTO-INCR 
TAB1,R4 ;POINT TO RECEIVED DATA 
#10,R1 sRETURN Ri TO PROPER VALUE 
R7 ,DATVER :VERFIY DATA FROM FPP 
COUNT ;SEE IF COUNTER=0 
3$ ;BRANCH IF GOOD COMPARE 
@eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 7:BAD DATA FROM FPP 
#RECDST , @@TSTLOC+2 ;sPOINT TO RECEIVED DATA LOCATION 
#TSTLOC+2,R1 ;SETUP STD IN MODE 3 
@TAB2, 8@TSTLOC ;POINT 1 DATA TABLE 
#TSTLOC,R4 sPOINT TO GOOD DATA 
447750 ,R2 ;LOAD GOOD STATUS 
R2 ;LOAD FPP STATUS - DOUBLE,ID 
@(R4)+,ACO ;*TEST INSTRUCTION - MODE 2 
R3 ;SAVE TEST FPP STATUS 
ACO, OC R1)+ ;SAVE TEST RESULT IN MODE 3 
$47740,R3 ;sVERIFY FPP STATUS 
i$ :BRANCH IF GOOD 
SODETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
3 :FPP ERROR 

;BAD FPP STSTUS 
STSTLOC+2,R4 ;VERFIY AUTO-INCR 
2$ ;BAD AUTO-DEC ON LOD 
BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
+ :FPP ERROR 

;BAD AUTO-INC 
@TSTLOC+4,R1 ; TEST STO AUTO-INC 
3$ ;BRANCH IF GOOD 
SODETFPA ;DETERMINE FLOATING POINT FAULT. $$% 
+3 ;FPP ERROR 

;BAD AUTO-INCR 
@TAB2,.R4 sPOINT TO RECEIVED DATA 
@RECDST.R1I sPOINT TO RECEIVED DATA 
R7 ,.DATVER sVERFIY DATA FROM FPP 
COUNT ;SEE IF COUNTER=0 
4$ ;BRANCH IF GOOD COMPARE 
™_ —_ ;DETERMINE FLOATING POINT FAULT. $$$ 
° > 
























Page 14-201 
SEQ 0220 


ERROR 
;BAD DATA FROM FPP 








COKDAEO KDJ11-68 CLUSTER DIAG. 
FLOATING POINT TESTS 


ed 061476 


1250 
£2509 061634 
12510 061640 


12516 061654 
12517 061660 


012701 


104003 


012701 


003254 
140132 
003254 
056276 
121312 


140132 


140132 
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003162 


SEQ 0221 


TEST LOF, STO MODE 4 


HLOOM4: 
; 


1$: 


2$: 


@RECDST+4,R1 
@TAB3+4, R4 
@TAB6,RS 


#200 
CR5),ACO 
#47550 ,R2 


Re 
R3 
#47750 ,R2 


R2 
ACO, -C(R1) 
047540 ,R3 


is 
BODE TFPA 


a 
@TAB3.R4 
2s 

BENE TFPA 
+3 
#TAB3,R4 
R7 ,DATVER 
COUNT 

3$ 
BEDETFPA 
+3 


sPOINT TO RECEIVED — LOCATION 
;POINT TO GOOD DATA 
;CLEAR OUT ACO 
;SET TO DOUBLE 
;ACO=0 
sLOAD GOOD STATUS FLOATING 
;LOAD FPP STATUS - DOUBLE,ID 
;*TEST INSTRUCTION - MODE 4 
; SAVE TEST FPP STATUS 
;SET TO DOUBLE MODE 
;SET FPP TO DOUBLE 
;SAVE TEST RESULT 
;VERIFY FPP STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD FPP STSTUS 
;VERFIY AUTO-DEC 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. 
3FPP ERROR 


;BAD AUTO-INCR 
sPOINT TO — DATA 
; VERFIY DATA FROM F 
;SEE IF COUNTER=0 
;BRANCH IF GOOD COMPARE 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD DATA FROM FPP 


sTEST LOD MODE 5 


MLODMS: 


@RECOST,R1 
STSTLOC+2,R4 
$TAB1,@@TSTLOC 
#47750 ,R2 


Re 

R3 

ACO, CR1) 
R2,R3 


is 
@EDETFPA 
+3 


sPOINT TO RECEIVED DATA LOCATION 
;POINT TO GOOD DATA 
;SET UP MODE 5 POINTER TO DATA 
;LOAD GOOD STATUS 
;LOAD FPP STATUS - DOUBLE,ID 
:;#TEST INSTRUCTION - MODE 5 
sSAVE TEST FPP STATUS 
sSAVE TEST RESULT 
;VERIFY FPP STATUS 
sBRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 





—— 
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FLOATING POINT TESTS 


12522 061674 


061676 
061702 





012701 


012701 
04 


003162 
140132 
003234 
056172 
121206 


140132 


056076 
121112 


140132 


003142 


003234 
047750 


003162 


003162 


1$: 


2s: 


3$: 
‘ 





@TSTLOC,R4 
23 
BODE TFPA 


+ 


#TAB1,R4 
R7 ,.DATVER 
COUNT 


3$ 
SeDETFPA 


aa 





SEQ 0222 


;BAD FPP STATUS 
;VERFIY AUTO-DEC 
;BRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 


;BAD AUTO-DEC 
sPOINT TO EXPECTED DATA 
sVERFIY DATA FROM FPP 
;SEE IF COUNTER=0 
sBRANCH IF GOOD COMPARE 
sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD DATA FROM FPP 


o 
MLDOMG6 : 
; 


13: 


2s: 


3$: 
é 


@RECDST+200,R1 
#47750 ,R2 


Re 
es 


3 
ACO, -200(R1) 
#47740,R3 


$200 ,R4 
R7,DATVER 
COUNT 


sPOINT TO RECEIVED DATA LOCATION 
;SETUP R4 FOR MODE 6 
;LOAD GOOD STATUS 
;LOAD FPP STATUS - DOUBLE,ID 
;LDD MODE 6 
;SAVE TEST FPP STATUS 
;SAVE TEST RESULT 
;VERIFY FPP STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
sFPP ERROR 
;BAD FPP STATUS 
;R1=RECDST 
sPOINT TO EXPECTED DATA 
;VERFIY DATA FROM FPP 
;SEE IF COUNTER=0 
;BRANCH IF GOOD COMPARE 
;DETERMINE FLOATING POINT FAULT. 
:FPP ERROR 
;BAD DATA FROM FPP 


$$$ 


; 
sTEST LOD MODE 7 


3 
MLDDM7: 


nt ome = TO RECEIVED DATA LOCATION 
3 ™ 
@TAB1, @TSTLOC sPOINTER FOR MODE 7 GOOD DATA 
#47750 ,R2 ;LOAD GOOD STATUS 
Re ;LOAD FPP STATUS - DOUBLE,ID 
@TSTLOCCR4), ACO ;#TEST INSTRUCTION - MODE 7 
R3 ;SAVE TEST FPP STATUS 
ACU .CR1) ;SAVE TEST RESULT 
' ;VERIFY FPP STATUS 
i$ ;BRANCH IF GOOD 


— ne 





COKDAEO KOJ11-B CLUSTER DIAG. 


FLOATING POINT 


TESTS 


004737 
104003 


012701 


104003 


012704 


140132 


140132 


003234 
055774 
121010 


140132 


003142 
003274 
047750 


043243 


000003 
140132 


047740 
140132 
055666 
120702 
140132 


003314 


2s: 








ri 


R4 
2$ 
BEDE TFPA 
+3 


#TAB1,R4 
R7 ,.DATVER 
COUNT 


3$ 
BeDETFPA 
+3 
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SEQ 0223 


;DETERMINE FLOATING POINT FAULT. $88 
;FPP ERROR 


;BAD FPP STATUS 

;VERFIY CONTENTS OF R4& 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ | 
;FPP ERROR 


;BAD R4 
sPOINT TO — DATA 

; VERFIY DATA FROM 

;SEE IF COUNTERSO 

;BRANCH IF GOOD COMPARE 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;sBAD DATA FROM FPP 


TEST LOD MODE 27 - ONLY 16 BITS ARE LOADED OR STORED 


MLOM27 : 


2$: 


@RECDST,R1 
@TABS,R4 
#47750 ,R2 
R5 


R3 
ACO, (Ri) 
#47740, R3 


2s 
BeDETFPA 
+3 


R7,DATVER 


sPOINT TO RECEIVED DATA LOCATION 
;POINT TO GOOD Df 


eee GOOD STATUS 
;LOAD FPP STATUS - DOUBLE,ID 
;*TEST INSTRUCTION - MODE 27 


; TEST PROPER PC PATH 
;VERIFY ONLY 3 PC INCREMENT 
:BRANCHK IF PROPER PC ACTION 
;DETERMINE FLOATING POINT FAULT. $$$ 
:FPP ERROR 
;BAD MODE 27 LOAD 
;SAVE TEST FPP STATUS 
;SAVE TEST RESULT 
;VERIFY FPP STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPP STATUS 
;VERFIY DATA FROM FPP 
;SEE IF COUNTER=0 
;BRANCH IF GOOD COMPARE 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD DATA FROM FPP 


TEST ADDF, ADDD, SUBF, SUBD - ACO=0 FSRC=0; 


HINNRML : 


MOV 


#TAB6,R4 


;POINT TO FSRC TEST DATA 





—— 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


12640 062232 
12641 062236 


Nr 


le 24 
12695 062446 
12696 062450 


170127 
172414 
173014 
170203 
174011 


120710 
120706 
040000 


040004 
140132 


003142 


055574 
120610 


140132 


040200 


040204 
140132 
055522 
003120 
140132 


040204 
140132 


055456 
120472 


140132 


000000 
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1$: 


2$: 


3$: 


4$: 


5$: 


RECDST +4 
RECDST +6 
#40000 ,R2 


R2 
(R4),ACO 
C(R4),ACO 


R3 

#40004 ,R3 
i$ 
SeDETFPA 
+3 
@RECDST,R1 


ACO, (R1) 
R7 ,DATVER 
COUNT 


2$ 

BEDE TFPA 
+3 

#40200 .R2 
R2 
CR4),ACO 
CR4),ACO 
ACO, (R1) 
R3 

#40204 ,R3 
3$ 
SeDETFPA 
+3 

R7 ,DATVER 
SéCOUNT 
44$ 
BeDETFPA 
+3 
CR4),ATO 
CR4),ACO 
RZ 

#40204 ,R3 
4$ 
SeDETFPA 
+3 


ACO, (R1) 
R7 ,DATVER 
COUNT 


5$ 
SeDETFPA 
+3 


#0 
C(R4),ACO 
(R4),ACO 
R3 


ACO, (R1) 





s;CLEAR OUT RECEIVED DATA TABLE 


i 

;SET UP GOOD STATUS 

;LOAD FPP STATUS, FLOATING 
sLOAD ACO WITH O 


30+0 

;SAVE STATUS 
;VERIFY STATUS 
;BRANCH IF GOO 


0 
s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR , ‘ 

;BAD FPP STATUS 
sPOINT TO RECEIVERD DATA 
sSAVE DATA 
;VERIFY DATA 


: 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


FPP ERROR 
;BAD DATA IN ACO 
;LOAD FLOATING STATUS 


; 
sLOAD ACO WITH O 
;#TEST — 


;VERFIY STATUS 
sBRANCH IF G 


00D 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


;BAD FPS 
;VERFIY DATA 
;VERIFY RESULT 
;BRANCH IF G 


00D 
s;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 
;SETUP DATA 
;*TEST INSTRUCTION 
;SAVE STATUS 
;VERFIY STATUS 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 
;SAVE ACO DATA 
;VERFIY DATA 


; 
s;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD ACO 

;STORE FPP STATUS 
;LOAD ACO 


30-9 
;SAVE STATUS 
;SAVE ACO 


$$$ 


$$$ 


$$$ 





SEQ 0224 








COKDAEO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


12754 
12755 





062452 
062456 
062460 
062464 


002466 
062472 


04 062476 


062500 
062504 


062506 


062650 
062652 


022703 
001403 
004737 
104003 


004767 
005767 
001403 


004737 
104003 


012701 


004737 


104003 
170127 


000000 
140132 
003264 
055310 
1203524 
140132 


000200 


000200 
140132 


6$: 


CALL 
ERROR 


04 ,R3 


6$ 
SeDETFPA 


+3 


R7,DATVER 
UNT 


7$ 
SeDETFPA 
+3 
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;VERFIY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
:BAD FPS 
;VERIFY DATAT 


; 
sBRANC IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 


sTEST ADDF ,SUBD - FSRC=0, ACO NE O 


MNNRM2 : 


1$: 


2$: 


3$: 


#RECDST,R1 

@TAB6,RS 

$TAB2,R4 
00 


#2 
CRS) ,ACO 
Re 


R2 
CR4),ACO 
aa ACO 


#TAB4,R4 
R7 ,DATVER 
COUNT 


2s 
BEDETFPA 


+ 


#200 
C(R4),ACO 
CRS) ,ACO 
R3 


ACO, (R1) 
#200 ,R3 


3$ 
BEDE TFPA 


+3 


#TAB4,R4 
R7 ,DATVER 
COUNT 

4s 
OeDETFPA 


s;POINT TO RECEIVED DATA TABLE 
sPOINT TO SOURCE DATA TABLE 
sPOINT TO ACO DATA 

;SET TO DOUBLE FOR CLEAR 


; 
;SETUP FPP STATUS 
;LOAD FPS 
;LOAD ACO 
;*#TEST INSTRUCTION 
;SAVE STATUS 
;SAVE ACO 
sVERFIY NEGATIVE RESULT 
s;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DATA 
;VERFIY ACO 
;CHECK RESULT 
;BRANCH IF GOO 


D 
;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD ACO 

;SET STATUS TO DUOBLE NODE 
;LOAD ACO WITH A VALUE 
;*#TEST INSTRUCTION 
;SAVE FPP STATUS 
;SAVE ACO 

;VERIFY RESULT 
;BRANCH IF GOOD 


;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 

;BAD SUBD 
;POINT TO EXPECTED 
;VERIFY ACO 


; 
;BRANCH IF GOOD ACO 


;DETERMINE FLOATING POINT FAULT. 


$$$ 


$$$ 


SEQ 0225 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 
12756 062656 


12757 


062660 


104003 


012701 


170127 
172415 
173014 
170203 


104003 


012702 
170102 
012704 


000210 
140132 
055146 
120162 
140132 


000200 


000200 
140132 
003504 
055072 
120106 


140132 


003240 
003334 
















MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-207 
SEQ 0226 


ERROR +3 ;FPP ERROR 
P ;BAD ACO 
$: 


MNNRMS3 : 
: 
MOV @RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
MOV #TAB6,.R5 ;POINT TO ACO DATA TABLE 
MOV #TAB1,R4 ;POINT TO FSRC DATA 
MOV #200 ,R2 ;SETUP FPP STATUS 
LOFPS R2 ;LOAD FPS 
LOD CR5),ACO ;LOAD ACO 
ADDD CR4),ACO ;*TEST INSTRUCTION 
STFPS R3 ;SAVE STATUS 
STD ACO, (R1) ;SAVE ACO 
CMP $210,R3 ;VERFIY NEGATIVE RESULT 
BEQ i$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FPS 
1$: JSR R7 ,DATVER ;VERFIY ACO 
TST COUNT ;CHECK RESULT 
BEQ 2$ ;BRANCH IF GOOD 
CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:BAD ACO 
2s: LOFPS #200 ;SET STATUS TO DUOBLE NODE 
LOF CR5),ACO ;LOAD ACO WITH A VALUE 
SUBD CR4),ACO :*TEST INSTRUCTION 
STFPS R3 ;SAVE FPP STATUS 
STF ACO, (R11) ;SAVE ACO 
CMP #200 ,R3 ;VERIFY RESULT 
BEQ 3$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD SUBD 
3$: MOV #TAB18 .R4 sPOINT TC EXPECTED DATA 
JSR R7 ,.DATVER ;VERIFY ACO 
TST COUNT ; 
BEQ 4$ ;BRANCH IF GOOD ACO 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. 
ERROR +3 ;FPP ERROR 
aa ;BAD ACO 


;TEST ADDF, SUBD - EXPCACO) = EXPCFSRC) 


. 

MNNRM4 : 
MOV #3240,R2 ;SET FIU,FD,FT 
LDFPS R2 
MOV #TAB7,R4 ;SET FSRC 


COKDAEO KD0J11-8 CLUSTER DIAG. 


FLOATING POINT 
12817 063034 
12818 063040 


12870 063226 
12871 063232 
12872 

12873 063234 


12874 063240 
12875 063242 


—— 


TESTS 


012702 


003344 
003142 


003354 
055016 
120032 
140132 
003344 


003344 
003200 


054752 
117766 


140132 


003200 
003374 


003142 
003364 


003200 
140132 
003404 
054660 
117674 


140132 


003414 


1$: 


#TABS,RS 
@RECDST,R1 
CR5),ACO 
CR4),ACO 
ACO, (R11) 
#TAB9,R4 
R7 ,.DATVER 
COUNT 


1$ 
_— 


> 


#TABS,R4 
#TABS,R3S 
_— 


2 
(R3),ACO 
CR4),ACO 
ACO, (R1) 
R7 ,.DATVER 
COUNT 


2s 
SGDETFPA 
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SEQ 0227 


;SETUP ACO 
;POINT TO aa ie DATA 


; 

;#TEST INSTRUCTION 

;SAVE TEST RESULT 

sPOINT TO EXPECTED DATA 
;VERIFY ACO DATA 


: 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ADDD 


; 
;SETUP SAME ACO 
sROUND MODE 


s;LOAD ACO 

s#TEST INSTRUCTION 
;SAVE DATA 

;VERIFY ACO 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
FPP ERROR 
;BAD ROUND RESULT 


TEST ADD - EXPCFSRC) > EXPCACO) 


; 
MXDF 1: 
; 


1$: 


2$: 


#3200,R2 
R2 


#1TAB11.R4 
#RECDST, Ri 
#TABi0.RS 
CRS) ,ACO 
(R4),ACO 
R3 


ACO, (Ri) 
#3200,R3 


i$ 
@eDETFPA 


+ 


#TAB11A,R4 
R7 ,DATVER 
COUNT 


2s 
—" 


+ 


#TABi2 ,.R4 
(R5),ACO 
C(R4),ACO 





;R2=FPP STATUS 
;LOAD FPS STATUS 
;POINT TO FSRC DATA 
sPOINT TO ACO RESULT 
;POINT TO ACO DATA 
;LOAD ACO DATA 
:*TEST INSTRUCTIONS 
;SAVE FPP STATUS 
:SAVE ACO DATA 
; VERIFY FPP STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPP STATUS 
;POINT TO EXPECTED DATA 
;VERIFY CONTENTS OF ACO 


; 
;BRANCH IF GOOD ACO - 
s;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO, SHOULD = FSRC 
;POINT TO FSRC DATA 


;ACO 
;*TEST INSTRUCTION 








COKDAEO KDJ11-B CLUSTER DIAG. 
FLOATING POINT 


TESTS 


012705 
170102 
172415 
172014 
174011 
012704 
004767 
005767 
001403 
004737 
104003 


012702 


003364 
054546 
117562 


140132 


003464 


003474 
054506 
117522 


140132 


003200 
003514 


003142 
003210 
140132 


003524 


3$: 


4$: 
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#TAB1i3B,R4 ;POINT TO EXPECTED RESULT 
ACO,C(R1) :;SAVE ACO DATA INTO RECDAT 
R7 ,DATVER ;VERIFY DATA 
COUNT 
3$ ;BRANCH IF GOOD DATA 
BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;BAD ACO DATA 
#3000,R2 ;GET FPP STATUS DATA 
$TAB14 ,R4 ;POINT TO FSRC DATA 
$TAB1i5,R5 :POINT TO ACO DATA 
CRS5),ACO ;LOAD ACO 
R2 ;FPP STATUS = FLOAT, INTERRUPTS ENABLE 
CR4),ACO ;*TEST INSTRUCTION 
$200 ;RESET TO DOUBLE 
ACO, C(R1) ;RECDOST=ACO 
#TAB10,.R4 ;POINT TO GOOD DATA 
R7 ,.DATVER ;VERFIY CONTENTS OF ACO 
COUNT ; 
4$ ;BRANCH IF GOOD 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;BAD FLOATING ADD 
#TABié6,RS ;POINT TO ACO DATA 
R2 :FPP STATUS = FLOAT 
CR5),ACO ;LOAD ACO 
CR4),ACO ;#TEST INSTRUCTION 
ACO, (R1) :SAVE ACO DATA 
#TAB17 ,R4 ;POINT TO GOOD DATA 
R7,DATVER 
COUNT 
5$ sBRANCH IF GOOD 
_ te ¢ ;DETERMINE FLOATING POINT FAULT. $$$ 
+ A 


RROR 
;BAD FLOATING ADD 


STEST ADDD WITH 
MNGOP: 


1$: 


NEGATIVE OPERANDS 


oo ;LOAD FPS VALUE 
; 
#TAB21 ,R4 ;DATA ADDRESS FOR ACO AND FSR 
CR4),ACO sACO=100200 0 0 0 
CR4),ACO ;*#TEST INSTRUCTION 
R3 ;SAVE STATUS 
#RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
ACO, (R1) ;SAVE ACO DATA 
#3210,R3 ; VERIFY STATUS 
i$ BRANCH IF GOOD 
BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;sFPP ERROR 
#TAB22 ,R4 ;POINT TO EXPECTED DATA 


SEQ 0228 








COKDAEO KOJ11-B CLUSTER DIAG. 


FLOATING POINT 
12935 063454 


TESTS 


004767 
005767 
001403 
004737 
104003 


170203 
012701 
174011 
022703 
001403 
004737 
104003 


012605 
020527 
001403 
004737 
104003 


004737 
104003 


012704 


003514 
003534 
063526 


140132 


003142 
103200 
140132 


063516 
140132 


003544 
054276 
117312 


140132 


003534 
003514 
063656 
003200 


140132 


003142 
103200 
140132 





MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-210 


000244 


000244 


2$: 


100$: 


101$: 


3$: 


102$: 


4$: 


103$: 


104$: 


R7,DATVER ; 
COUNT ;s VERIFY DATA 
2$ ;BRANCH IF GOOD 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
!-FSRC! = !ACO! 
#TAB21 ,R4 :POINT TO FSRC DATA 
#TAB23,R1 ;sPOINT TO ACO DATA 
#101$, 9@FPVEC ;SETUP FP VECTOR 
CR1),ACO ;LOAD ACO 
(R4),ACO ;*TEST INSTRUCTION 
;COPY FPP CC 
SeDETFPA ;sDETERMINE FLCATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
:GO TO ERROR 
R3 ;SAVE FPP STATUS 
@#RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
ACO, (R1) ;SAVE ACO DATA 
#103200,R3 ;VERIFY STATUS 
3$ ;BRANCH IF GOOD 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;BAD STATUS 
(SP)+,R5 ;GET ERROR PC 
RS ,#100$ ;VERIFY ERROR ADDRESS ON STACK 
102$ ;BRANCH IF GOOD 
SeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;BAD ERROR RETURN ON STACK 
(SP)+ sRESTORE STACK 
#TAB24 ,R4 ;POINT TO EXPECTED DATA TABLE 
R7 ,DATVER sVERIFY DATA 
COUNT 
4$ ;BRANC IF GOOD 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;BAD ACO DATA 
'-ACO! = !FSRC! 
#TAB23 ,R4 sPOINT TO FSRC DATA 
@TAB2i1 ,R1 sPOINT TO ACO DATA 
$104$ ,8eFPVEC ;SETUP FP VECTOR 
ee ;LOAD FPS VALUE 
é 
CR1),ACO ;LOAD ACO DATA 
(R4),ACO ;*TEST INSTRUCTION 
;COPY FPP CC 
SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;G0 TO ERROR 
R3 ;SAVE FPS 
PRECDOST,R1I :SAVE ACO 
ACO, (R1) : 
#103200,R3 ;VERFIY STATUS 
5$ ;BRANCH IF GOOD 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 


SEQ 0229 





COKDAEO KOJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


12992 

12993 063702 
12994 063704 
12995 063710 
12996 063712 
12997 063716 


i 2 
13048 064130 


104003 


012704 
004767 


063646 
140132 


003544 
054146 
117162 


140132 


140132 


003574 
054046 
117062 


140132 


003554 
003564 


003142 
003200 
140132 
003574 
053762 
116776 


140132 
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000244 


5$: 


105$: 


6$: 


7$: 


9$: 


(SP)+,R5 
RS ,#103$ 
105$ 

SeDETFPA 


+ 


.SP)+ 
#TAB24 ,.R4 
R7,DATVER 
SOUNT 


6$ 
BeDETFPA 
+3 


!-FSRC! < 
@TAB26 ,R4 
#TAB2S ,R1 
#3200 ,R2 


R2 
$246 , B&F PVEC 
(R1),ACO 
CR4),ACO 
R3 
#RECDST,R1 
ACO, CR1;> 
R3 , #3200 
7$ 
BeDETFPA 
+3 

@TAB27 ,R4 
R7 ,DATVER 
COUNT 

8$ 
SeDETFPA 
+3 

'FSRC! > 
(R1),ACO 
CR4),ACO 
R3 
#RECDST,R1 
ACO, CR1) 
R3, #3200 
93 
SeDETFPA 
+3 

#TAB27 .R4 
R7 ,.DATVER 
COUNT 

10¢ 
SeDETFPA 


+ 


SEQ 0230 


;BAD FPS STATUS 
:GET ERROR PC 
;VERIFY ERROR ADDRESS ON STACK 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD ERROR RETURN ON STACK 
sRESTORE STACK 
sPOINT TO EXPECTED DATA 


$$$ 


; 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD ACO 
tACO! 


$$$ 


sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD FPS VALUE 


$ 
;SETUP FP VECTOR 
;LOAD ACO DATA 
;*TEST INSTRUCTION 
;SAVE STATUS 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;sPOINT TO EXPECTED DSATA 
;VERIFY DATA 


; 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 


; 
!-AC! 


;POINT TO FSRC DATA 
:POINT TO ACO DATA 
;LOAD ACO DATA 
;*TEST INSTRUCTION 
;SAVE STATUS 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO 
;VERIFY STATUS 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DSATA 
;VERIFY DATA 


: 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 








COKDAEO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 


13061 064170 
13062 

13063 064172 
13064 064176 
13065 064202 
13066 064206 
13067 064210 
13068 064214 


13069 
13070 064216 
13071 


13098 064302 
13099 

13100 064304 
13101 064310 


13102 064312 
13103 064314 


13107 064326 


eee 


104003 


012702 


003614 
003604 


003142 
003200 
140132 


116712 
140132 


003200 


003514 
003142 


003204 
140132 
003314 
053610 
116624 


140132 


003444 


003204 
140132 


MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-212 


10$: 


11$: 


!-FSRC! < 
STAB29 ,R4 
#TAB28 ,R1 
(Ri), ACO 
(R4),ACO 
R3 


@RECDST,R1 
ACO, (R1) 
R3, #3200 


11$ 
QeDETFPA 
+3 


#TAB29A,R4 
R7,DATVER 
COUNT 


i2$ 
BGDETFPA 
+3 


SEQ 0231 


;BAD ACO 


‘aco! 
;sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD ACO DATA 
;*#TEST INSTRUCTION 
;SAVE STATUS 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


;BAD FPS 
;sPOINT TO EXPECTED DATA 
;VERIFY DATA 


a 

s;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
FPP ERROR 


TEST SUB WITH EXPCACOJ=EXP[FSRC] 


HSB: 


1$: 


2s: 


#3200 ,R2 
R 


2 

#TAB21 ,R4 
@RECOST.R1 
CR4),ACO 
i ACO 


ACO, CR1i) 
#3204,R3 


i$ 
BeDETFPA 
+3 


#TABG,R4 
R7 .DATVER 
COUNT 


2$ 
BODETFPA 


+ 


$TAB14 ,R4 
CR4),ACO 
(R4),ACO 


R3 
ACO, CR1) 
#3204 ,R3 


3$ 
SeDETFPA 


;LOAD FPS DATA 

;LOAD FPS 

:POINT TO FSRC DATA 

sPOINT TO ACO RECEIVED DATA TABLE 

;LOAD ACO 

:*#TEST INSTRUCTION 

;SAVE STATUS 

;SAVE ACO INTO RECDST 

;VERIFY STATUS 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
:FPP ERROR 
;BAD FPS STATUS 

;POINT TO EXPECTED DATA 

;VERIFY ACO 


; 
sBRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 
sPOINT TO FSRC AND ACO DATA 
;LOAD ACO DATA 
;#TEST INSTRUCTION 


;SAVE FPS 
sSAVE ACO INTO RECOST 
;sVERIFY FPS 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. $$$ 








COKDAEO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


13108 064332 
13109 
13110 064334 


13115 064356 
13116 
13117 064360 
13118 


13122 

13123 

13124 

13125 064360 

13126 

13127 064360 

13128 064364 
366 


13164 
13165 064500 
13166 
13167 064500 
13168 064504 


012702 
170102 


104003 


012701 
012705 
172411 
173015 


012701 


012702 
170102 


140132 


003654 
003664 


003142 


053414 
116430 


140132 


000200 
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3$: MOV 


4$: 
; 
3 


+3 


@TABE ,R4 
R7,DATVER 
COUNT 


as 
SeDETFPA 


+3 


SEQ 0232 


;FPP ERROR 
;BAD ACO 
;POINT TO EXPECTED DATA 
;VERIFY ACO 


;BRANCH IF GOOD 

;sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
:BAD ACO 


1$: MOV 


#3200,Re2 
Re 


#TAB31,R5 
#TABSO,R1 
CR1),ACO 
CR5),ACO 


R3 

@RECDST ,R4 
ACO, (CR4) 
#TAB34 ,R1 
R7 ,DATVER 
COUNT 


i$ 
BeDETFPA 
+3 


@TAB32 Ri 
#TABS3 RS 
CR1),ACO 
CR5),ACO 


@RECDST,R1 
ACO, (R1) 
R7 ,DATVER 
COUNT 


2$ 
SeDETFPA 


+3 


;LOAD FPS 


: 

;POINT TO FSRC DATA 
sPOINT TO ACO DATA 

;LOAD ACO 

s*#TEST INSTRUCTION 
31 LEFT SHIFT 

s;SAVE STATUS 

sPOINT TO RECDATA 


;SAVE ACO 
;POINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 


;ACO DATA 
sFSRC DATA 
;LOAD ACO 
;*TST INSTRUCTION 
356 LEFT SHIFTS 
;SAVE DATA 
; 


: 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


OVERFLOW AND UNDERFLOW 


; 
;TEST ADDD WITH 


; 
MUVAD: . 
; 


MOV 
LDFPS 


#200 ,R2 
R2 





;SETUP FLOATING POINT STATUS 
;LOAD FPS 








COKDAEO KOJ11-B8 CLUSTER DIAG. 


13169 064506 
13170 064512 
13171 064516 


185 564 
13186 064570 
13187 
15188 


13189 
13190 064572 
13191 064576 


13213 064672 
13214 
13215 064674 


13224 
13225 064722 


FLOATING POINT TESTS 


104003 
170203 


003704 
003704 


003142 
000206 
140132 
003314 
053322 
116336 


140132 


001200 


003704 
003704 


064632 


140132 


003142 
101206 
140132 


064622 
140132 


003314 
053172 
116206 


140132 


000200 
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000244 


MOV STAB40 ,R4 
MOV 6TAB40 ,R1 
LOD CR1),ACO 
ADDD (R4),ACO 
STFPS R3 
MOV @RECDST,R1 
STD ACO, (R1) 
CMP #206 ,.RS 
BEQ 1$ 
CALL BeDETFPA 
ERROR +3 

1$: MOV #TABG,R4 
JSR R7 ,DATVER 
TST COUNT 
BEQ 2s 
CALL SeDETFPA 
ERROR +3 

;OVERFLOW TRAPS ENABLED 

; 

2s: MOV #1200,R2 
LOFPS R2 
MOV @TAB40 ,R4 
MOV #TAB40 ,R1 
LOD (R1),ACO 
MOV 63% , BOF PVEC 
ADOD C(R4),ACO 

23%; CFCC 
CALL BEDE TFPA 
ERROR +3 

3$: STFPS R3 
MOV @RECDST,R1 
STD ACO, (R1) 
CMP #101206,R3 
BEQ a4 
CALL BODE TFPA 
ERROR +3 

4$: MOV C(SP)+,RO 
CMP #23% ,RO 
BEQ 5$ 
CALL BODE TFPA 
ERROR +3 

S$: MOV (SP)+,RO 
MOV @TABE ,.R4 
JSR R7 ,DATVER 
TST COUNT 
BEQ 7$ 
CALL _ 

° 


sUNDERFLOW TRAPS DISABLED 
; 
78: MOV #200 ,R2 


sPOINT TO FSRC DATA 
;POINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
;#TEST INSTRUCTION 
;SAVE FPS 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
;BAD ACO 
;SETUP FLOATING POINT STATUS 
;LOAD FPS 
;POINT TO FSRC DATA 
sPCINT TO ACO 


DATA 
sLOAD ACO WITH TEST DATA 
;CHANGE TRAP VECTOR 
s*#TEST INSTRUCTION 


;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;FAILED ph ag y OVERFiLUW 

. 

sPOINT TO RECEIVED DATA TABLE 

;SAVE ACO RESULT 

;VERIFY STATUS 

sBRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
3FPP ERROR 
;BAD FPS 

sCHECK STORED PC 


H 
;BRANCH IF RETURN ADDRESS IS GOOD 
sDETERMINE FLOATING POINT FAULT. $$$ 
:FPP ERROR 
;BAD RETURN ADDRESS 
;CLEAN UP STACK 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 

;sDETERMINE FLOATING POINT FAULT. 888 
;FPP ERROR 
;BAD ACO 


;SETUP FLOATING POINT STATUS 


SEQ 0233 








COKDAEO KDOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


000204 
140132 


140132 


003142 
102210 
140132 


065046 
140132 


003304 
052746 
115762 


140132 
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000244 


Re 
—ee 


@TAB7, 
@TAB41,R1 
C(R1),ACO 
‘aaa 


R 
®RECDST,R1 
ACO, (R1) 
204 ,R3 


8$ 
BeDETFPA 
+3 


@TABE,R4 
R7 ,DATVER 
COUNT 

93 

+3 


;UNDERFLOW TRAPS ENABLED 


3 
9$: 


10$: 


11$: 


12$: 


13$: 


;BAD ACO 
;UNDERFLOW WITH TRAPS DISBLED - NON-ZERO RESULT 


#2200,R2 

R2 

#11$ ,@eFPVEC 
eTAB7, R4 
@TAB41,R1 


(R1), ACO 
(R4), ACO 


—_— 


R3 
@RECDOST,R1 
ACO, (R1) 
#102210,R3 
i2$ 


BODE TFPA 
+3 


CSP)+,R5 
RS ,010$ 


CSP )-+ 
#TABSA,R4 
R7 ,DATVER 
COUNT 

14$ 

” iden 


+ 


;LOAD FPS 


sREPLACE WILD TRAP VECTOR 
DATA 


sPOINT TO FSRC 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
;#TEST INSTRUCTION 
sSAVE FPS 
sPOINT TO RECEIVED DATA TABLE 
;sSAVE ACO RESULT 
;sVERIFY STATUS 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 
;FPP ERROR 
;BAD ACO 


;SETUP FLOATING POINT STATUS 


;LOAD FPS 
;REPOSITION TRAP VECTOR 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
:*TEST INSTRUCTION 
sCOPTY FPP CC 
;DETERMINE FLOATING POINT FAULT. 
3;F-PP ERROR 
sFAILED TO TRAP ON UNDERFLOW 
;SAVE FPS 
sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD FPS 
;GET ERROR PC 
; VERIFY ERROR ADDRESS ON STACK 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD ERROR RETURN ON STACK 
sRESTORE STACK 
;sPOINT TO EXPECTED DATA 
;sVERIFY DATA 


;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 


$$$ 





SEQ 0234 








COKDAEO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 


104003 


022703 
001403 


000200 
140044 


003714 
003724 


003142 
000204 
140132 


140132 


102200 
065306 


003714 
003724 


140132 


003142 


065276 


140132 


102204 
140132 
003734 
052516 
115532 


140132 
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000244 


000244 


14$: 


15$: 


@200,R2 
R 


2 
OWLOTRP , BOFPVEC 
@TAB41,R4 
@TAB42 ,R1 
(R1),ACO 
_ 


3 
@RECOST,R1 
ACO, (R1) 


@TAB6,R4 
R7 ,.DATVER 
COUNT 


16$ 
BEDE TFPA 


? 


2 —_— POINT STATUS 


;LOA 
sRESTORE TRAP VECTOR 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
;#TEST INSTRUCTION 
;SAVE FPS 
;POINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD FPS 


;POINT TO EXPECTED DATA 
;VERIFY DATA 


s;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
FPP ERROR 
AD ACO 


;BA 
;UNERFLOW WITH TRAPS ENABLED - NON- ZERO RESULT 


; 
16$: 


17$: 


18$: 


19$: 


20$: 


#102200,R2 
Re 


#18$ ,8eFPVEC 
@TAB41,R4 
#TAB42 ,.R1 
C(R1),ACO 
CR4),ACO 


BODETFPA 


+ 


R3 
@RECDST,R1 
ACO, (R1) 


#102204 ,R3 
20$ 


adn 


#TAB43 ,R4 
R7 ,.DATVER 
COUNT 


21$ 
BeDETFPA 
+3 





s;SETUP FLOATING POINT STATUS 


;LOAD FPS 
sRESTORE TRAP VECTOR 
sPOINT TO FSRC DATA 
:POINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
:*TEST INSTRUCTION 


sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 


;NO TRAP ON UNDERFLOW 
;SAVE FPS 
:POINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
;SAVE STACK CONTENTS 
;CLEAN UP STACK 
;VERIFY RETURN ADDRESS 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD RETURN ADDRESS 
;VERIFY STATUS 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
BAD FPS 
;POINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD ACO 


$$$ 


SEQ 0235 








COKDAEO KOJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 


13340 065376 
13 


000300 
003744 
003314 
003142 
003750 
140132 
003754 
052426 
115442 
140132 


003744 
003464 
003754 
140132 


003142 
000000 
140132 
004014 
052322 
115336 


140132 
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SEQ 0236 


3 “<8 s ee er ee enn een ecenenewr eee een ene er. lum OCS eS 
sTEST LOCFD, LOCOF 


; 

MLOC: 

; 

; TRUNCATE 
MO 


1$: 


V 
LOFPS 
V 


(R4)+,ACO 
@RECOST.R1 
ACO, (R1) 
$TAB45+4,R4 


i$ 
QEDETFPA 


+ 


@TAB46 ,R4 
R7 ,DATVER 
COUNT 


2$ 
BEDE TFPA 
+3 


sAUTO-INC DOUBLE MODE 


2$: 


3$: 


4$: 


R2 
R2 


@TAB45 ,R4 
$TAB1i6.R1i 
(R1),ACO 
(R4)+,ACO 
a 


$ 
_ 


R3 
@RECOST,R1 
ACO, (R1) 
#0 ,RS 


4s 

@aDE TFPA 
+ 

#TAB49 .R4 


R7 ,.DATVER 
COUNT 


5$ 
BeDETFPA 
+3 


;SETUP FLOATING POINT STATUS 
;LOAD FPS 
sPOINT TO FSRC DATA 
;POINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
;*TEST INSTRUCTION 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO RESULT 
;VERIFY AUTO-INC 
sBRANCH IF GOOD AUTO-INC 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD AUTO-INC 
;POINT TO EXPECTED DATA 
;sVERIFY DATA 


;BRANCH IF GOOD 

;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 


;SETUP FLOATING POINT STATUS 
;LOAD FPS 
;sPOINT TO FSRC DATA 
;POINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
;*TEST INSTRUCTION 
;VERIFY AUTO-INC 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD AUTO-INC ON DOUBLE 
;SAVE FPS 
;POINT TO RECEIVED DATA TABLE 
;SAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


13449 065762 
13450 065766 
13451 

13452 065770 
13453 065774 
13454 066000 
13455 066004 


L sem amma 


012702 
170102 
005003 


104003 


012702 


000200 


043243 


000003 
140132 


000200 


003764 
003744 


003142 
000210 
140132 
004004 
052172 
115206 
140132 


000200 


003314 
004004 


003142 
000204 
140132 
003314 


052100 
115114 
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;LOCFD GR7 

; 

53: MOV €200 ,R2 
LOFPS R2 

Q R3 

LOCFD #5203,ACO 
INC 
INC R3 
INC R3 
CMP #3,R3 
BEQ 6$ 
CALL BeDETFPA 
ERROR +3 

;NEGATIVE OPERANDS 

‘ 

6$: MOV #200 ,R2 
LOFPS R2 
MOV $TAB47 ,R4 
MOV #TAB45 ,R1 
LOD CR1),ACO 
LOCFD (R4),ACO 
STFPS R3 
MOV @RECDST,R1 
STO ACO, (R1) 
CMP #210,R3 
BEQ 7$ 
CALL SeDETFPA 
ERROR +3 

7$: MOV #TAB48 .R4 
JSR R7 ,.DATVER 
TST COUNT 
BEQ 8$ 
CALL SeDETFPA 
ERROR +3 

;LOAD A ZERO 

3 

8$: MOV #200 ,R2 
LDOFPS 
MOV STABE,R4 
MOV STAB48 ,R1i 
LDD (R1),ACO 
LOCFD (R4),ACO 
STFPS R3 
MOV PRECDST,R1 
STO ACO, (R1i) 
CMP #204 ,R3 
BEQ 9$ 
CALL BeDETFPA 
ERROR +3 
JSR R7 ,DATVER 
TST COUNT 
BEQ 10$ 





SEQ 0237 


;SETUP FLOATING POINT STATUS 
;LOAD FPS 


;*TEST INSTRUCTION 


;IF LOCFOD WORKED, R3 SHOULD=2 

; VERIFY CORRECT PROGRAM FLOW 

;BRANCH IF GOOD 

;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD PROGRAM FLOW 


;SETUP FLOATING POINT STATUS 
;LOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
3*#TEST INSTRUCTION 
;SAVE FPS 
;POINT TO RECEIVED DATA TABLE 
:SAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;sPOINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 


;SETUP FLOATING POINT STATUS 
;LOAD FPS 
;POINT TO FSRC DATA 
;POINT TO ACO DATA 
;LOAD ACO WITH TEST DATA 
:* TEST INSTRUCTION 
;SAVE FPS 
;POINT TO RECEIVED DATA TABLE 
;sSAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
sPOINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 
004737 140132 
104003 


004767 
000000 


003030 
000152 
000000 


000000 


000001 
000114 
000000 


000022 


003030 
000060 
012346 
000000 


000030 
177777 


177777 


000126 
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000000 
000000 


003030 
000000 
000123 


012346 
000000 


177777 
177777 


SEQ 0238 
CALL BEDE TFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
10$: 
: 
TEST CMPD 
HCMPD: 
° 
; CMPD WITH FRSC=ACO=-0 
‘ 
CLR 8GFLAG ;SIGNAL THAT ACO REMAINS CONSTANT 
JSR R7 ,CMPRTN sROUTINE TO TEST DATA 
. WORD 0,0,0,0 sACO AT START 
.WORD 0,0,0,0 sFSRC AT START 
. WORD 200 :FPS AT START (CD) 
. WORD 204 3FPS AT END 
; CMPD WITH EXP([FSRC)=0, EXP[ACO)=0 
MOV #1 ,3@FLAG ;SIGNAL THAT ACO WILL = 0 
JSR R7,CMPRITN sROUTINE TO TEST DATA 
-WORD 0,0,0,125252 sACO AT START 
. WORD 100,22,123,123 ;FSRC AT START 
. WORD 200 sFPS AT START (D) 
. WORD 204 7FPS AT END 
; CMPD FSRC>EXPLACO)=0 
CLR 8¢FLAG ;ACO REMAINS UNCHANGED 
JSR R7,CMPRTN ;sROUTINE TO TEST DATA 
. WORD 400, 12346, 12346, 23 ;ACO AT START 
WORD 200 7FPS AT START (D) 
WORD 210 ;FPS AT END 
; CMPD FSRC=ACO>0 
JSR R7, CMPRTN sROUTINE TO TEST DATA 
WORD 77777, -1,-1,-1 :ACO AT START 
. WORD 77777, -1,-1,-1 sFSRC AT START 
-WORD ~ 200 ;FPS AT START (D) 
.WORD 204 sFPS AT END 
JMP HOP44 sHOP OVER SUBROUTINE 


3 &XaXaXaXeaXaXaXaXaXaXaXaXaXeXaXeXaXaXeXaXaXeXaXaXa Xa XaXaXaX 
3 &XaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaXaXeXaXaXaXaXaX 


;COMPARE ROUTINE DATA TABLES 


; 
3 ACO 
$ FSRC 
: FPS BEFORE EXECUTION 
: FPS AFTER EXECUTION 





COKDAEO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


13518 066220 


104003 


005737 
001403 
012704 


012737 
004767 


012737 
004767 


000200 


000010 


000020 


000200 


003142 


000022 
140132 


003030 
003314 
051574 
114610 
149132 


000024 


000001 
000652 


MACRO YOS.02 


003030 


003030 





(FEC) 
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SEQ 0239 


; 
3eXaXaXaKaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXeXaXeX 
3 aXaXeXeXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaXaXeXaXaXaXaXaXaX 


° 

CMPRTN: MOV (SP)+,R5 
MOV #200 ,R2 
LOFPS R2 
MOV RS ,R4 
ADD #10,R4 
MOV RS,R1 
LOD (Ri), ACO 
MOV 20(R5), R2 
LOFPS 

1$: CMPD CR4).ACO 
STFPS R3 

V #200 ,R2 

LDOFPS Re 
MOV #RECDST,R1 
STD ACO, (Ri) 
CMP 22CR5),R3 
BEQ 2$ 
CALL BEDE TFPA 
ERROR +3 

2$: TST @eFLAG 
BEQ 3$ 
MOV #TABG,R4 
BR 4$ 

4$: JSR R7 ,DATVER 
TST COUNT 
BEQ 58 
CALL SeDETFPA 
ERROR +3 

5$: JMP 24(RS) 

HOP44 

TEST DIVF 

HOIVE: 

}1/EXPLAC] =F SRC=0 
MOV #2 ,Q0F LAG 
JSR R7 ,DVF SUB 
-WORD 100,27 
-WORD 0,0 
-WORD 100,27 
- WORD 000 
. WORD or 

WORD 
:2/AC*EXPLFSRCI=0 


;TRAPS ENABLED 
MOV #1,90FLAG 
JSR R7 ,DVF SUB 


; RETURN ADDRESS TO USE AS POINTER 
;SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

s;POINT TO FSRC DATA 


i 

;POINT TO ACO DATA 
;LOAD ACO iy TEST DATA 
;GET TEST FPS 
;LOAD TEST FPS 
a—- 


;SAVE 
;SET FPP TO DOUBLE 


;POINT TO RECEIVED DATA TABLE 
;SAVE ACO RESULT 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 
;SEE IF ACO REMAINS UNCHANGED 
;BRANCH IF ACO STAYS THE SAME 
;ACO=0 
:GO VERIFY DATA 
;POINT TO EXPECTED DATA 
;VERIFY DATA 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 

;RETURN 


7NO INTERRUPT, BUT FEC 
;D0 TEST 


‘RESULT 

; TEST FPS 
;RESULT FPS 
;FEC 


; INTERRUPT 
;D0 TEST 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


13566 066372 
13567 056376 
13568 066402 
13569 066406 
13570 066410 
13571 066412 


13612 066606 
13613 

13614 066610 
13615 066614 





004767 
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003030 


-WORD 0,0 
-WORD 100,0 
-WORD 0,0 
-WORD 0O 
-WORD 100000 
WORD 
;3/FSRC>ACO=0 
CLR 8¢FLAG 
JSR R7 , CVF SUB 
-WORD 177,234 
-WORD 4100,0 
-WORD 0,0 
= 7400 
7404 
1A/ACO>EXPUFSRC=0 
$1,98¢@FLAG 
use R7 ,OVF SUB 
.WORD 40200, 104210 
-WORD 125,25252 
-WORD 40200,104210 
-WORD 7557 
-WORD 107557 
-WORD 4 
:5/EXP([AC)=EXP(FSRC) 
CLR SF LAG 
JSR R7 ,OVF SUB 
-WORD 77760,-1 
-WORD 77760,0 
. WORD <a 104210 
. WORD 
WORD 7400 
6/AC=FSRC 
CLR LAG 
JSR R7 ,OVF SUB 
-WORD 52525,52525 
-WORD 52525.5252 
-WORD 40200,0 
-WORD 7400 
WORD 7400 
;7/FSRC>0<ACO, ROUND 
CLR BOFLAG 
JSR R7 ,OVF SUB 
. WORD 77777, 125252 
. WORD ° 
-WORD 77652,070707 
-WORD 7400 
-WORD 7400 
8/AC>0O<FSRC 
CLR O¢FLAG 
JSR R7 ,OVF SUB 
-WORD 55377,-1 
-WORD 55300,0 
-WORD 40252,125252 
-WORD O 
WORD 
;9/FSRC>AC>0 
a¢FLAG 


; TEST FPS 


;ACO 

;F SRC 
;RESULT 

; TEST FPS 
;sRESULT FPS 
sFEC 


3NO INTERRUPT 
;D0 TEST 


sRESULT FPS 


; INTERRUPT 


:00 TEST 
;ACO 
3F SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 
;FEC 


;NO INTERRUPT 
;D0 TEST 
co 


;RESULT FPS 


sNO INTERRUPT 
;D0 TEST 


;FSRC 
;RESULT 
; TEST FPS 
;sRESULT FPS 
;NO INTERRUPT 
;D0 TEST 
;RESULT 
;RESULT FPS 


;NO INTERRUPT 
;00 


SRESULT FPS 
;NO INTERRUPT 


TEST 





SEQ 0240 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


13678 
13679 067114 


a 


004767 


012737 


000101 
177777 
143527 


000002 
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003030 


003030 


SEQ 0241 

JSR R7 ,DVF SUB ;D0 TEST 

-WORD 64600,1 ;ACO 

-WORD 66600,0 ;F SRC 

-WORD 36200,1 ;RESULT 

-WORD 0O ; TEST FPS 

-WORD 0 ;RESULT FPS 
310/AC>FSRC>0 

CLR S¢FLAG ;NO INTERRUPT 

JSR R7 ,OVFSUB ;00 TEST 

-WORD 12345,156024 ;ACO 

-WORD 05600,0 :F SRC 

-WORD 44745,156024 ;RESULT 

-WORD 17 ; TEST FPS 

-WORD 0 ;RESULT FPS 
311/FSRC<0 

CLR O¢FLAG ;NO INTERRUPT 

JSR R7 ,OVF SUB ;00 TEST 

-WORD 40422,101010 ;ACO 

-WORD 140511,101010 7F SRC 

-WORD 140072,20167 ;RESULT 

-WORD 57 ; TEST FPS 

-WORD 50 ;RESULT FPS 
312/AC<0 

CLR 8¢FLAG ;NO INTERRUPT 

JSR R7 ,OVF SUB ;00 TEST 

-WORD 160077,101 ;ACO 

-WORD 40417,-1 :F SRC 

-WORD 157651,143527 ;RESULT 

-WORD 7 ; TE: FPS 

. WORD sRESULT FPS 
:13/TRUNCATE TEST 

CLR LAG ;NO INTERRUPT 

JSR R7 ,DVF SUB ;D0 TEST 

-WORD 60100,177 ;ACO 

-WORD 40300,0 ;F SRC 

-WORD 60000,124 ;RESULT 

-WORD 40 ; TEST FPS 

-WORD 40 ;RESULT FPS 
314/ROUND TEST 

CLR SF LAG :NO INTERRUPT 

JSR R7 ,DVF SUB ;D0 TEST 

-WORD 60100,177 ;ACO 

-WORD 40300,0 ;FSRC 

. WORD 000, ;RESULT 

. WORD ; TEST FPS 

-WORD O sRESULT FPS 
315/0VERFLOW, INTERRUPTS ENABLED 

MOV #1,8¢FLAG ; INTERRUPT 

JSR R7 ,OVF SUB ;00 TEST 

-WORD 177700,0 ;ACO 

-WORD 200,0 :F SRC 

-WORD 137700,0 ;RESULT 

-WORD 1100 ; TEST FPS 

-WORD 101112 ;sRESULT FPS 

-WORD 10 sFEC 
:16/0VERFLOW, TRAPS DISABLED 

MOV #2 ,80FLAG sNO INTERRUPT 








COKDAEO KDJ11-8 CLUSTER DIAG. 


FLOATING POINT 


13680 067122 


13692 067172 
13693 067176 
13694 067200 
13695 067202 
13696 


13697 067204 
13698 067212 
13699 067216 
13700 067222 
13701 067226 
13702 067232 
13703 067234 
13704 067236 
13705 

13706 067240 
13707 


13733 

13734 067304 
13735 067312 
13736 067314 


TESTS 


004767 
000290 
177700 
000000 
041100 
041104 
000010 


012737 


012605 


170102 


174414 
170001 


032737 


000116 
000000 


000000 
002000 


157716 


000242 


067326 
000200 


000004 
000014 


000001 
140132 





MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-223 


003030 


003030 


000244 


003030 


SEQ 0242 

JSR R7 ,DOVF SUB ;D0 TEST 

-WORD 200,0 3A 

-WORD 177700,0 - g FSRC 

-WORD 0,0 ;RESULT 

-WORD 41100 ; TEST FPS 

-WORD 41104 ;RESULT FPS 

.WORD 10 7FEC OVERFLOW 
;17/UNDERFLOW, TRAPS ENABLED, UV RESULT 

MOV #1,90FLAG ; INTERRUPT 

JSR R7 ,.DOVF SUB ;D0 TEST 

-WORD 100200,0 ;ACO 

.WORD 40377,-1 ;F SRC 

-WORD 100000,1 s;RESULT 

-WORD 2000 ; TEST FPS 

-WORD 102014 sRESULT FPS 

-WORD i2 ;FE 
;18/UNDERFLOW, TRAPS ENABLED, ROUND 

MOV , OOF LAG ; INTERRUPT 

JSR R7 ,DOVF SUB ;00 TEST 

-WORD 30325,25252 ;ACO 

-WORD 76777,23456 ;F SRC 

-WORD 71525,157716 ;RESULT 

-WORD 2537 ; TEST FPS 

-WORD 102500 ;RESULT FPS 

-WORD 12 3;FEC 


;GO TO NEXT TEST 


JMP HO 
3 eXaXaXaXaXaXaXa Xa Xa Xa XaXa Xa Xa aXe Ka Xa XaXaXaXaXaXaXaXaXaXaX 
3 a&XaXaXaXeaXaXaXe XaXa Xe XaXaXaXa Xa Xa XaXaXaXaXaXaXaXa Xa Xa Ka XaX 


s;DIVF SUBROUTINE : 


: ACO 

; FSRC 

$ FPS BEFORE EXECUTION 
; FPS AFTER EXECUTION 
; CFEC) 


; 
3 &XaXaXaXaXaXaXaXaXaXaXaXa Xe Xa XaXaXaXaXeXaXaVaXaXaXaXaXaXaX 
3 *#XaXaXaXaXaXaXaXaXaXeXaXaXaXaXeXaXeaXaXaXaXaXaXaXaXaXaXsXaX 


i 

DVFSUB: MOV CSP)+,R5 
MOV #50$ , BOF PVEC 
MOV #200 ,R2 
LOFPS Re 
MOV RS ,R4 
ADD $4 ,R4 
LOD (R5),ACO 
MOV 14(R5),R2 
LOFPS Re 

3 
DIVF CR4),ACO 

i$: SETF 

3 

; INSTRUCTION DIDNT TRAP 
BIT #1,3¢FLAG 
BEQ 2$ 
CALL SeDE TFPA 


; RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 
;SET TO DOUBLE MODE FOR LOAD 


;LOAD FPS 

;POINT TO FSRC DATA 
;LOAD ACO WITH TEST DATA 
;GET TEST FPS 

sLOAD TEST FPS 


s*#TEST INSTRUCTION 
;WAIT FOR POSSIBLE FPA TRAP. 


;VERIFY A NO TRAP CONDITION 
$$$ 


;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 








COKDAEO KDJ11-68 CLUSTER DIAG. 
FLOATING POINT TESTS 


13737 067320 
13738 
13739 067322 
13740 
13741 
13742 067326 
13743 067334 


13744 067336 
oeoat 067342 


13746 
13747 067344 
13748 067350 


13751 067360 
13752 067362 
13753 067366 
13754 


1 

13758 067370 
13759 067372 
13760 067376 
13761 067400 
13762 067404 
13763 067406 
13764 067412 
13765 067414 
13766 067420 
13767 

13768 067422 


13779 067462 
13780 067464 
13781 067470 
13782 067472 
13783 067474 
13784 067500 


5 
de 067502 
deny 067506 


13795 067506 


| 
L 


104003 
000167 


032737 
005 


170203 
012702 
170102 
012701 
174011 
026503 
001403 
004737 
104003 


000042 


000001 
140132 


000020 


067302 
140132 


000200 
003142 
000016 
140132 


000010 
050426 
113460 


140132 


003030 
000020 
000020 


140132 


000022 
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003030 


ERROR +3 ;FPP ERROR 
sINSTRUCTION SHOULD HAVE TRAPPED 
JMP 2$  gREJOIN CODE 
$ 
; INSTRUCTION TRAPPED 
50$: BIT #1 ,90F LAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ ;sREJOIN CODE 
51$: MOV (SP)+,R4 :SEE IF PC = INSTRUCTION 
TST CSP)+ ;CLEAN UP STACK 
CMP #1$,R4 ; 
BEQ 2$ ;BRANCH IF GOOD COMPARE 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;PC WAS INCORRECT 
;COMMON CODE FOR TRAP AND NO TRAP 
; 
2$: STFPS R3 ;SAVE FPS 
MOV #200 ,R2 ;SET FPP TO DOUBLE 
LDFPS Re2 
MOV #RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
STD ACO, CR1) ;SAVE ACO RESULT 
CMP 16(R5),R3 ;VERIFY STATUS 
BEQ 3$ :BRANCH IF GOOD 
CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FPS 
3$: MOV RS .R4 sPOINT TO EXPECTED DATA 
ADD #10,R4 
4$: JSR R7 ,.DATVFR ;VERIFY DATA 
TST COUNT 
BEQ 5$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:BAD ACO 
5$: TST S¢FLAG ;SEE IF NEED TO CHECK FEC 
BNE 6$ ;BRANCH IF NEED TO CHECK 
JMP 20(R5) sRETURN FROM TEST 
6$: STST 1 ;SAVE FE 
MOV 20(RS) ,R4 ;GET FEC 
CMP R4,R1 ;VERIFY FEC 
BEQ 7$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FEC 
7$: JMP 22(R5) sRETURN FROM TEST 
: 
HOP1O 


’ 
MDIVD: 








SEQ 0243 








COKDAEO KDJ11-6 CLUSTER DIAG. 
FLOATING POINT TESTS 


13796 
13797 
13798 067506 
13799 067514 
13800 067520 


067526 
13801 067530 
067536 
13802 067540 
067546 
13803 067550 
13804 067552 
13805 967554 


13806 
13807 067556 
13808 067564 
13809 067570 
067576 
13810 067600 
067606 
13811 067610 
067616 
13812 067620 
13813 067622 
13814 067624 
13815 
13816 067626 
13817 067632 
13818 067636 
067644 
13819 067646 
067654 
13820 067656 
067664 


13821 067666 
13822 067670 
13823 


13824 067672 
13825 067676 
13826 067702 
067710 
13827 067712 
067720 
13828 067722 
067730 
13829 067732 
13830 067734 
13831 
13832 067736 
13833 067742 
13834 067746 
067754 
13835 067756 
067764 
13836 067766 
067774 
13837 067776 


REE SE a A I 


012737 
004767 


004767 


000002 
000516 
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003030 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 


51/AC=FSRC=0 TRAPS DISABLED 
MOV $2, 90F LAG 


JSR R7. DVDSUB 
‘WORD 0,0,0,1 
.WORD 100,0,0,0 
.WORD 0,0,0,1 
WORD 40000 
"WORD 140000 
"WORD 4 

;2/FSRC=0, TRAPS ENABLED 
MOV #1, 90FLAG 
JSR R7, DVDSUB 
“WORD 402,0,0,0 
. WORD 0,0,0,0 
.WORD 402,0,0,0 
WORD 200 
“WORD 100200 
"WORD 4 

;3/7ROUND 
CLR SeFLAG 
JSR R7 ,DVDSUB 
"WORD  34300,0,0,1 
.WORD  140300,0,0,0 
.WORD 134200,0,0,1 
.WORD 200 
“WORD 210 

;4/TRUNCATE 
CLR SéFLAG 
JSR R7 ,OVDSUB 
‘WORD 34300,0,0,1 
.WORD  140300,0,0,0 
-WORD  134200,0,0,0 
.WORD 240 
"WORD 250 

:5/ROUND NEGATIVE AC, FSRC 
CLR @eFLAG 
JSR R7 ,DVDSUB 
“WORD 177642,0,0,151 
.WORD  166600,0,0,123 
.WORD 51242,0,0,0 
.WORD 200 


;NO INTERRUPT 


300 TEST 
;ACO 


;F SRC 
;RESULT 


; TEST FPS 
;RESULT FPS 
;FEC 


; INTERRUPT 


;D0 TEST 
;ACO 


;F SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 
;FEC 
;NO INTERRUPT 
;D0 TEST 
;ACO 
;F SRC 
;RESULT 


; TEST FPS 
;RESULT FPS 


3NO INTERRUPT 
:00 TEST 

;ACO 

3F SRC 

;RESULT 


; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 
;F SRC 
;RESULT 
; TEST FPS 





SEQ 0244 


: 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


See Alena 
13840 070002 005037 003030 
13841 070006 004767 000224 
13842 070012 177642 0900000 
070020 000151 
13843 070022 1 000000 
070030 000123 
13844 070032 051241 177777 
070040 177777 
13845 070042 000240 
13846 070044 000240 
13847 
13848 070046 005037 003030 
13849 070052 004767 160 
13850 070056 055521 047621 
070064 177777 
13851 070066 055521 047621 
070074 177777 
13852 070076 040200 000C%0 
070104 000000 
13853 070106 007717 
13854 070110 007700 
13855 
13856 070112 012737 000001 
13857 070120 004767 000112 
13858 070124 100200 00 
70132 000000 
13859 070134 077777 000000 
070142 000000 
13860 070144 140400 100200 
70152 100201 
13861 070154 002200 
13862 070156 102210 
13863 070160 0012 
13864 
13865 070162 012737 000001 
13866 070170 004767 000042 
13867 070174 077000 123465 
070202 000525 
13868 070204 000303 000001 
070212 140001 
13869 070214 036650 1635002 
070222 064005 
13870 070224 001700 
13871 070226 101702 
saaee 070230 000010 
£3874 070232 000167 000242 
13875 
13876 
13877 
13878 
13879 
13880 
3881 
13882 
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000000 
000000 
177777 


100333 
100333 
000000 


003030 
000000 
000000 
100200 


003030 
012346 
140000 
103645 


-WORD 200 sRESULT FPS 
;6/TRUNCATE NEAGTIVE AC, FSRC 

CLR SOFLAG ;NO INTERRUPT 

JS R7 ,OVDSUB ;00 TEST 

-WORD 177642,0,0,151 ;ATO 

-WORD 166600,0,0,123 ;FSRC 

-WORD 51241,-1,-1,-1 ;RESULT 

-WORD 240 ; TEST FPS 

-WORD 240 ;RESULT FPS 
;7/AC=FSRC 

CLR QeFLAG sNO INTERRUPT 

JSR R7 ,OVDSUB ;00 TEST 

-WORD 55521,47621,100333,-1 ;ACO 

-WORD 55521,47621,100333,-1 ;F SRC 

.WORD 40200,0,0,0 sRESULT 

-WORD 7717 ; TEST FPS 

-WORD 7700 ;RESULT FPS 
;8/UNDERFLOW TRAPS ENABLED, UV RESULT 

MOV #1,00FLAG : INTERRUPT 

JSR R7 ,OVDSUB ;00 TEST 

«WORD 100200,0,0,0 ;ACO 

-WORD 140400,100200,100200,100201 ;RESULT 

-WORD 2200 ; TEST FPS 

-WORD 102210 sRESULT FPS 

-WORD i2 :FEC 
;9/0VERFLOW TRAPS ENABLED 

MOV #1 ,80FLAG ; INTERRUPT 

JSR R7 ,DVOSUB 300 TEST 

. WOR 77000, 123465 , 12346 ,525 ;ACO 

-WORD 36650, 163002,103645,64003 ;RESULT 

«WORD 1700 ; TEST FPS 

-WORD 101702 s;RESULT FPS 

-WORD 10 ;FEC 





JMP sHOP OVER SUBROUTINE 
3 XeXaXaXaXeXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeX 
3 aXaXaXaXeXaXaXaXeXaXaXaXaXaXaXeXaXaXeXaXaXaXaXaXaXaXaXaXeX 


; 
;DIVD sUBROUTINE : 


ACO 
FSRC 
FPS BEFCRE EXECUTION 
FPS AFTER EXECUTION 





SEQ 0245 





COKDAEO KOJ11-B8 CLUSTER DIAG. 


13887 


13897 
43898 070272 
13399 070274 


13903 070276 
13904 070304 
13905 070306 
13906 070312 


13907 
13908 070314 
13909 
13910 
13911 
13912 070320 
13913 070326 


13914 070330 
13915 070334 
$916 


1 

13917 070336 
13918 070342 
13919 070344 


13929 070364 
13930 070370 


13935 070406 
13936 070412 
13937 

13938 070414 
13939 070416 


hi. 


FLOATING POINT TESTS 


170102 


174414 
170000 


032737 


070320 
000200 


000010 
000030 


000001 
140132 


000042 
000001 
140132 
000020 


070274 
140132 


003142 
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000244 


003030 


003030 


i (FEC) 


SEQ 0246 


; 
3 *@XaXeXeXaXaXaXeXeXaXaXaXaXaXeXaXeXaXaXaXaXeXeXaXaXaXaXeXex 
3; #XaXeXaXaXaXeXeXaXaXeXaXaXaXaXeXaXaXaXeaXeXeXaXeXeaXaXeXeXeX 


; 
DVDSUB: MOV (SP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
MOV #50$ , BOF PVEC ;sREDIRECT TRAP VECTOR 
MOV #200 ,R2 ;SET = DOUBLE MODE FOR LOAD 
LOFPS ;LOAD FPS 
MOV R5.R4 ;POINT TO FSRC DATA 
ADD #10,R4 
DD CRS) ,ACO ;LOAD ACO WITH TEST DATA 
MOV 30(R5).R2 ;GET TEST FPS 
LOFPS Re ;LOAD TEST FPS 
; . 
DIVO CR4),ACO ;*#TEST INSTRUCTION 
1$: CFCC ;sWAIT FOR POSSIBLE FPA TRAP. 
; 
s INSTRUCTION DIONT TRAP 
; 
BIT #1 ,80FLAG ;VERIFY A NO TRAP CONDITION 
BEQ 2s ;BRANCH IF GOOD 
CALL BEDE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2$ sREJOIN CODE 
; 
s INSTRUCTION TRAPPED 
; 
50$: BIT #1 ,80FLAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL SeDETFPA sCETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ sREJOIN CODE 
518: MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 
TST (SP)+ — UP STACK 
CMP #13,R4 
BEQ 2s S BRANCH IF GOOD COMPARE 
CALL BEDE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;PC WAS INCORRECT 
; 
;sCOMMON CODE FOR TRAP AND NO TRAP 
; 
2$: STFPS R3 sSAVE FPS 
MOV #200 ,R2 :SET FPP TO DOUBLE 
LOFPS R2 
MOV @RECDST,R1 sPOINT TO = DATA TABLE 
STD ACO, (R1) sSAVE ACO RESUL 
CMP 32(R5).R3 ;VERIFY STATUS 
BEQ 3% ;BRANCH IF GOOD 
CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $88 
ERROR +3 ;FPP ERROR 
;BAD FPS 
33: MOV R5 .R4 sPOINT TO EXPECTED DATA 
ADD @20 ,R4 
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SEQ 0247 
FLOATING POINT TESTS 
13940 070422 004767 047452 4$: JSR R7,DATVER ;VERIFY DATA 
13941 070426 005767 112466 TST COUNT 
13942 070432 001403 BEQ S$ | ;BRANCH IF GOOD 
13943 070434 004737 140132 CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
13944 070440 104003 ERROR +3 ;FPP ERROR 
13945 :BAD ACO 
13946 070442 005737 003030 S$: TST SeFLAG ;SEE IF NEED TO CHECK FEC 
13947 070446 001002 BNE 6$ sBRANCH IF NEED TO CHECK 
13948 070450 000165 000034 JMP 34(R5) ;RETURN FROM TEST 
13949 070454 170301 6$: STST Ri sSAVE FEC 
13950 070456 016504 000034 MOV 34(R5),R4 ;GET FEC 
13951 070462 020401 CMP R4,R1 ;VERIFY FEC 
13952 070464 001403 BEQ 7$ ;BRANCH IF GOOD 
13953 070466 004737 140132 CALL BeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
954 070472 104003 ERROR +3 ;FPP ERROR 
13955 ;BAD FEC 
oe 070474 000165 000036 7$: JMP 36(R5) ;RETURN FROM TEST 
13958 070500 HOP11 
13961 ; 
13962 Poet e secon ssesroascneeseseoncccoes 
13963 ;TEST MULF 
13964 : 
13965 070500 MMULF : 
13966 : 
13967 31/ACO=FSRC=0 -INTERRUPTS DISABLED 
13968 070500 005037 003030 CLR SeFLAG ;NO INTERRUPT 
13969 070504 004767 000564 JSR R7 ,MLF SUB :D0 TEST 
13970 070510 000000 -WORD 0,0 3;ACO 
13971 070514 000000 000000 -WORD 0,0 3F SRC 
13972 070520 000000 000000 -WORD 0,0 ;RESULT 
13973 070524 007517 -WORD 7517 ; TEST FPS 
13974 070526 007504 -WORD 7504 sRESULTANT FPS 
13975 ;2/AC>FSRC=0 - INTERRUPTS ON 
1*276 070530 005037 003C30 LR 3NO INTERRUPT 
13977 070534 004767 000534 JSR R7 .MLF SUB :00 TEST 
13978 070540 000200 000000 WORD 200.0 +#;ACO 
13979 070544 000000 00 -WORD 0,0 sF SRC 
13980 070550 000000 000000 -WORD 0,0 ;RESULT 
13981 070554 000013 -WORD 13 ; TEST FPS 
13982 070556 000004 -WORD 4 sRESULTANT FPS 
13983 33/AC#0 FSRO>O - 
13984 070560 005037 003030 K SeFLAG 3NO INTERRUPT 
13985 070564 004767 000504 JSR R7 ,.MLF SUB ;D0 TEST 
13986 070570 000100 000000 -WORD 100,0 ;ACO 
13987 070574 000300 000000 -WORD 300,90 ;F SRC 
15988 070600 000000 000900 -WORD 0,0 ;RESULT 
13989 070604 007500 -WORD 7500 ; TEST FPS 
£3990 070606 007504 -WORD 7504 ;RESULTANT FPS 
13991 34/AC=1 >FSRC - ROUND 
33992 070610 005037 003030 CLR 3NO INTERRUPT 
33993 070614 004767 000454 JSR R7 ,MLF SUB ;D0 TEST 
13994 070620 040200 000000 -WORD 40200,9 ;ACO 
13995 070624 040177 177777 -WORD 40177,-1 3F SRC 
13996 070630 040177 177777 -WORD 40177,-1 ;RESULT 
13997 070634 000000 -WORD 0 ; TEST FPS 
13998 070636 000000 -WORD 0 sRESULTANT FPS 








COKDAEO KDOJ11-68 CLUSTER DIAG. 
FLOATING POINT TESTS 


14053 
14054 
14¢55 


070714 
070716 


070720 
070724 


071106 


125252 


177776 


177776 
177776 


75/TRUNCATE 
CLR SOFLAG 
JSR R7 ,MLF SUB 
-WORD 40177,-1 
-WORD 40200,0 ;FSRC 
-WORD 40177,-1 
«WORD §9 
-WORD 40 
;6/NORMALIZE 
CLR BeFLAG 
JSR R7 .MLF SUB 
-WORD 40100,0 ;ACO 
-WORD 40100,0 ;FSRC 
-WORD 40020,0 
-WORD 12 
-WORD 0 
3; 77/ROUND 
CLR BeFLAG 
JSR R7 ,MLF SUB 
-WORD 17500,0 ;ACO 
-WORD 23652,125252 
. WORD 317 "i 
-WORD 7417 
WORD 7400 
;8/AC>O>FSRC ROUND 
CLR 8eFLAG 
JSR R7 ,MLF SUB 
. WORD 40342,-1 
-WORD 176543,025252 
-WORD 176711,67324 
-WORD 7500 
WORD 7510 
s9/ZAC<F SRE<O, ROUND 
CLR @OFLAG 
JSR R7 ,MLF SUB 
-WORD 144600,0 
-WORD i -9 
-WORD 60400,0 
-WORD 17 
-WORD 9O 
:10/AC<FSRC, ROUND 
CLR @OFLAG 
JSR R7 ,MLF SUB 
-WORD 60000,0 
-WORD 140377,177776 
-WORD 160177,177776 
WORD #4 
WORD 
:11/AC>O>FSRC, TRUNCATE 
CLR @OFLAG 
JSR R7 ,.MLF SUB 
. WORD 60000, 0 
-WORD 140377,177776 
-WORD 160177,177776 
-WORD 7547 
WORD 


. 7550 
;12/UNDERFLOW, NO INTERRUPTS 
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sNO INTERRUPT 


300 TEST 
sACO 

;RESULT 
; TEST FPS 


sRESULTANT FPS 
;NO INTERRUPT 
;00 T 


sRESULT 
; TEST FPS 
sRESULTANT FPS 


3NO INTERRUPT 
0 TEST 


sF SRC 

;RESULT 

; TEST FPS 
sRESULTANT FPS 


;NO INTERRUPT 
;D0 


TEST 
ACO 
sF SRC 
;RESULT 
; TEST FPS 


;RESULTANT FPS 


sNO INTERRUPT 
ot TEST 


; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 
;00 TEST 
;ACO 


;F SRC 

sRESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 
TEST 


;ACO 
;F SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 


SEQ 0248 





COKDAEO KDJJ1-8 CLUSTER DIAG. 


FLOATING POINT 
Pte 071110 


~N 
°o 
~~ 
~ 
~ 
~ 
o 


071142 


071144 
071152 
071156 
071162 
071166 
071172 
071174 
071176 


071270 


071274 


071322 


TESTS 


012737 
004767 


012605 


177777 


000242 


071356 
000200 


000004 
000014 
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003030 


003030 


003030 


003030 


000244 





MOV @2,80FLAG 
JSR R7 ,MLF SUB 
-WORD 200,1 
-WORD  200,1 
-WORD 40200,2 
-WORD 42117 
-WORD 142100 
-WORD 12 
;13/0VERFLOW, TRAP 
MOV #1 ,980FLAG 
JSR R7 ,MLF SUB 
-WORD 177777,-1 
-WORD 40300,0 
-WORD 100077,-1 
-WORD 1117 
-WORD 101116 
. WORD 0 
314/0VERFLOW NO TRAP 
MOV $2 ,80F LAG 
JSR R7 ,MLF SUB 
-WORD 77700,0 
-WORD 77700,0 
-WORD 0,0 
-WORD 40117 
-WORD 40106 
-WORD 10 
315/UNDEFINED VARIABLE IN FSRC, 
MOV $1,80FLAG 
JSR R7 ,MLF SUB 
-WORD 123465,0 
-WORD 100022,0 
-WORD 123465,0 
-WORD 4000 
-WORD 104000 
-WORD 14 


SEQ 0249 


;NO INTERRUPT 
;00 TEST 


;RESULT 

; TEST FPS 
;sRESULT FPS 
3FEC 


; INTERRUPT 
300 TEST 
;ACO 


;F SRC 

;RESULT 
; TEST FPS 
sRESULT FPS 
sFEC 


;NO INTERRUPT 
;D0 TEST 


sRESULT 
; TEST FPS 
sRESULT FPS 
;FEC 
TRAP ENABLED 
; INTERRUPT 


;RESULT 
; TEST FPS 
sRESULT FPS 
3FEC 


JMP 
3 *XaXeXeXaXaXaXaXaXaXeXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaXaXeXaX 
3 #XaXaXaXeXaXaXeXeXaXeXaXaXeXeXaXaXaXeXeXaXaXaXeXeXaXeXaXaX 


ACO 
FSRC 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


(FEC) 


3 *XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaX 
5 *&XaXaXeXaXaXeXaXaXaXaXaXaXaXeXaXaXa Xa Xa XaXaXaXaXaXaXaXaXaX 


MLFSUB: MOV 
MOV 


(SP)+,R5 
$50$ , @eF PVEC 
#200 ,R2 


04 ,R4 
14(R5),R2 


; RETURN ADDRESS TO USE AS POINTER 
;REDIRECT TRAP VECTOR 

;SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

;LOAD ACO WITH TEST DATA 

;POINT TO FSRC DATA 


;GET TEST FPS 








COKDAEO KDJ11-B CLUSTER DIAG. 

FLOATING POINT TESTS 
14113 071326 
14114 


071372 
071374 


071416 


071420 


071476 
071500 


071504 
071506 


071512 


170102 


171014 
170001 


032737 


170301 


000001 
140132 


000042 


000001 
140132 


000020 


071332 
140132 


000200 
003142 
000016 
140132 


000010 
046376 
111430 


140132 


003030 
000020 
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003030 


003030 


LOFPS R2 

: 
MULF CR4),ACO 

i$: SETF 

’ 

s INSTRUCTION DIDNT TRAP 
BIT $1,80FLAG 
BEQ 2$ 
CALL BeDETFPA 
ERROR +3 
JMP 2$ 

2 

s INSTRUCTION TRAPPED 

rf 

50$: BIT #1,9@FLAG 
BNE 5i$ 
CALL SeDETFPA 
ERROR +3 
JMP 2$ 

51$: MOV CSP)+,R4 
TST CSP)+ 
CMP $1$,R4 
BEQ 2$ 
CALL BEDE TFPA 
ERROR +3 


SEQ 0250 


;LOAD TEST FPS 


;*#TEST INSTRUCTION 
;WAIT FOR POSSIBLE FPA TRAP. 


;VERIFY A NO TRAP CONDITION 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
; INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


;SEE IF EXPECTING A TRAP 

sBRANCH IF EXPECTING A TRAP 

;DETERMINE FLOATING POINT FAULT. $$$ 
FPP ERROR 
sINSTRUCTION WASNT SUPPOSE TO TRAP 

sREJOIN CODE 

s;SEE IF PC = INSTRUCTION 

sCLEAN UP STACK 


é 
sBRANCH IF GOOD COMPARE 
ep ;DETERMINE FLOATING POINT FAULT. $$$ 


P ERROR 
sPC WAS INCORRECT 


; 
;COMMON CODE FOR TRAP AND NO TRAP 


2$: STFPS R3 
MOV #200 ,R2 
LDFPS Re 
MOV @RECDST,R1 
STO ACO, (R1) 
CMP 16(RS),R3 
BEQ 3$ 
CALL BEDETFPA 
ERROR +3 
3$: MOV RS ,R4 
ADD #10,R4 
4$: JSR R7 ,DATVFR 
TST COUNT 
BEQ S$ 
CALL SeDETFPA 
ERROR +3 
5$: TST @eFLAG 
BNE 6$ 
JMP 20(R5) 
;VERIFY ERROR STATUS 
6$: STST Ri 


;SAVE FPS 
;SET FPP TO DOUBLE 


;POINT TO RECEIVED DATA TABLE 

;SAVE ACO RESULT 

;VERIFY STATUS 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD FPS 

;POINT TO EXPECTED DATA 


;VERIFY DATA 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 

;SEE IF NEED TO CHECK FEC 

;BRANCH IF NEED TO CHECK 

;RETURN FROM TEST 


;SAVE FEC 








COKDAEO KDJ11-6 CLUSTER DIAG. 
FLOATING POINT TESTS 


071514 
071520 
071522 
071524 
071530 


071532 
071536 


071710 


071712 
071716 
071722 
071730 
071732 
071740 
071742 
071750 
071752 


000020 


140132 


000022 


003030 
000554 
000000 
177777 


000000 


003030 
000444 
000000 
177777 


177777 


177777 
177777 
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000000 
000000 
000000 


000000 
000000 
000000 


000000 
177777 
177777 


000000 
177777 
177777 


20(R5).R4 


7$ 
BODE TFPA 


ad 


22(R5) 


;GET FEC 


;VERIFY FEC 
sBRANCH IF GOOD 
sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD FEC 
;RETURN FROM TEST 


$ 
MMULD: 
; 
31/AC=0 
CL 


JSR 
. WORD 


.WORD 

. WORD 

. WORD 

. WORD 
;2/FSRC=0 

CLR 


JSR 
. WORD 


. WORD 
. WORD 
.WORD 
. WORD 
33/AC=1 
CLR 
JSR 
. WORD 
. WORD 
. WORD 
.WORD 
. WORD 
34/AC>FSRO>0, 
CLR 
JSR 
. WORD 
. WORD 
. WORD 
. WORD 


QeFLAG 

R7 ,MLOSUB 
100,0,0,0 
411,-1,0,1 
0,0,0,0 


200 
204 


SOF LAG 

R7 .MLDSUB 
77777,9,9,90 
0,9,0,0 sF SRC 
0,0,0,0 


7700 
7704 


SeFLAG 
R7 ,MLOSUB 
40200,0,0,0 
277, -1, -i, -1 
277, «i of, -1 
7717 
7700 

TRUNCATE 
S¢FLAG 
R7 ,MLOSUB 
65500,0,0,1 
37577, -1,-l1, -2 
65077,-1,-1,-1 
7717 


;NO INTERRUPT 
;00 TEST 

;ACO 

;F SRC 

;RESULT 


; TEST FPS 
sRESULTANT FPS 


;NO INTERRUPT 
;00 TEST 
;ACO 


;RESULT 


; TEST FPS 
;RESULTANT FPS 


3NO INTERRUPT 


ACO ;D0 TEST 
;F SRC 

;RESULT 
; TEST FPS 


;RESULTANT FPS 
;NO INTERRUPT 
;D0 TEST 
;ACO 
;F SRC 
;RESULT 
; TEST FPS 





SEQ 0251 


a 





COKDAEO KDJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 

071754 
8 





i 
14253 
14254 


34255 
14256 


14257 
14258 


072202 
072206 
072212 
072220 
072222 
072230 
072232 
072240 
072242 
072244 


007700 


003030 
000334 
177777 
000000 


000000 


003030 
000270 
000000 
125252 


177777 


003030 
000224 


000001 


003030 
000110 
177777 
177777 


000000 
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177777 
000000 
000000 


000090 
125252 
177777 


000000 
000002 
000000 


003030 
000002 
000001 
077403 


177777 
177777 
000000 


-WORD 7700 ;RESULTANT FPS 
35/AC<FSRC<O 

CLR SeFLAG ;NO INTERRUPT 

JSR R7 ,MLDSUB ;00 TEST 

-WORD 137577,-1,-1,-2 ;ACO 

. WORD 165400 ,O se 1 :F SRC 

-WORD 65000,0,0,0 ;RESULT 

-WORD 7717 ; TEST FPS 

-WORD 7700 ;RESULTANT FPS 
:6/AC>FSRC>0 

CLR Q¢FLAG ;NO INTERRUPT 

JSR R7 ,MLDOSUB ;00 TEST 

.WORD 17500,0,0,0 ;ACO 

-WORD 123652,125252,125252,125252 ;F SRC 

-WORD 103177,-1,-1,-1 ;RESULT 

-WORD 200 ; TEST FPS 

-WORD 210 ;RESULTANT FPS 
;7/UNDERFLOW, TRAPS DISABLED 

CLR SOFLAG ;NO INTERRUPT 

JSR R7 ,MLOSUB ;D0 TEST 

WORD 300,0,0,252 ;ACO 

-WORD 377,1.2.3 :F SRC 

. WORD 0,0,0,0 ;RESULT 

-WORD 5740 ; TEST FPS 

-WORD 5744 ;RESULT FPS 
;8/UNDERFLOW, TRAP ENABLED 

MOV #1 ,89F LAG : INTERRUPT 

JSR R7 ,MLDSUB ;D0 TEST 

. WORD 100277,1.2.,-1 ;ACO 

- WORD 100300,1.1,1 ;FSRC 

-WORD 40417,40001,77403,0 ;RESULT 

-WORD 2217 ; TEST FPS 

-WORD 102200 ;RESULT FPS 

-WORD 12 ;FEC 
;9/OVERFLOW, TRAPS DISABLED 

CLR SeFLAG ;NO INTERRUPT 

JSR R7 ,MLOSUB ;00 TEST 

-WORD -1,-1,-1,-1 ;ACO 

-WORD 40200,-1,-1,-1 :F SRC 

-WORD 0,0,0,0 ;RESULT 

-WORD 6740 s TEST FPS 

-WORD 6746 ;RESULT FPS 


SEQ 0252 





COKDAEO KOJ11-B CLUSTER DIAG. 
FLOATING POINT. TESTS 


14259 
14260 
1426 

14262 
14263 


- 


14310 
14311 
14312 


072246 


o 


072314 
072316 


072322 


072372 
072376 


072400 


072422 
072426 


012737 


170102 


171011 
170011 


032737 


000001 
000042 
025252 


000000 
017777 


000242 


072404 
000200 


000010 
000030 


000001 
140132 


000042 


000001 


140132 


000020 
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117777 


000244 


003030 


003030 


SEQ 0253 
;10/0VERFLOW, TRAPS ENABLED 
MOV #1, 80FLAG ; INTERRUPT 
JSR R7 ,MLOSUB , :00 TEST 
.WORD 157700 ,25252 ,.25252 .25252 ;ACO 
. WORD 167700,0,0,0 ;F SRC 
. WORD 7420 ,017777,117777,117777 ;RESULT 
.WORD 1240 ; TEST FPS 
.WORD 101242 ;RESULT FPS 
. WORD 10 ;FEC 
; 
JMP HOP13 
3 #XaXaXaXeXaXaXaXaXaXaXaXa Xa XaXeXaXKaXaXaXaXaXaXaXaXa Xe Xa XaX 
3 *&XaXaXaXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXKaXaXKaXe XaX aKa Xa Xa X 
; 
: ACO 
; FSRC 
; FPS BEFORE EXECUTION 
: FPS AFTER EXECUTION 
; (FEC) 
; 
3 &XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXe Ka Xa XaXaXeX 
3 eXaXaXaXaXaXaXaXaXaXaXaXa) « XaXaXaXaXa Xa XaXaXaXaXaXaXaXaXaX 
; 
MLOSUB: MOV CSP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
MOV #50$ , BaF PVEC ;sREDIRECT TRAP VECTOR 
V #200 ,R2 ;SET TO DOUBLE MODE FOR LOAD 
LOFPS ;LOAD FPS 
LOO CR5),ACO ;LOAD ACO WITH TEST DATA 
MOV R5,.R1 * ;sPOINT TO FSRC DATA 
ADD #10,R1 
MOY 30(R5),R2 ;GET TEST FPS 
LDFPS R2 ;LOAD TEST FPS 
; 
MULD (R1i),ACO :*TEST INSTRUCTION 
1$: SETD ;WAIT FOR POSSIBLE FPA TRAP. 
; 
sINSTRUCTION DIDNT TRAP 
; 
BIT $1,3¢FLAG ;VERIFY A NO TRAP CONDITION 
BEQ 2$ ;BRANCH IF GOOD 
CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
sINSTRUCTION SHOULD HAVE TRAPPED 
JMP 2$ :REJOIN CODE 
; 
s INSTRUCTION TRAPPED 
; 
50$: BIT #1 ,9@FLAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ ;sREJOIN CODE 
Sis: MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 








COKDAEO KOJ11-B CLUSTER DIAG. 
FLOATING POINT 
14313 072430 


0 
14371 


072472 


1 072560 


072564 


TESTS 


104003 
000165 


072360 
140132 


000200 
003142 
000032 
140132 


140132 


003030 
000034 


000034 


140132 


000036 


003030 
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SEQ 0254 


TST (SP)+ ;CLEAN UP STACK 
CMP #1$,R4 ; 
BEQ 2$ ;BRANCH IF GOOD COMPARE 
CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;PC WAS INCORRECT 
; 
;COMMON CODE FOR TRAP AND NO TRAP 
2$: STFPS R3 ;SAVE FPS 
MOV #200 ,R2 ;SET FPP TO DOUBLE 
LDFPS Re2 
MOV #RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
STD ACO, (R1) ;SAVE ACO RESULT 
CMP 32CR5),R3 ;VERIFY STATUS 
BEQ 3$ ;BRANCH IF GOOD 
CALL QeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FPS 
3$: MOV RS ,R4 ;POINT TO EXPECTED DATA 
ADD #20,R4 
4$: JSR R7 ,DATVER ;VERIFY DATA 
TST COUNT 
BEQ S$ ;BRANCH IF GOOD 
CALL QeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:BAD ACO 
5$: TST 8¢FLAG ;SEE IF NEED TO CHECK FEC 
BNE 6 ;BRANCH IF NEED TO CHECK 
JMP 34(R5) ;RETURN FROM TEST 
;VERIFY ERROR STATUS 
6$: STST Ri ;SAVE FEC 
MOV 34CR5) ,R4 ;GET FEC 
CMP R4,R1 ;VERIFY FEC 
BEQ 7$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:BAD FEC 
7$: JMP 36(R5) ;RETURN FROM TEST 
HOP13 
; 
; “ss ee e« e@eeeaecaeaaetceeaeee eee ee eee wee e eee ee 
;TEST MODF 
MMODF : 
; 
31/AC=0 FSRC=0 
CLR @¢FLAG ;NO INTERRUPT 
JSR R7 , MDF SUB 300 TEST 
-WORD 100,0 ;ACO 
. WORD »-1 :F SRC 
WORD 0,0 ;FRACTIONAL RESULT 
-WORD 0,0 ;INTEGER RESULT 
-WORD 13 ; TEST FPS 
-WORD 4 ;RESULTANT FPS 
;2/FSRC=0 
CLR a¢FLAG ;NO INTERRUPT 








COKDAEO KDJi1-6 CLUSTER DIAG. 
FLOATING POINT 
14372 072624 


14373 


14428 


| 
Lo 


072630 
0726 


072714 


072742 


072744 
072750 
072754 
072760 
072764 
072770 
072774 
072776 


TESTS 


000520 
177777 
000000 





JSR R7 , MOF SUB ;D0 TEST 

-WORD 12356,-1 ;ACO 

-WORD 0,0 ;F SRC ! 

. WORD ° sFRACTIONAL RESULT 

-WORD 0,0 ; INTEGER RESULT 

-WORD 3 ; TEST FPS 

WORD 4 sRESULTANT FPS 
;3/AC=0 

CLR 8¢FLAG ;NO INTERRUPT 

JSR R7 , MOF SUB ;D0 TEST 

. WORD .0 ;ACO 

-WORD -1,-1 sF SRC 

-WORD 0,0 sFRACTIONAL RESULT 

-WORD 0,0 s INTEGER RESULT 

.WORD 7500 ; TEST FPS 

-WORD 7504 ;RESULT FPS 
;4/AC>FSRC>0 

CLR 8¢FLAG ;NO INTERRUPT 

JSR R7 , MOF SUB ;00 TEST 

-WORD 46252,125252 ;ACO 

-WORD 40300,0 ;FSRC 

-WORD 0,0 sFRACTIONAL RESULT 

-WORD 46377,-1 s INTEGER RESULT 

-WORD 13 ; TEST FPS 

-WORD 4 ;sRESULTANT FPS 
35/AC>FSRC>0 

CLR 8eFLAG ;NO INTERRUPT 

JSR R7 ,MOF SUB ;D0 TEST 

-WORD 77652,125252 ;ACO 

. WORD 300,0 ;FSRC 

-WORD 0,0 ;FRACTIONAL RESULT 

-WORD 77777,-1 s INTEGER RESULT 

-WORD 0 ; TEST FPS 

-WORD 4 ;RESULTANT FPS 
;6/AC>0<FSRC, INTEGERS 

CLR SeFLAG ;NO INTERRUPT 

JSR R7 , MOF SUB ;D0 TEST 

-WORD 60600,0 ;ACO 

-WORD 147400,25700 sF SRC 

-WORD 0,0 sFRACTIONAL RESULT 

-WORD 170000,25700 ; INTEGER RESULT 

-WORD 7400 ; TEST FPS 

-WORD 7404 ;RESULT FPS 
37/AC<O<FSRC, FRACTIONAL 

CLR 8eFLAG ;NO INTERRUPT 

JSR R7 , MOF SUB 300 TEST 

-WORD 100227,-1 ;ACO 

-WORD 44025,25252 

-WORD 104061,21251 

-WORD 0,0 s INTEGER RESULT 

-WORD 0 ; TEST FPS 

-WORD 10 ;RESULT FPS 
;8/AC<O>FSRC, TRUNCATE 

CLR S¢FLAG 3NO INTERRUPT 

JSR R7 , MOF SUB ;D0 TEST 

-WORD 46252,125252 ;ACO 

. WORD 0 ° ;F SRC 
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;F SRC 
sFRACTIONAL RESULT 





SEQ 0255 





COKDAEO KOJ11-8 CLUSTER DIAG. 
FLOATING POINT 


ae. ae 


073110 


073122 


073124 
073130 


073254 


073340 
073342 


073344 


TESTS 


000000 
177777 


000310 
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003030 


-WORD 0,0 
-WORD 46377,-1 
. WORD 3 
. WORD 
;9/ROUND INTEGER 
CLR @¢FLAG 
JSR R7 , MOF SUB 
-WORD 46252,125252 
-WORD 40300,0 
-WORD 0,0 
-WORD 46377,-1 
-WORD 13 
-WORD 4 
:10/TRUNCATE FRACTION 
CLR SeFLAG 
JSR R7 , MOF SUB 
-WORD 40777,-1 
-WORD 40200,0 
-WORD 40177,177770 
-WORD 40740,0 
. WORD 
-WORD 0 
311/ROUND INTEGER 
CLR O¢FLAG 
JSR R7 , MF SUB 
-WORD 0,0 
-WORD 0,0 
-WORD 0,0 
-WORD 0,0 
-WORD 0 
-WORD 4 
;12/ROUND FRACTION 
CLR 8GFLAG 
JSR R7 , MOF SUB 
-WORD 40225,125252 
. WORD 2, 5 
-WORD 0,0 
-WORD 66707,25160 
-WORD 7027 
-WORD 7004 
; OVERFLOW 
MOV 41 ,90FLAG 
JSR R7 , MDF SUB 
-WORD 76000,0 
-WORD 76000,0 
. WORD 0 
-WORD 33600,0 
-WORD 1000 
-WORD 101006 
-WORD 10 
; 
JMP HOP14 


; 
3 *XaXaXaXaXaXaXaXaKaXeXaXaXeXaXaXaXeXaXaXaXeXaXa Xa Xa Xa Xa XaX 
3 eXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaXaXaXa Xa XaXa Xa XaXeXaX 


ACO 


sFRACTIONAL RESULT 

; INTEGER RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
;00 TEST 
;ACO 


;F SRC 
sFRACTIONAL RESULT 
s INTEGER RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 


;F SRC 

sFRACTIONAL RESULT 
; INTEGER RESULT 
; TEST FPS 
;RESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 


;F SRC 

sFRACTIONAL RESULT 
: INTEGER RESULT 

; TEST FPS 

sRESULT FPS 


;NO INTERRUPT 
;00 TEST 
;ACO 


3F SRC 
sFRACTIONAL RESULT 

; INTEGER RESULT 
; TEST FPS 
sRESULT FPS 


; INTERRUPT 
;D0 TEST 
;ACO 


;F SRC 

;FRACTIONAL RESULT 
s INTEGER RESULT 

; TEST FPS 

;RESULT FPS 

;FEC 


SEQ 0256 





COKDAEO KOJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 


14538 073502 
14539 073504 
14540 073510 
14541 073512 
14542 


170102 


171411 
170001 


032737 


104003 
000167 


032737 
001005 


170203 
012702 
170102 
012701 


073440 
000200 
073650 


000004 
000020 


000001 
140132 


000042 
000001 
140132 
000020 


073414 
140132 


000200 
003142 
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000244 


003030 


003030 


(FEC) 


SEQ 0257 


FSRC 

FRACTIONAL RESULT 
INTEGER RESULT 

FPS BEFORE EXECUTION | 
FPS AFTER EXECUTION 


3; *XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXeX 
5 &XaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaXaXaXaXeXaXaXaXaX 


; 

MDFSUB: MOV CSP)+,R5 
MOV #50$ ,@eF PVEC 
MOV #200 ,R2 
LOFPS R 
LOD (R5),ACO 
MOV #MODGAR ,R1 
LOD C(R1),ACi 
MOV R1 
ADD »R1 
MOV 20(R5) ,R2 
LOFPS 

H 
MODF (R1),ACO 

i$: SETF 

: 

; INSTRUCTION DIDNT TRAP 

: 
BIT #1,96FLAG 
BEQ 2$ 
CALL SeDETFPA 
ERROR +3 
JMP 2s 

i 

; INSTRUCTION TRAPPED 

: 

50$: BIT #1, — 
BNE 51% 
CALL SeDE TFPA 
ERROR +3 
JMP 2 

51$: MOV CSP)+,R4 
TST (SP)+ 
CMP #1$,R4 
BEQ 
CALL BODE TFPA 
ERROR +3 


; RETURN ADDRESS TO USE AS POINTER 
;sREDIRECT TRAP VECTOR 

;SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

;LOAD ACO WITH TEST DATA 

;LOAD KNOWN INTO AC1 


; 
;POINT TO FSRC DATA 


;GET TEST FPS 
;LOAD TEST FPS 


3*TEST INSTRUCTION 
sWAIT FOR POSSIBLE FPA TRAP. 


;VERIFY A NO TRAP CONDITION 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;INSTRUCTION SHOULD HAVE TRAPPED 
;sREJOIN CODE 


;SEE IF EXPECTING A TRAP 
;BRANCH IF EXPECTING A TRAP 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
: INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 
;SEE IF PC = INSTRUCTION 
;CLEAN UP STACK 


; 
;BRANCH IF GOOD COMPARE 
— ;DETERMINE FLOATING POINT FAULT. 
; 


RROR 
sPC WAS INCORRECT 


$$5 


;COMMON CODE FOR TRAP AND NO TRAP 


2$: STFPS R3 
MOV #200 ,R2 
LDOFPS Re 


MOV @RECDST,R1 
sSAVE FRACTIONAL RESULT 


;SAVE FPS 
;SET FPP TO DOUBLE 


sPOINT TO RECEIVED DATA TABLE 
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SEQ 0258 
FLOATING POINT TESTS 
14543 073516 174011 STD ACO, CR1) ;SAVE ACO RESULT 
14544 073520 026503 000022 CMP 22(R5),R3 ;VERIFY STATUS 
14545 073524 001403 BEQ 3$ ;BRANCH IF GOOD 
14546 073526 004737 140132 CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14547 073532 104003 ERROR +3 ;FPP ERROR 
14548 ;BAD FPS 
14549 073534 010504 3%: MOV R5.R4 sPOINT TO EXPECTED DATA 
14550 073536 062704 000010 ADD #10,R4 
14551 073542 004767 044314 4$: JSR R7,DATVFR ;VERIFY DATA 
14552 073546 005767 107346 TST COUNT 
14553 073552 001403 BEQ 5$ ;BRANCH IF GOOD 
14554 073554 004737 140132 CALL @eDE TFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
14555 073560 104003 ERROR +3 FPP ERROR 
14556 ;BAD ACO 
14557 ;SAVE INTEGER RESULT 
14558 073562 174111 5$: STD ACi1,(CR1) sSAVE AC1 RESULT 
14559 073564 010504 MOV R5,R4 ;POINT TO EXPECTED 
14560 073566 062704 000014 ADD $14,R4 
14561 073572 004767 044264 JSR R7 ,.DATVFR ;VERIFY DATA 
14562 073576 005767 107316 TST COUNT ; 
14563 073602 001403 BEQ 6% ;BRANCH IF GOOD 
14564 073604 004737 140132 CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14565 073610 104003 ERROR +3 ;FPP ERROR 
14566 ;BAD ACL 
14567 073612 005737 003030 6$: TST @eFLAG ;SEE IF NEED TO CHECK FEC 
14568 073616 001002 BNE 7$ ;BRANCH IF NEED TO CHECK 
14569 073620 000165 000024 JMP 24(R5) ;RETURN FROM TEST 
14570 073624 170301 7$: STST Ri ;SAVE FEC 
14571 073626 016504 000024 MOV 24(R5),R4 ;GET FEC 
14572 073632 620401 CMP R4,R1 ;VERIFY FEC 
14573 073634 001403 BEQ 8$ :BRANCH IF GOOD 
14574 073636 004737 140132 CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
14575 073642 104003 ERROR +3 ;FPP ERROR 
14576 ;BAD FEC 
res 14 073644 000165 000026 8$: JMP 26(R5) ;RETURN FROM TEST 
; 

14579 073650 177777 177777 #+%177777 «#=MODGAR: .WORD -1,-1,-1,-1 ;KNOWN DATA FOR AC1 

073656 177777 
14580 073660 HOP14 
14581 
14584 $ 
14585 Se 
14586 ;TEST MODD 
14587 ; 
14588 073660 MMODD : 
14589 : 
14590 31/AC>FSRC=0 
14591 073660 005037 003030 CLR @eFLAG ;NO INTERRUPT 
14592 073664 004767 001164 JSR R7 ,MDDSUB :D0 TEST 
14593 073670 012345 177777 177777 -WORD 12345,-1,-1.-1 ;ACO 

073676 177777 
14594 073700 000100 000000 000000 -WORD 100,0,0,0 :F SRC 

073706 000000 
14595 073710 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 

073716 000000 
14596 073720 000000 000000 000000 -WORD 0,0,0,0 s INTEGER RESULT 

073726 000000 
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SEQ 0259 
FLOATING POINT TESTS 

14597 073730 000200 -WORD 200 ; TEST FPS 

14598 073732 900204 -WORD 204 sRESULTANT FPS 

14599 32/AC=0<F SRC | 

14600 073734 005037 003030 CLR SOFLAG 3NO INTERRUPT 

14601 0735740 004767 001110 JSR R7 ,MODSUB ;00 TEST 

14602 073744 000000 000000 000000 -WORD 0,0,0,0 ;ACO 
073752 900000 

14603 073754 001234 177777 000000 -WORD 1234,-1,0,0 ;F SRC 
073762 000000 

14604 073764 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
073772 000000 

14605 073774 000000 000000 000000 -WORD 0,0,0,0 s;INTEGER RESULT 
074002 000000 

14606 074004 007717 -WORD 7717 ; TEST FPS 

14607 074006 007704 -WORD 7704 sRESULTANT FPS 

14608 ;3/AC>FSRC>0 

14609 074010 005037 003030 CLR SOFLAG sNO INTERRUPT 

14610 074014 004767 001034 JSR R7 ,MODSUB ;00 TEST 

14611 074020 056252 125252 125252 -WORD 56252, 125252,125252, 125250 ;ACO 
074026 125250 

14612 074030 040300 000000 000000 -WORD 40300,0,0,0 sF SRC 
074036 000000 

14613 074040 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074046 900000 

14614 074050 056377 177777 177777 -WORD 56377,-1,-1.-4 ;INTEGER RESULT 
074056 177774 

14615 074060 000215 -WORD 213 ; TEST FPS 

14616 074062 000204 -WORD 204 sRESULTANT FPS 

14617 34/AC<O>FSRC 

14618 074064 005037 003030 CLR @OFLAG ;NO INTERRUPT 

14619 074070 004767 000760 JSR R7 ,MODSUB ;D0 TEST 

14620 074074 140240 9000000 000000 -WORD 140240,0,0,0 ;ACO 
074102 000000 

14621 074104 ppt Li a 146314 133572 -WORD 63714,146314,133572,167737 ;F SRC 

14622 074114 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074122 000000 

14623 074124 163777 177777 162531 -WORD 163777,-1,162551,125726 sINTEGER RESULT 
074132 125726 

14624 074134 000210 “WORD 210 s TEST FPS 

14625 074136 000204 -WORD 204 sRESULTANT FPS 

14626 35/AC>FSRC>0 

14627 074140 005037 003030 CLR @OFLAG sNO INTERRUPT 

14628 074144 004767 000704 JS R7 ,MODSUB :00 TEST 

14629 074150 056200 000000 000000 WORD 56200,0,0,1 sACO 
074156 000001 

14630 074160 040340 000000 000000 -WORD 40340,0,0,0 sF SRC 
074166 000000 

£4631 074170 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074176 000000 

14632 074200 056340 000000 000000 -WORD 56340,0,0,1 s INTEGER RESULT 
074206 000001 

14633 074210 000215 -WORD 215 ; TEST FPS 

14634 074212 000204 -WORD 204 sRESULTANT FPS 

14635 36/TRUNCATE 

14636 074214 005037 003030 CLR SeFLAG NO INTERRUPT 

14637 074220 004767 000630 JSR R7 .MODSUB :D0 TEST 








COKDAEO KOJ11-68 CLUSTER DIAG. MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-241 





SEQ 0260 
FLOATING POINT TESTS 

14638 074224 056252 125252 125252 -WORD 56252, 125252,125252, 125252 ;ACO 
074232 125252 

14639 074234 040300 000000 000000 -WORD 40300,0,0,0 sF SRC 
074242 900000 

14640 074244 900000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074252 000000 

14641 074254 056377 177777 177777 -WORD 56377,-1,-1,-1 s; INTEGER RESULT 
074262 177777 

14642 074264 000253 -WORD 253 ; TEST FPS 

14643 074266 000244 .WORD 244 sRESULT FPS 

14644 37/TRUNCATE FRACTION 

14645 074270 005037 003030 CLR SeFLAG 3NO INTERRUPT 

14646 074274 004767 000554 JSR R7 ,MODSUB ;:00 TEST 

14647 074300 023252 125252 125252 -WORD 23252,125252,125252, 125252 sACO 
074306 125252 

14648 Aa 040300 900000 000000 -WORD 40300,0,0,0 ;F SRC 

14649 074320 023377 177777 #177777 -WORD 23377,-1,-1,-1 sFRACTIONAL RESULT 
074326 177777 

14650 aan 000000 000000 -WORD 0,0,0,0 ; INTEGER RESULT 

14651 074340 000253 -WORD 253 ; TEST FPS 

14652 074342 000240 -WORD 240 sRESULT FPS 

14653 :8/ROUND INTEGER 

14654 074344 005037 003030 CLR SeFLAG sNO INTERRUPT 

14655 074350 004767 000500 JSR R7 ,MODSUB 300 TEST 

14656 074354 076600 000000 000000 -WORD 76600,0,0,125252 3ACO 
074362 125252 

14657 074364 040300 900000 000000 -WORD 40300,0,0,0 ;F SRC 
074372 000000 

14658 pte dan poo 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 

14659 074404 076700 000000 000000 -WORD 76700,0,0,-1 s INTEGER RESULT 
074412 177777 

14660 074414 000200 WORD 200 ; TEST FPS 

14661 074416 000204 -WORD 204 sRESULT FPS 

14662 39/ROUND THROUGH FRACTION 

14663 074420 005037 003030 CLR @eFLAG 3NO INTERRUPT 

14664 074424 004767 000424 JSR R7 ,MODSUB 300 TEST 

14665 074430 041525 052525 052525 -WORD 41525,052525,52525,52525 ;ACO 
074436 052525 

14666 eraaae 040300 000000 000000 -WORD 40300,0,0,0 sF SRC 

14667 074450 040177 177777 177777 -WORD 40177,-1,-1,177740 sFRACTIONAL RESULT 
074456 177749 

14668 eeaane 041636 000000 000000 -WORD 41636,0,0,0 s INTEGER RESULT 

14669 074470 007700 -WORD 7700 ; TEST FPS 

£4670 074472 007700 -WORD 7700 sRESULT FPS 

14671 ;/OVERFLOW, TRAPS ENABLED 

44672 074474 012737 000001 003030 MOV #1,90FLAG ; INTERRUPT 

4673 074502 004767 000346 JSR R7 .MDOSUB ;D0 TEST 

14674 074506 177777 #177777 «#177777 -WORD -1,-1,-1,-1 ;ACO 
074514 177777 

14675 074516 040400 000000 000000 -WORD 40400,0,0,0 3F SRC 
074524 000000 

14676 074526 000000 000000 000000 -WORDB 0,0,0,0 sFRACTIONAL RESULT 
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SEQ 0261 
FLOATING POINT TESTS 
074534 009000 
14677 074536 100177 177777 177777 -WORD 100177,-1,-1,-1 sINTEGER RESULT 
074544 177777 | 
14678 074546 007700 -WORD 7700 ; TEST FPS 
14679 074550 107706 -WORD 107706 sRESULT FPS 
14680 074552 000010 -WORD 10 FEC 
14681 ;/INTEGER CHOPPED TO 56 BITS 
14682 074554 005037 003050 CLR SeFLAG sNO INTERRUPT 
14683 074560 004767 000270 JSR R7 ,.MODSUB ;00 TEST 
14684 074564 056700 000000 000000 -WORD 56700,0,0,-1 ;ACO 
074572 177777 
14685 074574 044440 177777 177777 -WORD 44440,-1,-1,-1 3F SRC 
074602 177777 
14686 074604 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074612 000000 
14687 074614 063161 100000 000001 -WORD 63161,100000,1,40775 ; INTEGER RESULT 
074622 040775 
14688 074624 000200 -WORD 200 ; TEST FPS 
14689 074626 000204 -WORD 204 sRESULT FPS 
14690 ;/OVERFLOW, TRAPS DISABLED 
14691 074630 012737 000002 003030 MOV 2 ,Q80FLAG s;NO INTERRUPT 
14692 074636 004767 000212 JSR R7 ,MODSUB 300 TEST 
14693 074642 066600 900000 000000 -WORD 66600,0,0,0 ;ACO 
074650 000000 
14694 074652 066600 000000 000000 -WORD 66600,0,0,0 ;F SRC 
074660 000000 
14695 074662 900000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074670 000000 
14696 074672 015200 0900000 000000 -WORD 15200,0,0,0 ; INTEGER RESULT 
074700 000000 
14697 074702 047700 -WORD 47700 ; TEST FPS 
14698 074704 147706 -WORD 147706 sRESULT FPS 
14699 074706 000010 -WORD 10 ;FEC 
14700 ;/UNDERFLOW, TRAPS DISABLED 
14701 074710 012737 000002 003030 MOV #2 ,80FLAG ;NO INTERRUPT 
14702 074716 004767 000132 JSR R7 ,MODSUB :00 TEST 
14703 074722 100277 000001 000002 -WORD 100277,1,2,-1 ;ACO 
074730 177777 
14704 074732 100300 000001 000001 -WORD 100300,1,1,1 sF SRC 
074740 000001 
14705 074742 000000 000000 000000 -WORD 0,0,0,0 sFRACTIONAL RESULT 
074750 000000 
14706 074752 000000 000000 000000 -WORDB 0,0,0,0 s INTEGER RESULT 
074760 000000 
14707 074762 005200 -WORD 5200 ; TEST FPS 
14708 074764 005204 -WORD 5204 sRESULT FPS 
14709 074766 000010 -WORD 10 ;FEC 
14710 ;/UNDERFLOW TRAPS ENABLED, UV AS RESULT 
£4711 074770 012737 000001 003030 MOV #1, 980F LAG ; INTERRUPT 
14712 074776 004767 000052 JSR R7 ,MODSUB :00 TEST 
44713 075002 100277 000001 000002 -WORD 100277,1,2,-1 ;ACO 
075010 177777 
14714 075012 100300 000001 000001 -WORD 100300,1,1,1 ;F SRC 
075020 000001 
14715 075022 040417 040001 077403 -WORD 40417,40001,77403,0 sFRACTIONAL RESULT 
075030 000000 
14716 075032 000000 000000 000000 -WORD 0,0,0,0 ; INTEGER RESULT 


— |. __. _ ene 
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SEQ 0262 | 
FLOATING POINT TESTS | 
075040 000000 
14717 075042 002200 -WORD 2200 ; TEST FPS 
14718 075044 102200 -WORD 102200 ;RESULT FPS 
ake 075046 000012 -WORD i2 sFEC 
; 
14721 075050 000167 000300 JMP HOP15 ; JUMP OVER SUBROUTINE 
14722 3 o@XaXeXeXeXeXaXaXeXaXeXeXeXeXaXeXeXaXaXaXaXaXaXaXeXaXaXeXeX 
14723 3 *XaXaXaXaXaXaXaXaXaXaXaXeaXaXaXaXaXaXaXeXaXaXaXeXaXaXeXaXeX 
14724 ; 
14725 : ACO 
14726 ; FSRC 
14727 ; FRACTIONAL RESULT 
14728 $ INTEGER RESULT 
14729 ; FPS BEFORE EXECUTION 
14730 ; FPS AFTER EXECUTION 
14731 : (FEC) 
14732 ; 
14733 3 #XaXaXeXeXaXaXeXeXaXeXeXaXeXaXaXaXaXe ya XaXaXaeXaXaXaXaXaXaX 
14734 3 *#XeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXKaXaXaXeXeX 
14735 ; 
14736 075054 012605 MDDSUB: MOV CSP)+,R5 ; RETURN ADDRESS TO USE AS POINTER 
14737 075056 012737 075144 000244 MOV #50$ , BaF PVEC sREDIRECT TRAP VECTOR 
14738 07 012702 000200 V $200 ,R2 ;SET TO DOUBLE MODE FOR LOAD 
14739 075070 170102 LOFPS R ;LOAD FPS 
14740 075072 172415 LOD (R5),ACO ;LOAD ACO WITH TEST DATA 
14741 075074 012701 073650 MOV @MODGAR ,R1 ;LOAD KNOWN INTO ACL 
14742 075100 172511 LDD CR1), ACL : 
14743 075102 010501 MOV RS,R1 sPOINT TO FSRC DATA 
14744 075104 062701 000010 ADD #10,R1 
14745 075110 016502 000040 MOV 40(R5),R2 ;GET TEST FPS 
aat 075114 170102 LOFPS R2 ;LOAD TEST FPS 
; 
14748 075116 171411 MODD CR1),ACO ;*#TEST INSTRUCTION 
-phntg 075120 170011 1$: SETD ;WAIT FOR POSSIBLE FPA TRAP. 
$ 
pbb a ; INSTRUCTION DIDNT TRAP 
14752 
14753 075122 032737 000001 003C30 BIT #1,3¢F LAG ;VERIFY A NO TRAP CONDITION 
14754 075130 001426 BEQ 2$ ;BRANCH IF GOOD 
14755 075132 004737 140132 CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14756 075136 104003 ERROR +3 ;FPP ERROR 
14757 ; INSTRUCTION SHOULD HAVE TRAPPED 
edd 075140 000167 000042 JMP 2$ sREJOIN CODE 
: 
peda ny : INSTRUCTION TRAPPED 
; 
14762 075144 032737 000001 003030 50$: BIT #1,94FLAG ;SEE IF EXPECTING A TRAP 
14763 075152 001005 BNE 51$ ;BRANCH IF EXPECTING A TRAP 
14764 075154 004737 140132 CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14765 075160 104003 ERROR +3 ;FPP ERROR 
34766 ;s INSTRUCTION WASNT SUPPOSE TO TRAP 
14767 075162 000167 000020 JMP es sREJOIN CODE 
14768 075166 012604 51$: MOV CSP)+,R4 ;SEE IF PC = INSTRUCTION 
14769 075170 005726 TST CSP)+ ;CLEAN UP STACK 
14770 075172 022704 075120 CMP #1$,R4 F 
14771 075176 001403 BEQ 2$ ;BRANCH IF GOOD COMPARE 
14772 075200 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
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14773 075204 
14774 
14775 
14776 
14777 


14778 075206 
14779 075210 


075310 
075314 


075316 


14831 


104003 


104003 
000165 


004767 
000177 


000200 
003142 


000042 
140132 


140132 


140132 


003030 
000044 
000044 


140132 


000046 


000170 
000000 
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SEQ 0263 


;FPP ERROR 
sPC WAS INCORRECT 


; ‘ 
;COMMON CODE FOR TRAP AND NO TRAP 


ERROR +3 


$ 
2$: STFPS R3 ;SAVE FPS 
MOV #200 ,R2 ;SET FPP TO DOUBLE 
LOFPS R2 
MOV #RECDST,R1 ;POINT TO RECEIVED DATA TABLE 
;SAVE FRACTIONAL RESULT 
STD ACO, CR1) ;SAVE ACO RESULT 
CMP 42(R5),R3 ;VERIFY STATUS 
BEQ 3$ ;BRANCH IF GOOD 
CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FPS 
3$: MOV RS ,R4 sPOINT TO EXPECTED DATA 
ADD #20,R4 
4$: JSR R7 ,DATVER ;VERIFY DATA 
TST COUNT 
BEQ 5$ :BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
;SAVE INTEGER RESULT 
5$: STD ACi,(R1) ;SAVE AC1 RESULT 
MOV RS ,R4 ;POINT TO EXPECTED 
ADD #30,R4 
JSR R7,DATVER ;VERIFY DATA 
TST COUNT : 
BEG 6$ ;BRANCH IF GOOD 
CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
:BAD ACL 
6$: TST SGFLAG ;SEE IF NEED TO CHECK FEC 
BNE 7$ ;BRANCH IF NEED TO CHECK 
JMP 44(R5) ;RETURN FROM TEST 
7$: STST Ri ;SAVE FEC 
MOV 44(R5).R4 ;GET FEC 
CMP R4 Ri ;sVERIFY FEC 
BEQ 8$ :BRANCH IF GOOD 
CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FEC 
8$ JMP 46(R5) sRETURN FROM TEST 
HOP15 


;TEST STCFD 
3 
MSFD: 
4 
31/AC=0 
JS 
. WORD 


R7 ,SFDSUB 


000000 0177,0,0,1 ;ACO 
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14832 
14833 


FLOATING POINT 


075366 
075370 
075376 
075400 
075402 


075510 
075512 


075514 


075542 
075544 


075550 
075552 
075560 
075564 
075566 
075570 


TESTS 


012605 
012737 
012702 
170102 
172415 
012701 


000140 
177777 


177777 


000110 
177777 


177777 


000060 
000000 


000000 


000030 
125252 
125252 


000120 


075656 000244 


000200 


003142 
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177777 
000000 


100000 
000000 


000000 
000000 


125252 
C00000 


SEQ 0264 


. WORD 0,9,0,0 ;sRESULT 
-WORD 47557 ; TEST FPS 
-WORD 47544 ;RESULT FPS 

32/AC>0, TRUNCATE 
JSR R7,SFDSUB ;D0 TEST 
.WORD 77577,-1,.-1,-1 H 
. WORD 77577, -1 ,0,0 ;RESULT 
-WORD 7540 ; TEST FPS 
-WORD 7540 ;RESULT FPS 

33/AC<0, ROUND 
JSR R7,SFOSUB ;D0 TEST 
-WORD 100377,-1,100000,0 ;ACO 
-WORD 100377,-1,0,0  ;RESULT 
-WORD 7517 ; TEST FPS 
-WORD 7510 ;RESULT FPS 

34/AC=-0 
JSR R7,SFDOSUB 300 TEST 
-WORD 100000,0,0,0 ;ACO 
-WORD 0,0,0,0 ;RESULT 
-WORD 7757 ; TEST FPS 
-WORD 7744 sRESULT FPS 

35/AC<0 
JSR R7, SFOSUB ;D0 TEST 
-WORD 125252,125252,125252,125252 ;ACO 
-WORD 125252,125252,0,0 ;RESULT 
-WORD OQ ; TEST FPS 
-WORD 10 ;RESULT FPS 


;GET OVER SUBROUTINE 


JMP 
3 *XaXeXaXaXaXaXKaXaXeXeXaXaXaXeXeXeXeXaXaXaXeXaXaXaXaXeXaXeX 
5 *&XaXaXaXaXeXaXaXaXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaX 


;STCFO 


SFDSUB: MOV 
MOV 


MOV 
LDFPS 
LDD 
MOV 


ACO 


RESULT 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


; 

; THERE CAN BE NO TRAPS WITH THE STCFD INSTRUCTION 

3 aXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXeXaXaXaXaXaXaXeXaX 
3 &XaXaXaXeXaXaXaXaXaXaXaXeXaXaXaXaXaXaXeXaXaXaXaXaXa Xa XaXaX 


CSP)+,R5 


#RECOST,R1 


; RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 

;SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

;LOAD ACO WITH TEST DATA 

;POINT TO RESULT AREA 
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14879 075574 016502 000020 MOV 20(R5),R2 ;GET TEST FPS 
eae 075600 170102 LOFPS R2 ;LOAD TEST FPS 
3 
a 075602 176011 40$: STCFD ACO,CR1) ;*TEST INSTRUCTION 
; 
14884 : INSTRUCTION DIDNT TRAP 
14885 ;VERIFY STATUS 
14886 : 
14887 075604 170203 2$: STFPS R3 ;SAVE FPS 
14888 075606 016502 000022 MOV 22(RS),R2 ;GET EXPECTED STATUS 
14889 075612 020203 CMP R2,R3 ;VERIFY STATUS 
14890 975614 001403 BEQ 3$ ;BRANCH IF GOOD 
14891 075616 004737 140132 CALL @eDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14892 075622 104003 ERROR +3 ;FPP ERROR 
14893 :BAD FPS 
14894 075624 010504 3$: MOV RS ,R4 ;POINT TO EXPECTED DATA 
14895 075626 062704 000010 ADD #10,R4 
14896 075632 004767 042242 4$: JSR R7 ,DATVER ;VERIFY DATA 
14897 075636 005767 105256 TST COUNT 
14898 075642 001403 BEQ 5$ ;BRANCH IF GOOD 
14899 075644 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14900 075650 104003 ERROR +3 ;FPP ERROR 
14901 ;BAD ACO 
pee 075652 000165 000024 5$: JMP 24(R5) ;RETURN FROM TEST 
; 
pte ; INSTRUCTION TRAPPED 
; 
14906 075656 004737 140132 50$: CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
14907 075662 104003 ERROR +3 ;FPP ERROR 
14908 s INSTRUCTION WASNT SUPPOSE TO TRAP 
coors 075664 000165 000024 JMP 24(R5) ;RETURN FROM TEST 
14911 075670 HOP16 
14914 ; 
14915 Se 
14916 ;sTEST STCOF 
14917 ; 
14918 075670 MSOF : 
14919 
14920 31/AC=0 
14921 075670 005037 003030 LR SéFLAG ;NO INTERRUPT 
14922 075674 004767 000220 JSR R7,SOFSUB ;00 TEST 
14923 075700 000177 9000000 000000 -WORD 177,0,0,0 ;ACO 
075706 000000 
14924 075710 000000 000000 WORD 90,0 ;RESULT 
14925 075714 000200 WORD 200 ; TEST FPS 
14926 075716 000204 WORD 204 ;RESULT FPS 
14927 ;2/AC=-0 
14928 075720 005037 003030 CLR SeFLAG sNO INTERRUPT 
14929 075724 004767 00017 JSR R7, SDF SUB ;D0 TEST 
14930 075730 100000 000300 000200 -WORD 100000,300,200,100 ;ACO 
075736 000100 
14931 075740 00 000000 -WORD 0,0 ;RESULT 
14932 075744 007777 -WORD 7777 ; TEST FPS 
14933 075746 007744 -WORD 7744 ;RESULT FPS 
14934 33/AC>0, TRUNCATE 
14935 075750 005037 003030 CLR aeFLAG ;NO INTERRUPT 


a a RR RE RE RS te AR RS SES RE RA A SA RES RT TRS 
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14936 
14937 


14987 


075754 
075760 
075766 
075770 
075774 
075776 


076110 
076112 


076114 


TESTS 


012605 
012737 
012702 
170102 
172415 
012701 
016502 
170102 


176011 
170327 
000000 


000140 
055555 


055555 


000001 
000106 
177777 


000000 


000002 
000024 
177777 


000000 


000232 


076202 
000200 


003142 
000014 
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177777 


003030 
100000 


125252 


003030 
177777 


000244 


SEQ 0266 
JSR R7 , SOF SUB ;D0 TEST 
-WORD 55555,55555,-1,-1 ;ACO 
. WORD _ RESULT 
-WORD 240 ; TEST FPS 
WORD 240 ;RESULT FPS 

34/AC<0, “ROUND TO UNDEFINED VARIABLE 
MOV #1,30FLAG ; INTERRUPT 
JSR R7 , SOF SUB ;00 TEST 
-WORD 0,0 ;RESULT 
-WORD 1200 ; TEST FPS 
-WORD 101206 s;RESULT FPS 

35/AC<O, ROUND 
CLR 8eFLAG ;NO INTERRUPT 
JSR R7 , SDF SUB ;D0 TEST 
-WORD 125252,125252,125252,125252 ;ACO 
-WORD 125252,125253 ;RESULT 
-WORD 7700 ; T FPS 
-WORD 7710 ;RESULT FPS 

;6/ROUND TO UV, TRAPS DISABLED 
MOV #2 ,80F LAG ; INTERRUPT 
JSR R7 , SDF SUB 300 TEST 
. WORD 77777, -1,-1,0 ;ACO 
-WORD 0,0 ;RESULT 
«WORD 6700 ; TEST FPS 
-WORD 6706 ;RESULT FPS 

* 
JMP HOP17 ;GET OVER SUBROUTINE 


+ &XeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeX 
3 eXaXeXaXaXaXaXaXaXaXaXa Ka XaXaXe XaXa Va XaXaXaXaXaXaXaXaXaXaX 


;STCOF 


SDFSUB: MOV 
MOV 
V 
LDFPS 
LOD 
MOV 
MOV 
LDFPS 
40$: STCDOF 
1$: STST 
. WORD 


ACO 


RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


; 

3A TRAP CAN ONLY OCCUR IF ROUNDING CAUSES OVERFLOW 

3 *#XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXKaXaXaXaX 
5 *&XaXaXaXaXKa Xa XK aKa Xa XaXaXaXaXeXaXaXa XaXaXaXaXaXaXaXaXaXaXaX 


CSP)+,R5 
#50$ , @4F PVEC 
$2 


R2 
CR5),ACO 
#RECDST,R1 
14(R5),R2 
R2 


ACO, (R1) 
(PC)+ 


; RETURN ADDRESS TO USE AS POINTER 
;REDIRECT TRAP VECTOR 

;SET TO DOUBLE MODE FOR LOAD 

;LOAD FPS 

;LOAD ACO WITH TEST DATA 

;POINT TO RESULT AREA 

;GET TEST FPS 

;LOAD TEST FPS 


;*TEST INSTRUCTION 
;WAIT FOR POSSIBLE FPA TRAP. 
;STORE STATUS HERE. 
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150435 
15044 
15045 


076166 
076170 
076174 


076176 


076310 


076312 
076316 
076320 


8 
076324 


076340 
076344 


032737 


104003 


170203 


000001 
140132 


000042 


000001 


140132 


000020 


076154 
140132 


000016 


140132 


104616 
140132 


003030 
000920 


003122 
000010 
140132 
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003030 


003030 


; 
sINSTRUCTION DIONT TRAP 


50$: 


51$: 


; 
; COMMON 
; VERIFY 


; 
2$: 


3$: 
4$: 
5$: 


; VERIFY 
; 
7$: 


SEQ 0267 


BIT #1,2¢0FLAG ;VERIFY A NO TRAP CONDITION 
BEQ 2$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR + ;FPP ERROR 

; INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2$ ;sREJOIN CODE 

; 
;INSTRUCTION TRAPPED 

BIT #1,9FLAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL BEDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 

; INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ ;sREJOIN CODE 
MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 
TST (SP)+ ;CLEAN UP STACK 
CMP #1$,R4 ; 
BEQ es ;BRANCH IF GOOD COMPARE 
CALL S2DETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 

;PC WAS INCORRECT 
CODE FOR TRAP AND NO TRAP 
STATUS 
STFPS R3 ;SAVE FPS 
MOV 16CR5),R2 ;GET EXPECTED STATUS 
CMP »R3 ;VERIFY STATUS 
BEG 3$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 

;BAD FPS 
MOV R5 ,R4 ;POINT TO EXPECTED DATA 
ADD #10,R4 
JSR R7 ,DATVFR ;VERIFY DATA 
TST COUNT 
BEQ 5$ ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 

;BAD ACO 
TST 8GFLAG ;SEE IF NEED TO CHECK FEC 
BNE 7$ ;BRANCH IF NEED TO CHECK 
JMP 20(R5) ;RETURN FROM TEST 
FEC 
MOV #RECFEC,R4 ;POINT TO FEC AREA 
STST CR4) ;SAVE FEC 
CMP C(R4),#10 ;VERIFY FEC FOR OVERFLOW 
BEQ 8$ ;BRANCH IF GOOD 
CALL OeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR + ;FPP ERROR 

;BAD FEC 
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aoe 


076346 
3 076352 


000165 


012701 
170101 
176006 


022703 
001403 
004737 
104003 


012701 


104003 


170202 
020227 
001403 
004737 
104003 


000020 


040000 


140000 
140132 


000002 
140132 


003764 
000200 


003142 


003314 
041426 
104442 


140132 


000204 
140132 
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8$: JMP 


20(RS) 


SEQ 0268 


sRETURN FROM TEST 


TEST STCFD - USING ILLEGAL ACCUMULATOR 


MSFDI: 


i$: CMP 


#40000 ,R1 
Ri 

ACO, AC6 
R2 


R3 
—_— 
SeDETFPA 


+3 

#2 ,R3 

2$ 
BeDETFPA 


+3 


;DISABLE INTERRUPTS 


: 
;*TEST ILLEGAL INSTRUCTION 
;SAVE STATUS 
;SAVE FEC 
;VERIFY FER SET 
;BRANCH IF ERROR RECEIVED 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;FER BIT NOT SET ON ILLEGAL INST. 
;VERIFY FEC = FLOATING OPCDOE ERROR 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;FEC INCORRECT 


TEST CLRD 
HCLRO: 


1%: STFPS 


;TEST CLRD, ILLEGAL ACCUMULATOR 


#TAB47,R1i 
a 


RL), ACO 
#RECDST.R1 
ACO, (R1) 
(Ri) 

oTABG ,R4 
R7 ,DATVER 
COUNT 


1$ 
BeDETFPA 
+3 


R2 
R2, #204 
2 





sPOINT TO DATA 
;SET FPP STATUS TO DOUBLE 


; 

s;POINT TO DATA BUFFER 
;STORE GARBAGE 

;CLEAR DATA SUFFER 
;VERIFY BUFFER =0 

i 


; 

;BRANCH I RECDST = 0 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;RECDST NOT CLEARED 

;SAVE STATUS 

;VERIFY STATUS 

;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD STATUS 








COKDAEO KDJ11-B CLUSTER DIAG. 

FLOATING POINT TESTS 
15109 076504 
15110 


15111 


076504 


15112 076510 


15113 
1 


- 
~y 


076512 


012704 
012714 
012701 
012737 
170114 
170211 
020427 
001403 
004737 
104003 


020127 
001403 
004737 
104003 


023727 
001412 
004737 
104003 


000167 


012600 
012605 
004737 
104003 


040200 


140200 
140132 


000002 
140132 


003162 
147757 
003132 
076650 


003162 
140132 


003132 
140132 


003132 
140132 


000012 


140132 
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000244 


147757 


MCLRI: 
i 


1$: 


#40200 ,R4 
R4 


R6 
R3 


RS 
_ 
@eDETFPA 
+3 


#2,R5 

2$ 
BeDETFPA 
+3 


SEQ 0269 


sDISABLE INTERRUPTS 

;LOAD STATUS 

;*TEST INSTRUCTION WITH ILLEGAL ACC 
;SAVE STATUS 


;BRANCH IF FER SET 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;ERROR IN FPS 
;VERIFY FEC =2 OPCODE ERROR 
;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 


;BAD FEC 


$$$ 


;TEST LOFPS, STFPS MODE 1 


‘ 
MLS1: 
; 


1$: 


2$: 


JMP 


; 
;UNEXPECTED TRAP 


3 
10$: 


#TSTLOC,R4 ;POINT R4 TO RAM 
#147757, CR4) ;SETUP EXPECTED STATUS 
@RECST,R1 ;SET BUFFER FOR RECEIVED STATUS 
#10$ ,@eFPVEC ;SETUP TRAP VECTOR 

:*TEST INSTRUCTION 
CR1i) ;*TEST INSTRUCTION 
R4,¢TSTLOC ;VERIFY R4& 
i$ ;BRANCH IF GOOD 
BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
R1, #RECST ;VERIFY Ri 
2s :BRANCH IF GOOD 
BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 

;BAD Ri 
OeRECST, #147757 ;VERIFY STATUS 
3$ ;BRANCH F GOOD 
SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 
;BAD STATUS 

3$ ;GET OVER TRAP 
(SP)+,RO ;SAVE PC 
(SP)+,R5 ;SAVE PS 
OeDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
+3 ;FPP ERROR 


;UNEXPECTED TRAP 
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SEQ 0270 
FLOATING POINT TESTS 
15170 ;TEST LOFPS, STFPS MODE 2 
15171 ; 
15172 076662 MLS2: 
15173 ; 
15174 076662 012704 003162 MOV #TSTLOC,R4 ;POINT R4 TO RAM 
15175 076666 012714 145557 MOV #145557, (R4) ;SETUP EXPECTED STATUS 
15176 076672 012701 003132 MOV #RECST,R1 ;SET BUFFER FOR RECEIVED STATUS 
15177 076676 012737 076762 000244 MOV #10$ , O@FPVEC ;SETUP TRAP VECTOR 
15178 076704 170124 LOFPS (R4)+ ;*#TEST INSTRUCTION 
15179 076706 170221 STFPS (CR1)+ ;*#TEST INSTRUCTION 
15180 076710 020427 003164 CMP R4,#TSTLOC+2 ;VERIFY R4 
15181 076714 001403 BEQ i$ ;BRANCH IF GOOD 
15182 076716 004737 140132 CALL SeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
oe 076722 104003 ERROR +3 ;FPP ERROR 
; 
15185 076724 020127 003134 1$: CMP R1,@#RECST+2 ;VERIFY R1 
15186 076730 001403 BEQ 2$ ;BRANCH IF GOOD 
15187 076732 004737 140132 CALL QeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
15188 076736 104003 ERROR +3 ;FPP ERROR 
15189 ;BAD R1 
15190 076740 023727 003132 145557 2$: CMP QORECST, 145557 ;VERIFY STATUS 
15191 076746 001412 BEQ 3$ ;BRANCH F GOOD 
15192 076750 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
15193 076754 104003 ERROR +3 ;FPP ERROR 
15194 :BAD STATUS 
crocs 076756 000157 000012 JMP 3$ ;GET OVER TRAP 
15197 ;UNEXPECTED TRAP 
15198 ; 
15199 076762 012600 10$: MOV (SP)+,RO sSAVE PC 
15200 076764 012605 MOV (SP)+,R5 ;SAVE PS 
15201 076766 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
15202 076772 104003 ERROR +3 ;FPP ERROR 
15203 sUNEXPECTED TRAP 
15204 076774 3$: 
15207 ; 
15208 Br rr rr teen ee ence een ennns 
15209 ;TEST LDOFPS, STFPS MODE 3 
15210 ; 
15211 076774 MLS3: 
15212 ; 
15213 076774 012704 003162 MOV @TSTLOC,R4 ;POINT R4 TO RAM 
15214 077000 012737 003166 003162 MOV @TSTLOC+4,8@TSTLOC ;TSTLOC= DEFERRED ADDRESS 
15215 077006 012737 147501 003166 MOV #147501, S¢TSTLOC +4 ;SETUP EXPECTED STATUS 
15216 077014 012701 003172 MOV @TSTLOC+10,R1 ;R1 POINTS TO TSTLOC+10 
15217 077020 012737 003132 003172 MOV MRECST , @@TSTLOC+10 ;SET DEFERRED BUFFER FOR RECEIVED STATUS 
15218 077026 012737 077112 000244 MOV #10$ , BaF PVEC ;SETUP TRAP VECTOR 
15219 077034 170134 LOFPS @(R4)+ ;*TEST INSTRUCTION 
15220 077036 170231 STFPS @(R1)+ ;*#TEST INSTRUCTION 
15221 077040 020427 003164 CMP R4,@TSTLOC+2 ;VERIFY R4 
15222 077044 001403 BEQ i$ ;BRANCH IF GOOD 
15223 077046 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
oo 077052 104003 ERROR +3 ;FPP ERROR 
F 
15226 077054 020127 003174 i$: CMP R1,@TSTLOC+12 ;VERIFY Ri 
15227 077060 001403 BEQ 2$ ;BRANCH IF GOOD 
15228 077062 004737 140132 CALL SeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 





| 
i 
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FLOATING POINT 
15229 077066 
523 


15230 

15231 077070 
15232 077076 
15233 077100 
15234 077104 


15235 
15236 077106 
15237 


077112 
077114 
077116 
077122 


4 
077124 
8 


077124 


077124 
077130 
256 077136 
077142 
077150 
077152 
077154 
077160 
077162 
077166 


077170 
077174 
077176 
077202 


077204 
077212 
077214 
077220 


a 
077222 
6 


077240 


TESTS 
104003 
023727 


012704 
012737 
012701 
012737 
170144 
170241 
020427 
001403 
004737 
104003 


020127 
001403 
004737 
104003 


023727 


003132 147501 2$: 


140132 


000012 


140132 


077226 


003162 
140132 


003132 
140132 


003132 
140132 


000012 


140132 
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003162 
000244 


147757 


ERROR 
CMP 
BEQ 
CALL 
ERROR 
JMP 


; 
;UNEXPECTED TRAP 


: 
10$: MOV 
MOV 


+3 


; 
@ORECST, #147501 


3$ 
SeDETFPA 


+3 


3$ 


(SP)+,RO 
(SP)+,R5 


TEST LOFPS, STFPS MODE 4 


MLS4: 

’ 
MOV @TSTLOC+2,R4 
MOV #147757, 8¢TSTLOC 
MOV @RECST+2,R1i 
MOV 10% ,@e@F PVEC 
LOFPS -(R4) 
STFPS -CR1) 
CMP R4,@TSTLOC 
8EQ i$ 
CALL BEDE TFPA 
ERROR a 

i$: CMP Ri, @RECST 
BEQ 2s 
CALL BEDE TFPA 
ERROR +3 

2s: CMP @ORECST , 0147757 
BEQ 3$ 
CALL SDE TFPA 
ERROR +3 
JMP 3$ 

3 

;sUNEXPECTED TRAP 

i 

10$: MOV CSP)+,RO 
MOV (SP)+,R5 
CALL BEDE TFPA 
ERROR +3 

3$: 


;TEST LOFPS, STFPS MODE 5 










SEQ 0271 


;VERIFY STATUS 

;BRANCH F GOOD 

;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 

;BAD STATUS 

;GET OVER TRAP 


;SAVE PC 
;SAVE PS 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
sUNEXPECTED TRAP 


;POINT R4 TO RAM 

;TSTLOC= STATUS ADDRESS 

;SET BUFFER FOR RECEIVED STATUS 

;SETUP TRAP VECTOR 

;*TEST INSTRUCTION 

;*TEST INSTRUCTION 

;VERIFY R4 

;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. 
FPP ERROR 


;VERIFY Ri 

;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. 
;FPP ERROR 


sBAD Ri 

;VERIFY STATUS 

;BRANCH F GOOD 

;DETERMINE FLOATING POINT FAULT. 
;F-PP ERROR 
;BAD STATUS 

;GET OVER TRAP 


:SAVE PC 
;SAVE PS 
;sDETERMINE FLOATING POINT FAULT. 
;—-PP ERROR 
sUNEXPECTED TRAP 
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FLOATING POINT TESTS 


SEQ 0272 


15290 $ 
15291 077240 MLSS 
15292 ; 
15293 077240 012704 003164 MOV #TSTLOC+2,R4 ;POINT R4 TO RAM 
15294 077244 012737 003166 003162 MOV #TSTLOC+4, 8@TSTLOC ;TSTLOC= DEFERRED ADDRESS 
15295 077252 012737 147501 003166 MOV #147501, 8@TSTLOC +4 ;SETUP EXPECTED STATUS 
15296 077260 012701 003174 MOV @TSTLOC+12,R1 ;R1 POINTS TO 412 
15297 077264 012737 003132 003172 MOV @RECST ,@@TSTLOC+10 ;SET DEFERRED BUFFER FOR RECEIVED STATUS 
15298 077272 012737 077356 000244 MOV #10$ , @@FPVEC ;SETUP TRAP VECTOR 
15299 077300 170154 LOFPS @-C(R4) . ;#TEST INSTRUCTION 
15300 077302 170251 STFPS a-C(R1i) ;*TEST INSTRUCTION 
15301 077304 020427 003162 CMP R4,@TSTLOC ;VERIFY R4 
15302 077310 001403 BEQ i$ ;BRANCH IF GOOD 
15303 077312 004737 140132 CALL GeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
‘aes 077316 104003 ERROR +3 ;FPP ERROR 
5306 077320 020127 003172 1$: CMP R1,@TSTLOC+10 ;VERIFY R1 
15307 077324 001403 BEQ 2$ ;BRANCH IF GOOD 
15308 077326 004737 140132 CALL SeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
15309 077332 104003 ERROR +3 ;FPP ERROR 
1531 ;BAD Ri 
15311 077334 023727 003132 147501 23%: CMP @ORECST, 147501 ;VERIFY STATUS 
15312 077342 001412 BEQ 3$ ;BRANCH F GOOD 
15313 077344 004737 140132 CALL SODETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
15314 077350 104003 ERROR +3 ;FPP ERROR 
1531 ;BAD STATUS 
tre: 077352 000167 000012 JMP 33 ;GET OVER TRAP 
; 
15318 ;UNEXPECTED TRAP 
15319 ; 
15320 077356 012600 10$: MOV (SP)+,RO ;SAVE PC 
15321 077360 012605 MOV (SP)+,R5 ;SAVE PS 
15322 077362 004737 140132 CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
15323 077366 104003 ERROR +3 ;FPP ERROR 
15324 ;UNEXPECTED TRAP 
15325 077370 3$: 
15328 ' 
1832900 rr ew ere n wr ener ec ccecee 
15330 TEST LOFPS, STFPS MODE 6 
15331 
et 077370 MLSE: 
’ 
15334 077370 012704 003162 MOV OTSTLOC,R4 ;POINT R4 TO RAM 
15335 077374 012737 140001 003166 MOV #140001, B@TSTLOC +4 ;SETUP EXPECTED STATUS 
15336 077402 012701 3272 MOV @TSTLOC+110,R1 sR1 WILL Ag TO TESTLOC+10 
15337 077406 012737 077476 000244 MOV 010% , BaF PVEC sSETUP TRAP VECTOR 
15338 077414 170164 LOFPS 4(R4) :*#TEST INSTRUCTION 
15339 077420 170261 177700 STFPS -100CR1) :#TEST INSTRUCTION 
15340 077424 0427 003162 CMP R4,@TSTLOC ;VERIFY R4 
15341 077430 001403 BEQ i$ sBRANCH IF GOOD 
15342 077432 004737 140132 CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $88 
-zeee 077436 104003 ERROR +3 3;—PP ERROR 
15345 077440 020127 003272 is: CMP R1,@TSTLOC+110 ;VERIFY Ri 
15346 077444 001403 BEQ 2s ;BRANCH IF GOOD 
15347 077446 004737 140132 CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $88 . 
15348 077452 104003 ERROR +3 ;FPP ERROR 





- ~ 
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15349 
15350 077454 


15351 


077462 


15352 077464 


15353 
1 


360 0 


077470 


54 
077472 


077476 
77500 


077502 
077506 


077510 


0 
077510 
2 


077510 


077572 


077574 
077600 
077602 
077606 


077610 
077616 
077620 
077624 


5 
: 077626 


077632 
077634 
077636 
077642 


077644 


023727 
001412 
004737 
104003 


000167 


020127 
001403 
004737 
104003 


023727 


003172 140001 2%: 


140132 


000012 


140132 


003072 
140132 


003172 
140132 


000012 


140132 
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003162 
003166 


003164 
000244 


145501 


SEQ 0273 
:BAD Ri 
CMP BETSTLOC +190, 6140001 ;sVERIFY STATUS 
BEQ 3$ | ;BRANCH F GOOD 
CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $8% 
ERROR +3 ;FPP ERROR 
;BAD STATUS 
JMP 3$ ;GET OVER TRAP 
$ 
;UNEXPECTED TRAP 
; 
10$: MOV (SP)+,RO sSAVE PC 
MOV (SP)+,R5 ;SAVE PS 
CALL BEDE TFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR | 
sUNEXPECTED TRAP 
3$: 
; 
3 ~~ e8e ewe een enenecenenenen een ee eee eee ee ee ee 
;sTEST LOFFPS, STFPS MODE 7 
$ 
MLS7: 
F 
MOV #TSTLOC+100,R4 sPOINT R4 TO Ram 
MOV #TSTLOC+4,8@TSTLOC :TSTLOC= DEFERRED ADDRESS 
MOV #145501, 8@TSTLOC +4 ;SETUP EXPECTED STATUS 
MOV @TSTLOC-70,R1 :Ri POINTS TO TSTLOC+10 
MOV @TSTLOC+10,8@TSTLOC+2 3 
MOV #10$ ,aeFPVEC ;SETUP TRAP VECTOR 
LOFPS 98-100(R4) :*TEST INSTRUCTION 
STFPS #72(R1) 7*#TEST INSTRUCTION 
CMP R4,@TSTLOC+100 sVERIFY R4 
BEQ i$ ;BRANCH IF GOOD 
CALL @ODETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP EF OR 
1$: CMP RL, @TSTLOC-70 ;VERIFY Ri 
BEQ 2s ;BRANCH IF GOOD 
CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD R1 
2$: CMP @eTSTLOC +10, #145501 ;VERIFY STATUS 
BEQ 3$ ;BRANCH F GOOD 
CALL BODE TFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;—-PP ERROR 
;BAD STATUS 
JMP 3$ ;GET OVER TRAP 
3 
;UNEXPECTED TRAP 
10$: MOV CSP)+,RO ;SAVE PC 
MOV (SP)+,R5 ;SAVE PS 
CALL BODE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
. ;sUNEXPECTED TRAP 
$: 
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SEQ 0274 


A SS I a 


15410 ;TEST LOCLD MODE 27 
15411 3 
15412 077644 MLOC2: 
15413 3 
15414 077644 005001 CLR R1 sINIT Ri 
15415 077646 012704 007700 MOV €7700,R4 :FPS=DOUBLE, LONG 
15416 077652 170104 LOFPS R4 ; 
15417 077654 012737 077714 000244 MOV #108 ,@eFPVEC ;SETUP WILD TRAP 
15418 077662 177027 LDOCLD (R7)+,ACO :#TEST INSTRUCTION 
15419 077664 005201 INC R1 3 
15420 077666 005201 INC Ri : 
15421 077670 005201 INC R1 : 
15422 077672 005201 INC Ri 3 
5423 077674 020127 000003 CMP R1,¢3 ; VERIFY 
15424 077700 001412 BEQ i$ ;BRANCH IF GOOD 
15425 077702 004737 140132 CALL QBeDETFPA sDETERMINE FLOATING POINT FAULT. $$$ 
15426 077706 104003 ERROR +3 ;FPP ERROR 
15427 ; INSTRUCTION FAILED 
15428 077710 000167 000012 JMP 1$ ;JUMP OVER WILD TRAP 
15429 077714 012600 10$: MOV (SP)+,RO ;SAVE PC 
15430 077716 012605 MOV (SP)+,Ro ;SAVE PS 
15431 077720 004737 140132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
15432 077724 104003 ERROR +3 ;FPP ERROR 
15433 ;WILD TRAP ON INSTRUCTION 
15434 077726 012704 003324 1$: MOV @TAB6A,R4 :POINT TO EXPECTED DATA 
15435 077732 012701 003142 MOV @RECOST,R1 ;POINT TO DATA BUFFER 
15436 077736 174011 STD ACO, (R1) ;VERIFY DATA 
15437 077740 004767 040134 JSR R7 ,.DATVER : 
15438 077744 005767 103150 TST COUNT 
15439 077750 001403 BEQ 2s ;BRANCH IF GOOD DATA 
15440 077752 004737 i40132 CALL BeDETFPA ;DETERMINE FLOATING POINT FAULT. 
15441 077756 104003 ERROR +3 ;FPP ERROR 
15442 ;BAD DATA 
15443 077760 2$: 
15446 ; 
15447 Gt rt re ree eee ee en cece cnnnn- 
15448 ;TEST LOCIF, LOCLF 
15449 ; 
15450 077760 MLCF : 
15451 : 
15452 ;1/INT=0 
15453 077760 004767 000500 JSR R7,LCF SUB ;00 TEST 
15454 077764 000000 000000 -WORD 0,0 3F SRC 
15455 077770 000000 000000 -WORD 0,0 :RESULT 
15456 077774 000000 -WORD O ; TEST FPS 
15457 077776 000004 WORD 4 ;RESULT FPS 
15458 ;2/INT=0,-1 
15459 100000 004767 000460 JSR R7,LCFSUB 300 TEST 
15460 100004 000000 177777 -WORD 0O,- ;F SRC 
15461 100010 900000 000000 . WORD .0 ;RESULT 
35462 100014 007440 -WORD 7440 ; TEST FPS 
35463 100016 007444 -WORD 7444 sRESULT FPS 
15464 ;3/LONG=0 
15465 100020 004767 000440 JSR R7,LCFSUB ;00 TEST 
15466 100024 000000 900000 -WORD 0,0 ;F SRC 
15467 100030 000000 000000 -WORD 0,0 ;RESULT 
15468 100034 000100 . WORD 100 ; TEST FPS 
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15504 100174 
15505 100176 


15507 100200 
15508 100204 


000104 


000200 


. WORD 104 
34/INT=40000 

JSR R7,LCFSUB 

-WORD 40000,0 

-WORD 43600,0 

. WORD 17 

-WORD O 
;5/LONG=1 

JSR R7,LCF SUB 

. WORD > 

-WORD 4020¢,0 

. WORD 117 

. WORD 100 
;6/INT=PATTERN 

JSR R7,LCFSUB 

-WORDB 252,25252 

-WORD 42052,0 

-WORD 0O 

-WORD O 
;7/INT=-40000 

JSR R7,LCF SUB 

. WORD -40000 ,0 

. WORD 143600 ,0 

-WORD 7 

- WORD 10 
;8/INT=-1 

JSR R7,LCFSUB 

. WORD -1 a?) 

. WORD 140200 ,0 

-WORD 7 

-WORD 10 
;9/INT=PATTERN 

JSR R7,LCFSUB 

-WORD 125252,125252 

-WORD 143652,126000 

-WORD 7 

-WORD 10 
;10/LONG=40000 

JSR R7,LCFSUB 

-WORD 40000,0 

-WORD 47600,0 

- WORD 117 

-WORD 100 
;11/LONG=1 

JSR R7,LCFSUB 

-WORD 0,1 

-WORD 40200,0 

.WORD 7557 

. WORD 
;12/LONG=PATTERN 

JSR R7,L_CFSUB 

-WORD 0,252 

-WORD 42052,0 

-WORD 7557 

WORD 7540 
313/LONG = -40000 

R7,LCFSUB 
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sRESULT FPS 


7 ;00 TEST 
3;F SRC 
;RESULT 
; TEST FPS 
sRESULT FPS 


;D0 TEST 
sF SRC 


;RESULT 
; TEST FPS 
;RESULT FPS 


:D0 TEST 
sF SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 


3F SRC 

;RESULT 
; TEST FPS 
sRESULT FPS 


:00 TEST 
:F SRC 


;RESULT 
; TEST FPS 
sRESULT FPS 


300 TEST 

sF SRC 

sRESULT 
; TEST FPS 
;sRESULT FPS 


;D0 TEST 
sF SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 
;F SRC 
;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 


RESULT FPS 
;D0 TEST 





SEQ 0275 


BO . 





COKDAEO KOJ11-B CLUSTER DIAG. 


FLOATING POINT 


100314 


100374 


TESTS 


125253 


000120 
177500 
177777 


000126 
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-WORD 10 

.WORD 110 
314/LONG=-1 

JSR R7,LCFSUB 

. WORD S el 

. WORD 140200 ,0 

-WORD 7500 

-WORD 7510 
;15/LONG=PATTERN 

JSR R7,LCF SUB 


-WORD 125252,125252 
-WORD 147652,125253 


-WORD 105 

-WORD 110 
;16/LONG=77777,177500 

JSR R7 ,LCF SUB 


-WORD 77777,177500 
-WORD 47777,177777 


-WORD 117 

-WORD 100 
;17/LONG=40000, 100 

JSR R7 ,LCFSUB 


. WOR 7540 
319/INT= MOST NEGATIVE 
JSR R7,LCFSUB 


. WORD 

3;20/LONG= MOST NEGATIVE 
JSR R7 ,LCF SUB 
-WORD 100000, 
-WORD 150000,0 
-WORD 107 
WORD 110 
JMP HOP18 


5 eK Ke Ke Ke Kah Ke Ke Ke Ke Ke Ke Ke Ke Ke Ne Ka Xa Ka Kae Ka KK eK te Ke Xk Kah Kak Ke X 
3 *XaXaXaXaXaXaXaXaXaXe Xa Xa Xa XaXeXaXaXaXaXaXaXaXaXaXeXaXaXeX 


;LOCIF, LOCLF 
: FSRC 
RESULT 


;F SRC 

;RESULT 
;. TEST FPS 
;sRESULT FPS 


;D0 TEST 
ULT 


sF SRC 


; 
; TEST FPS 
;RESULT FPS 


;00 TEST 
;F SRC 
sRESULT 

; TEST FPS 

;RESULT FPS 


;00 TEST 

3F SRC 

;RESULT 
; TEST FPS 
sRESULT FPS 


;00 TEST 


; TEST FPS 
sRESULT FPS 


;D0 TEST 
:F SRC 


sRESULT 
; TEST FPS 
;RESULT FPS 


;00 TEST 

:F SRC 

sRESULT 
; TEST FPS 
:RESULT FPS 


;00 TEST 

3;F SRC 

sRESULT 
; TEST FPS 
;sRESULT FPS 


;GET OVER SUBROUTINE 


; FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 





SEQ 0276 





COKDAEO KDOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


100570 


100574 
100576 
100600 
100604 


100606 
100612 


012602 
012737 
012701 
016200 
170100 
010204 


177014 


104003 
000162 


012600 
012605 
004737 
104003 


000167 


(SP)+,R2 
100574 000244 MOV #50$ , @@FPVEC 
003142 MOV ORECDST,R1 
000010 MOV 10(R2),RO 
LOFPS RO 
MOV R2,R4 
; 
40$: LOCIF  (R4),ACO 
3 
:VERIFY STATUS 
i 
2s: STFPS R3 
000200 MOV #200,RO 
LOFPS RO 
STD ACO, (R1) 
000012 MOV 12(R2),RO 
CMP RO,R3 
BEQ 3$ 
140132 CALL § @@DETFPA 
ERROR +3 
3$: MOV R2,R4 
000004 ADD $4 ,.R4 
037306 4$: JSR R7.DATVFR 
102340 TST COUNT 
BEQ S$ 
140132 CALL § @@DETFPA 
ERROR +3 
000014 S$: UMP 14(R2) 
; 
;INSTRUCTION TRAPPED 
; 
50$: MOV (SP)+,RO 
MOV (SP)+.R5 
140132 CALL § @@DETFPA 
ERROR +3 
177756 5$ 
HOP18 
; 
TEST LOCID, LDCLD 
MLCD: 
;1/LONG=0 
000264 JSR R7,LCDSUB 
000000 “WORD 0,0 
900000 000000 WORD 0,0,0,0 
.WORD 7313 
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; 
sNO TRAP CAN OCCUR 


SEQ 0277 


3 *#XaXaXeXaXaXeXeXeXeXaXaXaXaXaXaXa Ka XaXaXaXeX eX aXe XaXaX eX aX 
3 #XaXaXeXeXaXaXeXeXeXaeXaXaXaXaXaXaXaXeXaXeXaXeXeXaXaXaXaX eX 


; 
LCFSUB: MOV 


; RETURN ADDRESS TO USE AS _— 


sREDIRECT TRAP VECTO 
sPOINT TO RESULT AREA 
;GET TEST FPS 

;LOAD TEST FPS 

sPOINT TO TEST DATA 


s*#TEST INSTRUCTION CACCORDING TO MODE) 


;SAVE FPS 
;SET FPP STATUS TO DOUBLE 


: 
;SAVE TEST RESULT INTO RECDST 
;GET EXPECTED STATUS 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. 
;FPP ERROR 
;BAD FPS 
;POINT TO EXPECTED DATA 


;VERIFY DATA 


;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
;BAD ACO 

;RETURN FROM TEST 


$$$ 


;SAVE PC 
;SAVE PS 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
sINSTRUCTION WASNT SUPPOSE TO TRAP 
;CONTI 


;00 TEST 
;F SRC 
;RESULT 


; TEST FPS 





COKDAEO KDJ11-6 CLUSTER DIAG. 
FLOATING POINT TESTS 


100634 


101074 


007304 
004767 
000000 
040200 


000000 
007757 
007740 


004767 


000240 


MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-259 


000000 


000000 


000000 


000000 


000000 


000000 


000000 


126000 


. WORD 
;2/INT=0 
JSR 


. WORD 

. WORD 
;3/INT=40000 

JSR 


. WORD 
. WORD 

;4/INT=-40000 
J 


. WORD 
;8/INT=PATTERN 
JSR 


. WORD 
;9/LONG=PATTERN 
J 


7304 
R7,LCDSUB 
40200,0,0,0 


7757 
7740 


R7,LCOSUB 
40000 = 1 
43600,0,0,0 


7617 
7600 


R7,LCOSUB 
-40000 9 -1 
143600 ,0,0,0 


7600 
7610 


R7,LCDSUB 
40000,0 
47600,0,0,0 


7757 
7740 


R7,LCDSUB 
40200,0,0,0 


300 
300 


R7 -LCDSUB 
140400,0,0,0 


7300 
7310 


R7,LCOSUB 
123456 , 176543 


143661 ,122000, 


200 
210 


R7,LCDSUB 
125252 ,125252 


147652 ,125252, 


300 
310 





;RESULT FPS 
;00 TEST 
;RESULT 


; TEST FPS 
sRESULT FPS 


;D0 TEST 
;F SRC 
;sRESULT 


; TEST FPS 
;RESULT FPS 


;00 TEST 

;F SRC 

;RESULT 
; TEST FPS 
;sRESULT FPS 

;D0 TEST 

;RESULT 


; TEST FPS 
sRESULT FPS 


300 TEST 
;RESULT 


s; TEST FPS 
sRESULT FPS 


;00 TEST 
;RESULT 


; TEST FPS 
sRESULT FPS 


;00 TEST 
;F SRC 
0,0 ;RESULT 


; TEST FPS 
;RESULT FPS 


;D0 TEST 
;RESULT 


;FSRC 


3F SRC 


126000 ,0 


; TEST FPS 
;RESULT FPS 





SEQ 0278 





COKDAEO KOJ11-6 CLUSTER DIAG. 
FLOATING POINT TESTS 


101102 
101104 
101112 
101116 
101122 
101124 


101126 


101212 
101214 
101216 
101222 


101224 
101230 


012602 
012737 
012701 
016200 
170100 
010204 


177014 


170203 
012700 
170100 
174011 
016200 
020003 
001403 
004737 
104003 


104003 
000162 


012600 
012605 
004737 
104003 


000167 


90 
: 101076 000167 000126 


101212 000244 
003142 


000014 


000200 
000016 


140132 


000004 
036706 
101722 
140132 


000020 


140132 


177756 


JMP 


HOP 19 
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SEQ 0279 


;GET OVER SUBROUTINE 


H 
3 *XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXe XaXaXaXaXaXaXaXaXaXaXaXaX 
3 *XaXaXaXaXaXaXaXaXaXaXaXaXaeXeXaXaXaXaXaXaXaXaXaXaX aXe XaKaX 


;LOCID, 


LCDSUB: 


MOV (SP)+,R2 
MOV 0508 ,@FPVEC 
MOV @RECDST RI 
MOV 14(R2),RO 
LOFPS RO 
MOV R2,R4 

; 

40$: LDCID (R4),ACO 

‘ 

VERIFY STATUS 

‘ 

2$: STFPS RB 

V #200 ,RO 

LOFPS RO 
STD ACO, (R1) 
MOV 16(R2),RO 
CMP RO.R3 
BEQ 3$ 
CALL § @@DETFPA 
ERROR +3 

3$: MOV R2,R4 
ADD 045R4 

4$: JSR R7 DATVER 
TST COUNT 
BEQ S$ 
CALL § @@DETFPA 
ERROR +3 

S$: UMP 20(R2) 

INSTRUCTION TRAPPED 

; 

50¢: MOV (SP)+,RO 
MOV (SP)+_R5 
CALL § @@DETFPA 
ERROR +3 
UMP S$ 

; 

HOP19: 


LOCLD 


FSRC 
RESULT 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


; 

;NO TRAP CAN OCCUR 
3 aXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXa Xa XaXa Xa Xa Xa X 
3 &XaXaXaXaXaXaXaXaXaXaXaXeXaXeXaXaXaXaXaXaXaXuXaXKaXaXKaXaKaX 


; RETURN ADDRESS TO USE AS POINTER 
s;REDIRECT TRAP VECTOR 

sPOINT TO RESULT AREA 

;GET TEST FPS 

;LOAD TEST FPS 

sPOINT TO TEST DATA 


:*#TEST INSTRUCTION CACCORDING TO MODE) 


;SAVE FPS 
;SET FPP STATUS TO DOUBLE 


; 
sSAVE TEST RESULT INTO RECDST 
;GET EXPECTED STATUS 
;VERIFY STATUS 
;BRANCH IF GOOD 
;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


;BAD FPS 


;FPP ERR 
;BAD ACO 


sPOINT TO EXPECTED DATA 
;VERIFY DATA 
s;BRANCH IF GOOD 
_ FLOATING POINT FAULT. $$$ 


;RETURN FROM TEST 


;SAVE PC 
;SAVE PS 
;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


; INSTRUC 


TION WASNT SUPPOSE TO TRAP 
NUE 
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SEQ 0280 
FLOATING POINT TESTS 

15749 3 

15750 So vesccennssereseenesessoseseesees 

15751 ;TEST LDEXP 

15752 ;DOUBLE 

15753 $ 

15754 101230 ML XP : 

15755 ; 

15756 ;1/EXP=10 - AC=NEG 

15757 101230 005037 003030 CLR @eFLAG ;NO INTERRUPTS 

15758 101234 004767 001140 JSP R7 ,LXPSUB ;D0 TEST 

15759 101240 123456 067012 025252 -WoeD 123456,67012,25252,171717 ;ACO 
101246 171717 

15760 101250 000010 -WORD 10 ;EXP 

15761 101252 142056 067012 025252 -WORD 142056,67012,25252,171717 ;RESULT 
101260 171717 

15762 101262 007757 -WORD 7757 ; TEST FPS 

15763 101264 007750 -WORD 7750 ;RESULT FPS 

15764 :2/EXP=177 - ACO=P0S 

15765 101266 005037 003030 CLR 8¢FLAG ;NO INTERRUPTS 

15766 101272 004767 001102 JSR R7,LXPSUB ;00 TEST 

15767 101276 023456 070123 100000 -WORD 23456, 70123,100000,1 3;ACO 
101304 000001 

15768 101306 000177 -WORD 177 ;EXP 

15769 101310 077656 070123 100000 -WORD 77656,70123,100000,1 ;RESULT 
101316 000001 

15770 101320 007700 -WORD 7700 ; TEST FPS 

15771 101322 007700 .W 7700 ;RESULT FPS 

15772 3 3/EXP=56 

15773 101324 005037 003030 CLR 8eFLAG ;NO INTERRUPTS 

15774 101330 004767 001044 JSR R7,LXPSUB ;D0 TEST 

15775 101334 055555 044444 033333 -WORD 55555,44444, 33333, 22222 ;ACO 
101342 022222 

15776 101344 000056 -WORD 56 3;EXP 

15777 101346 053555 044444 033333 -WORD 53555,44444,33333,22222 ;RESULT 
101354 022222 

15778 101356 007757 -WORD 7757 ; TEST FPS 

15779 101360 007740 -WORD 7740 ;RESULT FPS 

15780 ;4/EXP=-151, ACO=UV 

15781 101362 005037 003030 CLR 8eFLAG :NO INTERRUPTS 

15782 101366 004767 001006 JSR R7,LXPSUB :D0 TEST 

15783 101372 100077 177777 177777 -WORD 100077,-1,-1,-2 ;ACO 
101400 177776 

15784 101402 177623 -WORD -155 3EX 

15785 101404 104677 177777 177777 -WORD 104677,-1,-1,-2 ;RESULT 
101412 177776 

15786 101414 007757 -WORD 7757 ; TEST FPS 

15787 101416 007750 -WORD 7750 ;RESULT FPS 

15788 35/EXP=-177 

15789 101420 005037 003030 CLR a¢FLAG ;NO INTERRUPTS 

15790 101424 004767 000750 JSR ' R7,LXPSUB ;D0 TEST 

35791 101430 000177 177777 177777 «WORD 177,-1,-1.-2 ;ACO 
101436 177776 , 

15792 101440 177601 -WORD -177 3;EXP 

15793 101442 000377 177777 177777 -WORD 377,-1,-1,-2 ;RESULT 
101450 177776 

15794 101452 007700 -WORD 7700 ; TEST FPS 

15795 101454 007700 -WORD 7700 ;RESULT FPS 





COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT TESTS 


101562 
101570 
101574 
101602 
101604 
101606 
101614 
101616 
101620 
101622 


101624 


101730 


012737 


004767 


004767 


004767 


000002 
000542 
012346 


000000 


003030 
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035363 


035363 


003030 
000456 


000456 


003030 
100000 


100000 


003030 
012346 


000000 


003030 
065432 


065432 


3;6/EXP=-200, UNDERFLOW 
MOV #1,90FLAG 
JSR R7,LXPSUB ;D0 
-WORD 30131,32334,35363, 73031 


. WORD -200 ;EXP 

-WORD 131,32334,35363, 73031 

-WORD 7740 ; TEST FPS 

-WORD 107744 ;RESULT FPS 

-WORD i2 sFEC 

;7/EXP=LARGEST NEGATIVE 

MOV #1,9¢FLAG 

JSR R7,LXPSUB ;00 TEST 

.WORD 0, 123,456,1 ;ACO 

-WORD 100000 ;EXP 

-WORD 40000,123,456,1 

-WORD 2200 ; TEST FPS 

-WORD 102200 ;RESULT FPS 

-WORD 12 :FEC 

;8/EXP=-200, NEG. ACO 

MOV #1,30FLAG 

JSR R7,LXPSUB 

-WORD 111111,100000,100000,-1 

-WORD -200 ;EXP 

-WORD 100111,100000,100000,-1 

-WORD 2217 ; TEST FPS 
;RESULT FPS 


-WORD 102214 
12 


. WORD 
;9/EXP=-1743, FIU=0 

MOV #2, Q8F LAG 

JSR R7,LXPSUB 


;FEC 


-WORD 123456,12346,12346,123 

-WORD -1743 ;EXP 

. WORD 9,0,0,0 ;RESULT 

-WORD 5700 ; TEST FPS 

-WORD 5704 ;RESULT FPS 

-WORD 12 ;FEC 
;10/EXP =-16616, FID=1 

MOV #2 ,30F LAG 

JSR R7,LXPSUB ;D0 TEST 

WORD 377,123456,65432,1 

-WORD -16616 ;EXP 

-WORD 74577,123456,65432,1 

-WORD 47700 ; TEST FPS 

-WORD 147700 ;RESULT FPS 


-WORD i2 ;FEC 
;11/EXP=177, ACO=UNDEFINED VARIABLE 
CLR OeFLAG 


3NO INTERRUPTS 


;RESULT 


; INTERRUPTS 


;sRESULT 


sEXPECT INTERRUPTS 


; INTERRUPTS 


;RESULT 


;NO INTERRUPTS 


3NO INTERRUPTS 


;ACO 


;sRESULT 





SEQ 0281 


a scsi e LLL LD T 





COKDAEO KDJ11-B8 CLUSTER DIAG. 


15843 
15844 


102124 
102126 


102130 


102170 
102176 
102202 
102210 
102212 
102214 


FLOATING POINT TESTS 


012737 
00476; 


000440 
177777 
177777 
003030 


000402 
000100 


000100 
000001 


000342 
177777 


177777 


177777 


377777 


000000 
000236 
177777 


000900 
000001 


000176 
000100 


000100 
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177777 


177777 


000200 


000200 


003030 
177777 


177777 


003030 
177776 


177776 


003030 
177776 


000000 


003030 
000100 


000100 


JSR R7,_XPSUB ;D0 TEST 
.WORD 100177.-1,-1,-1 ;ACO 
-WORD 177 ;EXP 
-WORD -1,-1,-1,-1 ;RESULT 
-WORD 7700 ; TEST FPS 
-WORD 771 ;RESULT FPS 
;12/EXP=150 ACO=PO0S 
CLR S¢FLAG ;NO INTERRUPT 
JSR R7,_XPSUB ;D0 TEST 
-WORD 200,100,200,300 ;ACO 
-WORD 150 ;EXP 
-WORD 72000,100,200,300 ;RESULT 
-WORD 7717 ; TEST FPS 
-WORD 7700 ;RESULT FPS 
;13/EXP=200, ACO=NEG 
MOV #1 ,90FLAG 
JSR R7,LXPSUB ;D0 TEST 
-WORD -1,-1,-1,-1 ;ACO 
-WORD 200 ;EXP 
-WORD 100177,-1,-1,-1 ;RESULT 
-WORD 7705 ; TEST FPS 
-WORD 107716 ;RESULT FPS 
-WORD 10 ;FEC 
314/EXP=400, FID 
MOV #2 ,90F LAG ; INTERRUPT 
JSR R7,LXPSUB ;00 TEST 
-WORD 555,-1,-2,-3 ;ACO 
-WORD 400 ;EXP 
-WORD 40155,-1,-2,-3 ;RESULT 
-WORD 47700 ; TEST FPS 
-WORD 147702 ;RESULT FPS 
- WORD ;FEC 
;15/EXP=11011 FIU=0 
MOV 40, 80F LAG :NO INTERRUPT 
JSR R7,LXPSUB ;D0 TEST 
. WORD 177773, -1, “2, -3 ;ACO 
-WORD 11011 ;EXP 
-WORD 0,0,0,0 ;RESULT 
-WORD 6700 ; TEST FPS 
-WORD 6706 ;RESULT FPS 
;16/EXP=LARGEST POSITIVE 
MOV #1 ,80FLAG ; INTERRUPT 
JSR R7 ,_XPSUB ;00 TEST 
-WORD 123456,100,100,200 ;ACO 
-WORD 77777 ;EXP 
-WORD 137656,100,100,200 ;RESULT 





SEQ 0282 


COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT 


102222 


102372 
102374 


102422 


TESTS 


000250 


102470 000244 


003142 
000200 
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000555 


000555 


003030 
000555 


000555 


003030 
000345 


000345 


-WORD 7740 ; TEST FPS 
-WORD 107752 ;RESULT FPS 
WORD 10 :FEC 
;17/FLOATING 
CLR a¢FLAG ;NO INTERRUPT 
JSR R7,LXPSUB ;00 TEST 
. WORD 123456, 23465 ,555,444 ;ACO 
-WORD 50 ;EXP 
-WORD 152056,23465,555,444 ;RESULT 
-WORD 7500 ; TEST FPS 
WORD 7510 ;sRESULT FPS 
;18/FLOATING UNDERFLOW 
MOV #1 ,90FLAG ; INTERRUPT 
JSR R7,LXPSUB ;00 TEST 
. WORD 333,444,555, 666 ;ACO 
. WORD -200 ;EXP 
-WORD 133,444,555, 666 ;RESULT 
-WORD 7500 ; TEST FPS 
-WORD 107504 sRESULT FPS 
WORD 12 FEC 
;19/FLOATING OVERFLOW 
MOV $1 ,30FLAG ; INTERRUPT 
JSR R7,LXPSUB :D0 TEST 
.WORD 12346, 123,345,456 ;ACO 
-WORD 400 7E 
-WORD 40146,123,345,456 sRESULT 
-WORD 7400 ; TEST FPS 
-WORD 107402 sRESULT FPS “ 
-WORD 10 ;FEC 


; 
;GET OVER SUBROUTINE 


JMP HOP20 
3 *XaXaXaXaXaXaXaXaXeXaXKeXaXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeX 
3 &XaXaXaXaXaXaXeXaXaXaXaXeaXaXaXaXaXeXaXaXeXaXaXaXaXeXeXaXaX 
;LDEXP 
; ACO 
ag ll 


’ 
; RESUL 

; FPS BEFORE EXECUTION 
; FPS AFTER EXECUTION 
; (FEC) 


s aXe XeXeXeXOXeXeXeXeXeXeXe Xe XeXeXeXeXaXeXaXeXeXeXeXeXaXeXex 
3 aXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXaXeXaXaXaXaXaXaXaX 


; 
LXPSUB: MOV (SP)+,R2 ; RETURN ADDRESS TO USE AS POINTER 
MOV #50$ , BOF PVEC sREDIRECT TRAP VECTOR 
MOV ®RECDST,R1 s;POINT TO RESULT AREA 
MOV #200 ,RO ;SET FPS TO DOUBLE 
LDFPS RO : 
MOV R2,R4 sPOINT TO ACO DATA 





SEQ 0283 





COKDAEO KDJ11-B CLUSTER OIAG. 
FLOATING POINT TESTS 


102424 


172414 


032737 
001426 
004737 
104003 


000167 


032737 
005 


104003 


170203 


000022 
000010 


000001 
140132 


000042 


000001 


140132 


000020 


102442 
140132 


000200 


000024 


140132 


000012 
035304 
100320 


140132 


003030 
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003030 


003030 


3;FPP 


;SEE IF 
;BRANCH 


;LOAD ACO 


;GET TEST FPS 
;LOAD TEST FPS 
sPOINT TO TEST DATA 


s#TEST INSTRUCTION CACCORDING TO MODE) 
sWAIT FOR POSSIBLE FPA TRAP. 
;STORE STATUS HERE 


Ayes 4 A NO TRAP CONDITION 


;BRANCH IF GOO 
;DETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 
; INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


EXPECTING A TRAP 
IF EXPECTING A TRAP 


;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 
; INSTRUCTION oy ae TO TRAP 


;REJOIN C 


;SEE IF 


PC = INSTRUCTION 


;CLEAN UP STACK 
; 
s;BRANCH IF GOOD COMPARE 


s;DETERMINE FLOATING POINT FAULT. 


ERROR 
sPC WAS INCORRECT 


;SAVE FPS 
;SETUP FPS 
;-PS=200 
;GET RESULT 


;GET EXPECTED STATUS 


;VERIFY STATUS 
s;BRANCH IF G 


00D 
;DETERMINE FLOATING POINT FAULT. 


FPP ERROR 
sPOINT TO EXPECTED DATA 


;BAD FPS 


;VERIFY DATA 


:;BRANCH IF GOOD 


sDETERMINE FLOATING POINT FAULT. 


;FPP ERROR 
;BAD ACO 


LOD (R4),ACO 
MOV 22(R2),RO 
LOFPS RO 
MOV 10(R2),R4 

40%:  LDEXP R4,ACO 

i$: STST (PC) 
“WORD 0 

i 

;INSTRUCTION DIDNT TRAP 

; 
BIT #1, 90F LAG 
BEQ 2$ 
CALL § @@DETFPA 
ERROR +3 
JUMP 2$ 

; 

;INSTRUCTION TRAPPED 

. 

50$: BIT #1, Q0FLAG 
BNE 51$ 
CALL  @0DETFPA 
ERROR +3 
JMP 2$ 

5i$: MOV (SP)+,R4 
TST (SP)- 
CMP 019,R4 
BEQ es 
CALL § @@DETFPA 
ERROR +3 

: 

;COMMON CODE FOR TRAP AND NO TRAP 

SVERIFY STATUS 

é 

2$: STFPS R3 

V #200 ,RO 

LOFPS RO 
STD ACO, (R1) 
MOV 24(R2),RO 
CMP RO,R3 
BEG 3$ 
CALL § @ODETFPA 
ERROR +3 
ADD #12,R4 

43: JSR R7 ,DATVER 
TST COUNT 
BEQ 5$ 
CALL  @@DETFPA 
ERROR +3 

S$: TST @eFLAG 
BNE 7$ 





;SEE IF NEED TO CHECK FEC 
;BRANCH IF NEED TO CHECK 





SEQ 0284 


COKDAEO KDOJ11-6 CLUSTER DIAG. 
FLOATING POINT TESTS 


102674 


000026 
003122 
000026 
140132 


000030 


003030 
000610 
000000 


177777 


000560 
177777 


000000 


003030 
000530 
000000 


000000 


003030 
000500 
177777 
000000 


003030 
000450 
075757 
173757 
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000000 


177777 


000001 


157737 


JMP 26(R2) 
;VERIFY FEC 
7$: MOV OR 
STST (R4) 
CMP 
BEQ 8$ 
CALL BODE TFPA 
ERROR +3 
8$ JMP 30(R2) 
a 
HOP20 


_ 
CR4),26(R2) 


;TEST STCOI, STCOL 





;RETURN FROM TEST 


;sPOINT TO FEC AREA 
;SAVE FEC 
;VERIFY FEC FOR OVERFLOW 

;BRANCH IF GOOD 

sDETERMINE FLOATING POINT FAULT. $$$ 
;FPP ERROR 

;BAD FEC 
sRETURN FROM TEST 





SEQ 0285 


y 
MSCD: 
+ 
31/ACO=0, INT 
CLR BeFLAG ;NO INTERRUPTS 
JSR R7, SCDSUB 300 TEST 
-WORD 0177,0,0,0 ;ACO 
-WORD 0O,-1 sRESULT 
-WORD 7640 ; TEST FPS 
-WORD 7644 sRESULT FPS 
32/ACO=-0, LONG 
CLR SOF LAG ; INTERRUPT 
JSR R7 ,SCDSUB 300 TEST 
-WORD 100177,-1,-1,-1 ;ACO 
-WORD 0,0 ;RESULT 
-WORD 7700 ; TEST FPS 
-WORD 7704 ;RESULT FPS 
33/EXP=100, LONG 
CLR @OFLAG ;NO INTERRUPT 
JSR R7 , SCOSUB 300 TEST 
. WORD 20000,0,0,0 3;ACO 
«WORD 0,0 ;RESULT 
-WORD 300 ; TEST FPS 
-WORD 304 ;RESULT FPS 
3;4/EXP=200, BAISED 0, INT, ROUND 
CLR @OFLAG s INTERRUPT 
JSR R7 , SCOSUB 300 TEST 
-WORD 0,0 ;RESULT 
«WORD 7700 ; TEST FPS 
-WORD 7704 sRESULT FPS 
35/LONG 
CL @OF LAG : INTERRUPT 
JSR R7 , SCOSUB ; TEST 
-WORD 47667, 75757,157737,167773 ;ACO 
-WORD 55675.,173757 ;RESULT 
-WORD 7717 ; TEST FPS 





COKDAEO KOJ11-B CLUSTER DIAG. 
FLOATING POINT 


L <_< LC CC LLL LLL LLL LL LLL LE 


103036 


103126 


TESTS 


107605 
012737 


003030 
000336 
000000 


177777 


177777 
177777 


000000 
000220 
177777 


163741 


000002 
000166 
000000 


000000 





MSCRO YOS.02 Tuesday 14-May-85 08:07 Page 14-267 


003030 
000000 


000000 


003030 
177777 


003¢30 
000000 


003030 
177777 


003030 
000000 


JSR R7,SCDOSUB 
-WORD 46400,0,0,0 


-WORD 1000,0 
-WORD 7700 
WORD 7700 
;7/LONG, EXP>2ee32 
MOV #1, Q0FLAG 


JSR R7,SCDSUB 
-WORD 77607,0,0,0 


WORD 0,0 
rod 7700 
D 107705 


@eFLAG 
JSR R7,SCOSUB 
-WORD 43200,0,0,0 


-WORD 10000,-1 


-WORD 7600 

-WORD 7600 
s9/7INT, EXP>2ee15 

MOV #1,90FLAG 


JSR R7 , SCDSUB 
. WORD 77777, -1,-1,-1 


. WORD 0, -1 
-WORD 7600 
-WORD 107605 
;10/INT, EXP>2e015, FID 
MOV 90, 84F LAG 


JSR R7,SCDSUB 
. WORD 43300, 0,0,0 


-WORD 0,14000 


-WORD 47700 

-WORD 47700 
s11/INT, EXP>2e015, FIC=0 
MOV 0 ,@0F LAG 


. WORD 143300,-1,-1, -1 
-WORD -1,163741 
7300 


. WORD 
-WORD 7310 
;12/LONG, EXP>24e32, FID 
MOV #2 ,80FLAG 


JSR R7,SCOSUB 
. WORD 50100,0,0,0 


.WORD 0,0 
“WORD 47700 
“WORD 147705 


sRESULT FPS 


sNO INTERRUPT 
300 TEST 
;ACO 


;RESULT 
; TEST FPS 
;sRESULT FPS 


; INTERRUPT 
300 TEST 
;ACO 


;RESULT 
; TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
300 TEST 
;ACO 


sRESULT 
; TEST FPS 
;RESULT FPS 


; INTERRUPT 
;00 TEST 
;ACO 


sRESULT 
; TEST FPS 
sRESULT FPS 


;NO INTERRUPT 
:00 TEST 
;ACO 


;PESULT 
; TEST FPS 
;sRESULT FPS 


;NO INTERRUPT 
;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
;RESULT FPS 


; INTERRUPT 
300 TEST 
;ACO 


;RESULT 
; TEST FPS 
sRESULT FPS 





SEQ 0286 


- 





COKDAEO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT 


16100 


103524 


TESTS 


012737 


010204 
172414 


000000 
000134 
177777 


000000 


003030 
000104 
177777 


000000 


003030 
000054 
177777 
177777 


003030 
000024 
177777 


177777 


000244 
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003030 
177777 


177777 


177777 


177777 


| 


000244 


313/LONG, EXP>24e32, FIC=0 
MOV 


#0 ,9OF LAG 
JSR R7 , SCDSUB 
. WORD 50377,-1.-1.-1 
-WORD 0,0 
-WORD 7300 
-WORD 7305 
314/LONG, EXP<0O 
CL SeFLAG 


.WORD 100200,-1,-1,-1 
-WORD 0,0 
-WORD 7757 
-WORD 7744 
315/INT, EXP<0 
CLR SOFLAG 
JSR R7,SCDSUB 
. WORD 37700, -1,-1,-2 
.WORD 0,-1 
-WORD 76 
-WORD 7604 
316/INT, EXP=10 
CLR @OFLAG 
JSR R7, SCDSUB 
.WORD 4377,-1,-1,-1 
. WORD 0,-1 
-WORD 7600 
-WORD 7604 


SEQ 0287 


;NO INTERRUPT 
300 TEST 
;ACO 


sRESULT 
; TEST FPS 
sRESULT FPS 


;NO INTERRUPTS 
300 TEST 
;ACO 


sRESULT 
; TEST FPS 
;RESULT FPS 


sNO INTERRUPTS 
;00 TEST 


;RESULT 


; TEST FPS 
sRESULT FPS 


:NO INTERRUPTS 
;D0 TEST 
;ACO 


sRESULT 
; TEST FPS 
sRESULT FPS 


s;GET OVER SUBROUTINE 


JMP P2i 
3 *@XeXaXeXaXaXaXaXaXeXeXaXaXaXaXaXaXeXaXeXeXaXaXaXeXaXeXeXaX 
3 #XaXaXaXaXeXaXeXeXeXaXaXaXaXeXaXaXaXeXaXeXaXaXaXaXaXaXeXaX 


sSTCOI, STCOL, STCFI, STCFL 
; 


; ACO 

$ RESULT 

; FPS BEFORE EXECUTION 
: FPS AFTER EXECUTION 
$ (FEC) 


; 
;TRAP ON CONVERSION FAILURE 


3 &XaXaXaXaXeXeXaXeXaXaKaXeXaXaXaXaXaXaXaXaXeaXaXaXaXaXaXaXaX 
5 *#XaXeXaXaXaXeXaXaXeXaXaXaXaXaXaXaXaXaXeaXaXaXaXaXaXaXaXaXaX 


: 

SCDSUB: MOV (SP)+,R2 
MOV #30$ ,@eF PVEC 
MOV @RECDST+2,R1 
MOV #-1,-CR1) 
MOV #200 ,RO 
LOFPS RO 
MOV R2,R4 
LOD C(R4),ACO 


; RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 

;POINT TO RESULT AREA 

sPRELOAD RECEIVE DATA BUFFER 


: 
;SET FPS TO DOUBLE 


; 
;POINT TO ACO DATA 
;LOAD ACO 








COKDAEO KDJ11-8 CLUSTER DIAG. 
FLOATING POINT TESTS 


16153 


103526 
193532 


103534 
103536 


103540 
9 


103714 


016200 
170100 


175411 
170327 
000000 


032737 


000014 


000001 
140132 


000042 


000001 


140132 


000020 


103536 
140132 


000016 


140132 


000010 
034202 
077234 


140132 


003030 
000020 
003122 
000006 








MACRO YOS.02 Tuesday 14-May-85 08:07 Page 14-269 


003030 


003030 


SEQ 0288 


V 14(R2),RO ;GET TEST FPS 
LOFPS RO ;LOAD TEST FPS 
iH 
40$: STCOI ACO, (R1) ;*#TEST i puakame tha te TO MODE) 
i$: STST (PC)>+ ;WAIT FOR POSSIBLE FPA TRAP 
.WORD 0O :;STORE STATUS HERE. 
; 
s INSTRUCTION DIONT TRAP 
H 
BIT #1,3@FLAG ;VERIFY A NO TRAP CONDITION 
BEQ es ;BRANCH IF GOOD 
CALL QBeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2$ sREJOIN CODE 
: INSTRUCTION TRAPPED 
é 
50$: BIT 41 ,8@FLAG ;SEE IF EXPECTING A TRAP 
BNE 51$ ;BRANCH IF EXPECTING A TRAP 
CALL BEDE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
; INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2$ sREJOIN CODE 
51$: MOV (SP)+,R4 ;SEE IF PC = INSTRUCTION 
TST CSP)+ ;CLEAN UP STACK 
CMP @1$,R4 ; 
BEQ 2$ ;BRANCH IF GOOD COMPARE 
CALL OBeDETFPA ;DETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
3PC WAS INCORRECT 
sCOMMON CODE FOR TRAP AND NO TRAP 
sVERIFY STATUS 
> 
2s: STFPS R3 ;SAVE FPS 
MOV 16CR2),RO ;GET EXPECTED STATUS 
CMP RO,R3 ;VERIFY STATUS 
BEQ 3$ ;BRANCH IF GOOD 
CALL BEDE TFPA sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD FPS 
3$: MOV R2,R4 :POINT TO EXPECTED DATA 
ADD #10,R4 
4$: JSR R7 ,.DATVFR ;VERIFY DATA 
TST COUNT 
BEQ 5$ ;BRANCH IF GOOD 
CALL QeDETFPA ;sDETERMINE FLOATING POINT FAULT. $$$ 
ERROR +3 ;FPP ERROR 
;BAD ACO 
S$: TST QéFLAG ;SEE IF NEED TO CHECK FEC 
BNE 7$ ;BRANCH IF NEED TO CHECK 
JMP 20(R2) sRETURN FROM TEST 
;VERIFY FEC 
7$: MOV #RECFEC,R4 ;sPOINT TO FEC AREA 
STST CR4) ;SAVE FEC 
CMP (R4),%6 ;VERIFY FEC FOR OVERFLOW 











-_ 


COKDAEO KOJ11-B CLUSTER DIAG. 
FLOATING POINT TESTS 
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SEQ 0289 





16210 103720 001403 BEQ 8$ ;BRANCH IF GOOD 

16211 103722 004737 140132 CALL BODE TFPA ;DETERMINE FLOATING POINT FAULT. $$$ 

16212 103726 104003 ERROR + ;FPP ERROR 

16213 ;BAD FEC 

aeaee 103730 000162 000020 8$ JMP 20(R2) ;sRETURN FROM TEST 

; 

16216 103734 HOP21 

16217 $ 

16220 $ 

16221 pre et en en nn nn ne ee eee n nee ------ 

16222 sTEST STCFI, STCFL 

16223 : 

16224 103734 MSCF : 

16225 : 

16226 ;1/LONG EXP =30 

16227 103734 005037 003030 CLR @eFLAG ;NO INTERRUPTS 

16228 103740 004767 177524 JSR R7,SCOSUB ;D0 TEST 

16229 103744 044541 052525 177777 -WORD 44541,52525,-1,-1 ;ACO 
103752 177777 

16230 103754 000003 102525 -WORD 3,102525 ;RESULT 

16231 103760 007517 -WORD 7517 ; TEST FPS 

16232 103762 007500 .WORD 7500 sRESULT FPS 

16233 ;2/INT, EXP<O 

16234 103764 005037 003030 CLR @eFLAG ;NO INTERRUPTS 

16235 103770 004767 177474 JSR R7,SCDSUB ;00 TEST 

16236 othe rps oe 177777 | =6177777 -WORD 2300,-1,-1,-1 ;ACO 

16237 104004 000000 177777 -WORD 0O,-1 ;RESULT 

16238 104010 007400 -WORD 7400 ; TEST FPS 

16239 104012 007404 -WORD 7404 sRESULT FPS 

16240 ;3/LONG, EXP 

16241 104014 012737 900001 003030 MOV #1 ,93@FLAG ; INTERRUPT 

16242 104022 004767 177442 JSR R7 , SCDSUB ;D0 TEST 

16243 104026 070000 177777 177777 -WORD 70000,-1,-1,-1 3;ACO 
104034 177777 

16244 1049036 000000 000000 -WORD 0,0 ;RESULT 

16245 104042 007540 -WORD 7540 ; TEST FPS 

16246 104044 107545 -WORD 107545 sRESULT FPS 

16247 ;4/INT,EXP=5, FIC#0, FID=1 

16248 104046 005037 003030 CLR @éFLAG ;NO INTERRUPTS 

16249 104052 004767 177412 JSR R7,SCDSUB 300 TEST 

16250 104056 052000 000000 177777 -WORD 52000,0,-1,-1 ;ACO 
04064 177777 

16251 104066 000000 177777 -WORD 0O,-1 ;RESULT 

16252 104072 047000 -WORD 47000 ; TEST FPS 

16253 104074 047005 -WORD 47005 ;RESULT FPS 

16254 : 

16257 $ 

16258 Brrr tn re en er en ee en ee ee ne ee en nee 

16259 :TEST STEXP 

36260 : 

16261 104076 MSXP: 

16262 $ 

16263 ;1/EXP=100 

16264 104076 004767 000154 JSR R7,SXPSUB ;D0 TEST 

16265 104102 020000 000000 000000 -WORD 20000,0,0,0 ;ACO 
104110 000000 





COKDAEO KOJ11-B8 CLUSTER DIAG. 
FLOATING POINT 


16317 


TESTS 


012602 
012737 
012701 
012700 
170100 


000132 
177777 


000110 
177777 


000066 
000000 


000044 
000000 


000022 
177777 


000120 


104360 000244 


003142 
000200 
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177777 


177777 


177777 


000000 


177777 


. WORD 
. WORD 


. WORD 
;2/EXP=201 FLOAT 
JSR 
. WORD 
. WORD 
. WORD 
. WORD 
33/EXP=-177 
JSR 
. WORD 
. WORD 
. WORD 
. WORD 
;4/EXP=-100 
JSR 
. WORD 


.WOR 
;5/EXP=200 

JSR 

. WORD 


;6/EXP=0 
J 


JMP 


-100 
7740 
7750 
» NEG 


R7,SXPSUB 


140377,-1,-1,0 


1 
7500 
7500 


R7,SXPSUB 
177,-1,-1, -1 


R7 ,SXPSUB 
20000,0,-1,-1 


-100 
40200 
40210 


R7 ,SXPSUB 
40000,0,.0,0 


0 
7700 
7704 


;RESULT 


R7,SXPSUB 
177, -1,-1, -1 


177600 
0 
10 


s;RESULT 
; TEST FPS 
sRESULT FPS 


;00 TEST 
;ACO 


sRESULT 
; TEST FPS 
sRESULT FFS 


;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
sRESULT FPS 


;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
;RESULT FPS 


;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
FPS 


;D0 TEST 
;ACO 


;RESULT 
; TEST FPS 
;RESULT FPS 


;GET OVER SUBROUTINE 


3 eXaXaXaXaXaXaXaXaXaXaXaXaXKaXaXaXaXaXaXeXaXaXaXaXaXaXaXaXaX 
3*XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXeXaXaXaXaXaXa Xe Xa XaXaXaXaX 


;STEXP 
; 


SXPSUB: MOV 
MOV 
MOV 
MOV 
LOFPS 


ACO 
EXPONENT RESULT 


FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


;NO TRAPS CAN OCCUR 
3 &XaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaXaX 
3a X&eXaXaXaXaXaXaXaXaXa Xa XaXaXaXeXaXaXaXaXaXaXaXaXeXaXaXeXaX 


(SP)+,R2 


#50$ , O@FPVEC 
#RECDST,R1 


#200 ,RO 


RO 


; RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 

s;POINT TO RESULT AREA 

;SET FPS TO DOUBLE 





SEQ 0290 


, . TT 


BO 





COKDAEO KOJ11-B8 CLUSTER DIAG. 


FLOATING POINT 


104372 
104376 


TESTS 


104003 
000162 


012600 
012605 
004737 
104005 


000167 


000012 


000014 
140132 
000010 
003142 
140132 


000016 


140132 


177756 


MOV R2,R4 
LOD (R4),ACO 
MOV 12(R2).RO 
LOFPS RO 

; 

40$:  STEXP ACO.CR1) 

; 

VERIFY STATUS 

; 

2$: STFPS R3 
MOV 14(R2).RO 
CMP RO.R3 
BEQ 3$ 
CALL § @@DETFPA 
ERROR +3 

3$: MOV 10(R2),R4 
CMP R4, BORECDST 
BEQ S$ 
CALL § @@DETFPA 
ERROR +3 

S$: JUMP 16(R2) 

;INSTRUCTION TRAPPED 

; 

50$: MOV (SP)+,RO 
CALL § S@DETFPA 
ERROR +3 
UMP S$ 

HOP22: 

-ENABL AMA 

“SBTTL TEST 


; CACHE 


; CACHE CONTROL 


; MEMORY SYSTEM ERROR 


;POINT TO ACO DATA 
;LOAD ACO 

;GET TEST FPS 

;LOAD TEST FPS 


s*#TEST INSTRUCTIONCACCORDING TO MODE) 
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;SAVE FPS 
;GET EXPECTED STATUS 

;VERIFY STATUS 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. 


;FPP ERROR 


;BAD FPS 


sPOINT TO EXPECTED EXPONENT 

;VERIFY EXPONENT 

;BRANCH IF GOOD 

;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


;BAD ACO 


sRETURN FROM TEST 


;SAVE PC 
;SAVE OL 


D PS 
;DETERMINE FLOATING POINT FAULT. $$$ 


;FPP ERROR 


;WILD TRAP DURING STEXP 


- CHECK REGISTER ACCESS 
;CHECK REGISTER ACCESS - THIS TEST WILL VERIFY EACH OF THE THREE 
MEMORY SYSTEM REC*STERS CAN BE ACCESSED WITHOUT A TRAP TO 
sLOCATION 4(NON-EXISTANI ADDRESS TRAP) OCCURRING. THE REGISTERS TO 
;BE TESTED ARE: 
; 17777746 
17777744 


sREJOIN CODE 


; HIT/MISS 17777752 
;EACH REGISTER WILL BE ACCESSED WITH A WRITE CYCLE. 


:BGNTST 


;SAVE CONTENT OF LOCATION 4 


sLET LOCATION 4 POINT TO ERROR ROUTINE 
sINITIALIZE R TO TOP OF ADDRESS TABLE 


;D0 UNTIL FOR ALL REGISTERS 


i. TEST REGISTER UNDER TEST 


te IF TIMEOUT DID HAPPEN 
Ss ‘ ERROR 

te ENDIF 

;ENDDO 

;sRESTORE CONTENTS OF LOCATION 4 


$$$ 





SEQ 0291 
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SEQ 029 
TEST - CHECK REGISTER ACCESS . 
16377 sEXIT TST 
16378 ; 
16379 ;ADDRESS TABLE: 17777746 
16380 : 17777744 
16381 ; 17777752 
16382 ; 
16383 ;ENDTST 
16384 ;ERROR ROUTINE: SET TIMEOUT FLAG 
16385 : RETURN 
16386 
16387 eter TTT tit ti tt iit titi itt ttt ttt ttt tt ttt tt ttt TTT TTT TTT TTT ttt tT 
104376 000004 TST2: SCOPE 
16388 104400 0240 NOP 
16389 104402 005737 003032 TST CCHPAS shave done enough inclusive passes? 
ep ee 104406 001002 BNE 99$ ; not yet 
16392 104410 000240 NOP ; debug aid 
16393 104412 000453 BR TST3 ;;GO TO NEXT TEST 
16394 104414 000240 99$: NOP 
16395 104416 012737 137542 000004 MOV #TOUT, 
16396 104424 013737 000004 003012 MOV ae4, ;SAVE CONTENTS OF VECTOR 4 
16397 104432 012737 104536 000004 MOV #ERROUT , 804 ;LET VECTOR 4 POINT YO ERROR ROUTINE 
16398 104440 50 CLR Ri ;CLEAR TIMEOUT FLAG 
16399 104442 005737 177746 1$: TST CCR ;READ REGISTER UNDER TEST 
16400 104446 005701 TST Ri ; TIMEOUT? 
16401 104450 001404 BEQ 2$ 
16402 104452 012737 177746 001122 MOV #CCR, $BDADR ;STORE LOCATION 
16403 104460 104130 ERROR +130 ; TIMEOUT ACCESING CCR 
16404 104462 500 23: CLR Ri ;CLEAR TIMOUT FLAG 
16405 104464 005737 177744 TST MSER ;READ MSER 
16406 104470 005701 TST R1 ;TIMEDUT ? 
16407 104472 001404 BEQ 3$ 
16408 104474 012737 177744 001122 MOV #MSER, $BDADR ;STORE LOCATION 
16409 104502 104130 ERROR +130 ; TIMEOUT ACCESSING MSER 
16410 104504 005001 3$: CLR R1 ;CLEAR TIMEOUT FLAG 
16411 104506 005737 177752 TST HITMIS ;ACCESS HIT/MISS 
16412 104512 005701 TST Ri ; TIMEOUT? 
16413 104514 001404 BEQ 4$ 
16414 104516 012737 177752 001122 MOV #HITMIS, $BDADR ;STORE LOCATION 
16415 104524 104130 ERROR +130 ; TIMEOUT ACCESSING HIT/MISS 
16416 104526 013737 003012 000004 4$: MOV SLOCOO, 9#4 ;RESTORE VECTOR 4 
orate 104534 000402 BR TST3 ;;GO TO NEXT TEST 
16419 104536 ERROUT: 
16420 104536 005201 INC Ri sFLAG TIMEQUT 
lank 104540 00 RTI 
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SEQ 0293 
TEST - CCR REGISTER BIT TEST saa 
16424 -SBTTL TEST - CCR REGISTER BIT TEST 
16425 ;CCR REGISTER BIT TEST - THIS TEST WILL VERIFY THAT EACH READ/WRITE BIT OF 
16426 ;THE CACHE CONTROL REGISTER CAN BE SET AND CLEARED INDIVI7UVALLY AND THAT 
16427 ;BITS 15 - 11 AND BIT 8 ARE ALWAYS READ AS ZEROS. 
16428 F 
164<9 ;BGNTST 
16430 ;INITIALIZE GOOD DATA TO #1 
16431 ;CLEAR CCR 
16432 ;D0 UNTIL ALL BITS TESTED 
16433 $- WRITE — DATA TO CCR 
16434 ’ READ © 
16435 ; - CCR “NOT EQUAL TO GOOD DATA THEN 
16436 Si IF CCR EQUAL TO ZERO THEN 
16437 3. ; ; IF GOOD DATA NOT EQUAL TO BIT 15-11 OR BIT 8 THEN 
16438 $. , ‘ ERROR IN READ/WRITE BITS OF CCR 
16439 ; , a ENDIF 
16440 “_ END1F 
16441 ts UPDATE TO NEXT BIT 
16442 ;ENDDO 
16443 ;ENDTST 
16444 
16445 jf REREAERRERAAEEEEARARERAEAARAREEAAEEAA REESE AAEE ES ES EEEEEE EKER EE EES 
104542 000004 TST3: SCOPE 
16446 104544 000240 NOP 
16447 104546 005737 003032 TST CCHPAS shave done enough inclusive passes? 
16448 104552 001002 BNE 99$ ; not yet 
16449 104554 000240 : NOP ; debug aid 
16450 104556 000431 BR TST4 .33G0 TO NEXT TEST 
16451 104560 000240 99$: NOP 
16452 104562 012701 000001 MOV #1, Ri ;INITIAL1ZE GOOD DATA TO #1 
16453 104566 005037 177746 CLR CCR ;CLEAR CCR 
16454 104572 042737 001000 177520 BIC #1000,B8CSR ;DISABLE HALT ON BREAK 
16455 104600 010137 177746 1$: MOV Ri, CCR ;WRITE GOOD DATA TO CCR 
16456 104604 023701 177746 CMP CCR, R1 ;IF CCR NOT EQUAL GOOD DATA 
16457 104610 001407 BEQ 3$ ; THEN 
16458 104612 005737 177746 TST CCR ;IF CCR EQUAL TO ZERO 
16459 104616 001003 BNE 2s ; THEN 
16460 104620 032701 174400 BIT #174400,R1 ;IF GOOD DATA NE TO BIT 15-11 OR BIT 8 
16461 104624 001001 BNE 3$ ; THEN 
16462 104626 104004 2$: ERROR +4 ;ERROR IN READ/WRITE BITS OF CCR 
16463 104630 006101 3$; ROL Ri ;UPDATE TO NEXT BIT 
16464 104632 103362 BCC i$ ;D0 UNTIL ALL BITS TESTED 


16465 104634 052737 001000 177520 BIS #1000,B8CSR sENABLE HALT ON BREAK 
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TEST 
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-SBTTL TEST - FORCE MISS TEST 

sFORCE MISS TEST - THIS TEST WILL VERIFY THAT ALL REFERENCES MADE 
;WITH EITHER BIT<3> OR BIT<2> OF THE CCR SET CAUSE A CACHE MISS AND 
sLEAVE THE CACHE ENTRY UNCHANGED. FIRST WRITE A TEST ADDRESS WITH 
;BITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN 
;INTO THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH 
sNEW DATA. NEXT CLEAR BITS<3:2> AND READ THE TEST ADDRESS, THE DATA 
;SHOULD EQUAL TO PATTERN 1. FINALLY READ THE TEST ADDRESS WITH BIT<3> 
;SET, THE DATA SHOULD EQUAL PATTERN 2. A LAST WRITE MUST BE DONE WITH 
;BOTH FORCE BITS CLEARED BECAUSE THE CACHE AND MAIN MEMORY HAVE 
;DIFFERENT DATA. 

; 


; 
;BGNTST 

;WRITE TEST ADDRESS WITH PATTERN 1 

;SET CCR BITS<3:2> = 0,1 

;WRITE TEST ADDRESS WITH PATTERN 2 
;CLEAR CCR BIT<3> 

;READ TEST ADDRESS 

;SAVE HIT/MISS REGISTER DATA 

;COMPARE RECEIVED DATA TO PATTERN 1 

;IF DATA NOT EQUAL THEN 

IF DATA EQUAL TO PATTERN 2 THEN 
‘ IF HIT THEN 


ERROR FORCE MISS WRITES TO CACHE 





SEQ 0294 





Fe 
Se . 

7” ELSE 

"Pp ‘ IF PARITY ERROR INDICATORS EQUAL O THEN 

6 — ERROR FROCE MISS INVALIDATES CACHE 

$e 

'* . IF ALL PARITY INDICATORS SET THEN 

Se —_— ERROR PARITY ABORT AFTER FORCE MISS 
Re 

3. IF TAG PARITY ERROR THEN 

Sis oe ERROR TAG PARITY ERROR AFTER FORCE MISS 
Ss 

Re P IF BO AND 81 ERROR THEN 

$e — ERROR DATA PARITY ERROR AFTER FORCE MISS 
$° 

3° IF BO PARITY ERROR THEN 

Se , ERROR LOW BYTE PARITY ERROR 
oe ENDIF 

De IF 81 PARITY ERROR THEN 

Bw : ERROR HIGH BYTE PARITY ERROR 
- ‘ ‘ ENDIF 

$. . , ENDIF 

Se . ° ENDIF 

$e ; ENDIF 

ee ELSE 

Ss ‘ ERROF iN DATA PATH 

$. ENDIF 

;ENDIF 

;SET CCR<3:2> = 1,0 

;READ TEST ADDRESS 

;SAVE HIT/MISS REGISTER DATA 

;sCOMPARE RECEIVED a TO PATTERN 2 

;IF DATA NOT EQUAL THEN 

3. IF RECIEVED DATA EQUAL TO PATTERN 1 THEN 








COKDAEO KDJ11-B CLUSTER DIAG. 


TEST 


- FORCE MISS TEST 


003032 


000114 
105214 


177777 
000002 


100340 


100340 


000040 


177477 
000300 
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003012 
000114 


177746 
003162 
177746 
001124 
177520 


177520 


;CLEAR CCR<3:2> 


IF HIT THEN 





SEQ 0295 


ERROR FORCE MISS READS FROM CACHE 
ERROR FORCE MISS READS FROM CACHE AND MISS 


ENDIF 


ERROR IN DATA PATH 


;WRITE TEST ADDRESS 


;ENDTST 


: 
§ fg FRASER EAEASALEARASESESAKALAAEAAAAASREAAAAAALEAALESLELALSESEERSE 


TST4: 


100$: 


101$: 


102$: 


103$: 


SCOPE 


CCHPAS 
99$ 
TSTS 


94114, SLOCOO 
en 
8¢TSTLOC 
#BITO02, CCR 
#177777, 8@TSTLOC 
#200, CCR 
#177777, $GDDAT 
#1000,BCSR 
S¢TSTLOC,R1 
SHI TMIS ,R2 
_— 


i$ 
#177777,R1 
106$ 


R3, R4 


; 
33GO TO NEXT T 


shave done enough inclusive passes? 

; not yet 
2 aid 
ST 


s;SAVE CONTENTS OF VECTOR 114 

;SETUP PARITY VECTOR TO POINT TO HANDLER 
;CLEAR MSER SAVE LOCATION 

sWRITE TEST LOCATION WITH PATTERN 1 
sSET CCR BITS<3:2> = 0,1 

;WRITE TEST LOCATION WITH PATTERN 2 
sCLEAR CCR BIT 3 AND SET PARITY ABORTS 
sSAVE DATA IN MEMORY 

;DISABLE HALT ON BREAK 

sREAD TEST ADDRESS 

s;SAVE HIT/MISS DATA 

;ENABLE HALT ON BREAK 

sCOMPARE RECEIVED DATA TO PATTERN 1 
s;IF DATAS NOT EQUAL THEN 

sIF DATA EQUAL TO PATTERN 2 


; THEN 

;IF HIT 

; THEN 

iF ORCE MISS WRITES TO CACHE 

; 

:IF PARITY INDICATORS EQUAL 0 

H 

FORCE MISS WRITE INVALIDATES CACHE 
i 

IF ALL PARITY INDICATORS SET 

; 

sPARITY ABORT AFTER FORCE MISS 

é 

SIF TAG PARITY ERROR 

; THEN 

:TAG PARITY ERROR AFTER FORCE MISS 
;COPY MSER INTO REG 4 

;MASK FOR BO AND B1 DATA 


;IF BO AND B1 DATA 
; THEN 








a ne 
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SEQ 0296 

TEST - FORCE MISS TEST 

16582 105056 104011 ERROR +11 :DATA PARITY ERROR AFTER FORCE MISS 

16583 105060 000412 BR 1$ sEL 

16584 105062 032703 000100 104$: BIT 100, R3 IF BO ERROR 

16585 105066 001401 BEQ 1058 ; THEN 

16586 105070 104012 ERROR +12 ;LOW BYTE PARITY ERROR AFTER FORCE MISS 

16587 105072 032703 000200 105$: BIT #200, R3 ;IF B1 ERROR 

16588 105076 001403 BEQ si ; THEN 

16589 105100 104013 ERROR +13 sHIGH BYTE PARITY ERROR AFTER FORCE MISS 

16590 105102 000401 BR 13 sENDIF 

16591 105104 104014 106$: ERROR +14 ;ERROR DATA PATH 

16592 105106 005003 1$: CLR  R3 CLEAR MSER SAVE REGISTER 

16593 105110 052737 000010 177746 BIS #*BITO3, CCR sSET CCR BITS <3:2> = 1,0 

16594 105116 042737 001000 177520 BIC #1000, BCSR ;DISABLE HALT ON BREAK 

16595 105124 013701 003162 MOV § @@TSTLOC,R1 ;READ TEST LOCATION 

16596 105130 013702 177752 MOV © @#HITMIS .R2 :SAVE HIT/MISS REGISTER DATA 

16597 105134 052737 001000 177520 BIS  #1000,BCSR ;ENABLE HALT ON BREAK 

16598 105142 020127 177777 CMP RL, = 4.77777 ;COMPARE RECEIVED DATA TO PATTERN 2 

16599 105146 001412 BEQ Ss ;IF DATAS NOT EQUAL THEN 

16600 105150 905701 TST = RL sIF RECIEVED DATA EQUAL TO PATTERN 1 

16601 105152 001007 BNE 1088 ; THEN 

16602 105154 032702 000002 BIT #BITO1, R2 sIF HIT 

16603 105160 001402 SEQ =: 1078 ; THEN 

16604 105162 104015 ERROR +15 FORCE MISS READS FROM CACHE 

16605 105164 000403 BR 2$ 

16606 105166 104016 107$: ERROR +16 ‘FORCE MISS READS FROM CACHE AND MISS 

16607 105170 000401 BR 2¢ ; ENDIF 

16608 105172 104014 108$: ERROR +14 sERROR IN DATA PATH 

16609 105174 013737 003012 000114 2%: MOV  SLOCOO, ae114 sRESTORE VECTOR 114 

16610 105202 005037 177746 CLR —s- CCR ;CLEAR CCR BITS<3:2> 

16611 105206 005037 003162 CLR § @@TSTLOC ;WRITE TEST ADDRESS 

16612 105212 000405 BR TSTS :;GO TO NEXT TEST 

16614 

16615 105214 011637 001122 FMPARR: MOV = (SP), $BDADR ;SAVE ADDRESS THAT CAUSED ABORT 

16616 105220 013703 177744 MOV MSER, 3 SAVE CONTENTS OF MEMORY SYSTEM ERROR 

16617 105224 000002 RTI sREGISTER AND RETURN 

16618 

16619 

16620 .SBTTL TEST - HIT/MISS REGISTER TEST PART 1 

16621 sHIT/MISS REGISTER TEST PART 1 - THIS TEST WILL VERIFY THAT THE HIT/MISS 

16622 sREGISTER CORRECTLY LOGS HITS AND MISSES.FIRST WRITE A TEST ADDRESS WITH 

16623 ;BITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN INTO 

16624 ;THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH NEW DATA. 

16625 ;NEXT CLEAR CCR BITS<3:2> AND READ THE TEST ADDRESS, THE HIT/MISS REGISTER 

16626 ;SHOULD LOGGED A HIT. FINALLY READ THE TEST ADDRESS PLUS 20000(8) THE 

16627 ;HIT/MISS REGISTER SHOULD HAVE LOGGED A MISS. 

16628 

16629 

16630 ;:BGNTST 

16631 ;WRITE TEST ADDRESS WITH PATTERN 1 

16632 ;SET CCR BITS<3:2> = 0,1 

16633 ;WRITE TEST ADDRESS WITH PATTERN 2 

16634 ;CLEAR CCR BIT<3> 

16635 ;READ TEST ADDRESS 

16636 ;IF HIT/MISS REGISTER BIT 1 NOT SET THEN 


16637 , ERROR IN RECORDING HITS IN HIT/MISS 
16638 7E 
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- HIT/MISS REGISTER TEST PART 1 


sREAD TEST ADDRESS + 20000(8) 
;IF HIT/MISS REGISTER BIT 1 SET THEN 
ERROR IN RECORDING HITS IN HIT/MISS 


$- 
;ENDIF 
sENDTST 


£ § FSSSSSSAEASESSESSEEESASEERESEKRESESEAARAEALEAEEEEEEEEEEEEEKEDEEEES 


TSTS: 


99$: 


1$: 


es: 


HMPARR : 


SCOPE 





CCHPAS 
99% 
TST6 


9#114, SLOCOO 


To2, CCR 
#177777, 8@TSTLOC 
#200, CR 
#1000,BCSR 
Q¢TSTLOC ,R1 
HITMIS ,RECDAT 
ee 


+45 


S¢TSTLOC +8192. ,R1 


HITMIS ,RECDAT 
a 


+45 


SLOCOO, 9114 
#1000, BCSR 
TST6 


MSER, R3 


:;GO TO 


shave done enough inclusive passes? 
; not yet 


; 
3;GO TO NEXT T 


sSAVE CONTENTS OF VECTOR 114 


sSETUP PARITY VECTOR TO POINT TO HANDLER 


sWRITE TEST LOCATION WITH PATTERN 1 
sSET CCR BITS<3:2> = 0,1 
sWRITE TEST LOCATION WITH PATTERN 2 


;CLEAR CCR BIT 3 AND SET PARITY ABORTS 


;DISABLE HALT ON BREAK 

sREAD TEST ADDRESS 

s;STORE REGISTER 

, 4 os REGISTER BIT 1 NOT SET 


; THE 

;ERROR IN RECORDING HITS IN HIT/MISS 
;READ TEST LOCATION + 20000(8) 
;STORE REGISTER 

<> eee REGISTER BIT 1 SET 

; 

;ERROR IN RECORDING HITS IN HIT/MISS 
sRESTORE VECTOR 114 

;ENABLE HALT ON BREAK 

NEXT TEST 


sSAVE CONTENTS OF MEMORY SYSTEM ERROR 
sREGISTER AND RETURN 





SEQ 0297 
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- HIT/MISS REGISTER TEST 


003032 
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001162 


177520 
000007 


-SBTTL 


TEST 


SEQ 0298 


- HIT/MISS REGISTER TEST 


sHIT/MISS REGISTER TEST - THIS TEST WILL VERIFY THAT THE HIT/MISS 
sREGISTER CORRECTLY LOGS CACHE HITS AND MISSES. IT WILL ALSO VERIFY 
;THAT EACH BIT OF THE REGISTER IS UNIQUE. THIS WILL BE DONE BY 
sFLOATING A ZERO THROUGH A FIELD OF ONES. THE ROTATING WILL BE DONE 
;BY EXECUTING A TST @@HM CWHERE HM IS THE ADDRESS OF THE HIT/MISS 


sREGISTER) AT SUCCESSIVE POSITIONS IN A SET OF 


IGHT NOPS. THE READ 


E 
;0F THE I/9 PAGE ADDRESS OF THE HIT/MISS REGISTER SHOULD CAUSE A 
sMISS TO BE RECORDED. 


i 
;BGNTST 


s;INITIALIZE LOOP INDICATOR 

sINITIALIZE EXPECTED DATA 

300 UNTIL LOOP INDICATOR = SEVEN 

PUT BACKGROUND DATA INTO EXECUTION BUFFER 

PUT TST INSTRUCTION INTO TEST LOCATION 

JUMP TO EXECUTE BUFFER 

IF EXPECTED DATA NE RECEIVED DATA THEN 
ERROR IN RECORDING HITS IN HIT/MISS 


INCREMENT LOOP INDICATOR 


- 
;ENDOO 
;EXIT 


ENDIF 


UPDATE EXPECTED DATA 


TST 


; 
s;BACKGROUND DATA:NOP 
NOP 


;ENDTST 


~ 


SOHN .R2 
PC 


ff 99O$04604666646 6660646646606 466 466446 6466646664466 464666 6646466466666 446466 066464688 


TST6: 


2s: 


SCOPE 


CCHPAS shave done enough inclusive passes? 
99% ; not yet 
; aid 

TST7 ;3GO TO NEXT TEST 
LOOPIN ; INITIALIZE LOOP INDICATOR 
BETSTLOC «20022, $TMP1 sSAVE FOR LATER 
@TSTLOC+2,R3 ;GET ADDRESS OF EXECUTION BUFFER 
CE XPTBL .R4 sGET ADDRESS OF EXPECTED DATA TABLE 
@HITMIS,RS ;PUT ADDRESS OF HIT/MISS REGISTER IN GPR 
#1000, BCSR sDISABLE HALT ON BREAK 
LOOPIN, #7 300 UNTIL LOOP INDICATOR EQUALS 7 
ENDHRT ; THEN EXIT 

#13, R2 

@BACDAT RO sPUT BACKGROUND DATA INTO 

@TSTLOC Ri sEXECUTION BUFFER 

CRO)+, (CR1I)« 

2. $ ;LOOP FOR TEN WORDS 
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TEST - MIT/MISS REGISTER TEST 


SEQ 0299 





16734 105516 023727 003154 000006 CMP LOOPIN, 96 :IS THIS LAST LOOP 

16735 105524 001004 BNE 3$ sIF YES THEN 

16736 105526 013737 001162 023204 MOV $TMP1, BOTSTLOC +20022 sINVALIDATE FETCH OF “RECDAT” 
16737 105534 000404 BR as sELSE 

16738 105536 012723 005737 3$: MOV 05737, (R5)+ sMOVE “TST” INSTRUCTION TO BUFFER 
16739 105542 012713 177752 MOV @HITMIS, CRS) sMOVE HIT.MISS REG. ADD. TO BUFFER 
16740 105546 737 003162 4$: JSR PC, TSTLOC ;GO EXECUTE TEST CODE 

16741 105552 021437 114150 CMP (R4), RECDAT sIF EXPECTED DATA NOT EQUAL TO 
16742 105556 001403 BEQ S$ sRECEIVED DATA THEN 

16743 105560 011437 001124 MOV (R4), $GDDAT sSAVE EXPECTED PATTERN 

16744 105564 104017 ERROR +17 sERROR IN RECORDING HITS IN HIT/MISS 
16745 105 005724 5$: TST CR4)+ s INCREMENT POINTER TO EXPECTED PATTERN 
16746 105570 005237 003154 INC LOOPIN s INCREMENT LOOP COUNTER 

16747 105574 000734 BR i$ 

16748 105576 ENDHRT : 

16749 105576 052737 001000 177520 BIS #1000,B6CSR sENABLE HALT ON BREAK 

FB ay 105604 000422 BR TST7 NEXT TEST 

16752 105606 BACDAT: .WORD NOP 

16753 105610 000240 -WORD NOP 

16754 105612 000240 -WORD NOP 

16755 105614 000240 -WORD NOP 

16756 105616 000240 .WORD NOP 

16757 105620 000240 -WORD NOP 

16758 105622 000240 -WORD NOP 

16759 105624 000240 -WORD NOP 

16760 105626 011537 114150 MOV CRS) ,RECDAT sSAVE CONTENTS OF HIT/MISS REGISTER 
aes 105632 000207 RTS P 

16763 105634 000077 EXPTBL: .WORD 77 

16764 105636 000037 -WORD 37 

16765 105640 000057 -WORD 57 

16766 105642 000067 -WORD 67 

16767 105644 000073 -WORD 73 

16768 105646 000075 -WORD 75 

ate 105650 000076 -WORD 76 


ES OEE ST A 


TEST 
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SEQ 0300 


-SBTTL TEST - BYTE ALLOCATION TEST 

sBYTE ALLOCATION TEST - THIS TEST WILL VERIFY THAT THE CACHE SYSTEM CORRECTLY 
sHANDLES BYTE ACCESSES. THE TEST WILL FIRST CHECK THAT A WRITE ACCESS WHICH 
sIS A MISS DOES NOT UPDATE THE CACHE. THIS WILL BE DONE BY FIRST ASSURRING 

sA MISS AT A TEST LOCATION. THEN A WRITE BYTE ACCESS WILL BE DONE. FINALLY 
;THE LOCATION WILL BE READ. THE WRITE BYTE SHOULD NOT HAVE ALLOCATED THE 
sADDRESS. NEXT THE TEST WILL VERIFY THAT IF A WRITE BYTE ACCESS IS A HIT 

sTHAT THE CACHE LOCATION IS UPDATED. THE TEST WILL FIRST WRITE A TEST LOCATION 
s;WITH A PATTERN TO ALLOCATE THE ADDRESS. THEN A SECOND PATTERN WILL BE WRITTEN 
;TO THE HIGH BYTE OF THE TEST LOCATION. THE TEST LOCATION WILL THEN BE READ. 
sIF THE HIGH BYTE OF THE TEST LOCATION IS EQUAL TO THE SECOND PATTERN THEN THE 
aire WAS UPDATED. THE SECOND TEST WILL BE REPEATED TO TEST LOW BYTE 

. . 


; 
;BGNTST 

;SAVE VECTOR 114 

sLET VECTOR 114 POINT TO BYTE PARITY ROUTINE 
;SET PARITY ABORT BIT IN CACHE CONTROL REGISTER 
;READ TEST LOCATION + 4K 

;sWRITE LOW BYTE TO TEST ADDRESS 

;READ LOW BYTE OF TEST ADDRESS 

;IF HIT/MISS REGISTER BIT 1 SET THEN 

Se ERROR WRITE BYTE ALLOCATES THE CACHE 


sENDIF 

sWRITE PATTERN 1 TO TEST LOCATION 

;sWRITE BYTE PATTERN 2 TO TEST LOCATION+1 

;IF BITL NOTSETIN HIT/MISS REGISTER THEN 

Se IF BO PARITY ERROR THEN 

ERROR LOW BYTE PARITY ERROR ON WRITE BYTE HIT 


ELSE 
IF B1 PARITY ERROR THEN 
nee ERROR HIGH BYTE PARITY ERROR ON WRITE BYTE HIT 
, : WRITE BYTE HIT DOES NOT RECORD A HIT 
; ENDIF 
ENDIF 


sELSE 
READ TEST LOCATION 
- RECTEVED DATA NOT EQUAL TO EXPECTED DATA THEN 
IF BYTE DATA REVERSED THEN 
ERROR BYTES REVERSED ON WRITE CYCLES 


ELSE 
° IF HIGH BYTE DATA ZERO THEN 
in on ERROR IN WRITING TO HIGH BYTE 
L 
; e ERROR IN WRITING TO HIGH BYTE 
‘ ENDIF 
ENDIF 


ENDIF 
; ENDIF 


;WRITE PATTERN 1 TO TEST LOCATION 
sWRITE BYTE PATTERN 2 TO TEST LOCATION LOW BYTE 
;IF BIT1 NOTSETIN HIT/MISS — THEN 


3. IF BO PARITY ERROR THE 

ie , ERROR LOW BYTE PARITY 
3. ELSE 

3. ‘ IF B1 PARITY ERROR THEN 
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MACRO YOS.02 Tuesday 14-May-85 08:07 Page 18-1 


003012 
000114 


177746 
177520 


114150 
114150 


003163 
114150 
114150 


003162 


ELSE 


t. 
sENDIF 


ENDIF 


READ TEST LOCATION 
” RECIEVED DATA NOT EQUAL TO EXPECTED DATA THEN 
IF BYTE DATA REVERSED THEN 

ERROR BYTES REVERSED 


ENDIF 


ELSE 


ERROR HIGH BYTE PRITY 
WRITE BYTE HIT DOES NOT RECORD A HIT 


IF LOW BYTE DATA ZERO THEN 


ERROR IN DATA PATH 


ELSE 


: ENDIF 
ENDIF 


s;CLEAR CACHE CONTROL REGISTER 
eel lee 114 


;EXIT 


;BYTE PARITY ROUTINE: 
; 
sENDTST 


SAVE MSER 
RETURN 


ERROR IN DATA PATH 


§ fF SSSAAKSESASESAAAREAESEAALEAASARESASEEALAEAEAESALAEEEEKEEEEEEEEEKES 


TST?: 


101$: 
2s: 


SCOP= 


CCHPAS 
99$ 
TST10 


8#114, SLOCOO 
ee 


3 

#BITO7, CCR 
TSTLOC +8192. 
#1000, BCSR 
TSTLOC 

TSTLOC 

HITMIS ,RECDAT 
a 


+20 

TSTLOC 

$377, SFTSTLOC +1 
HITMIS ,RECDAT 
#BITO2 ,RECDAT 

2$ 
+21 
3$ 
 aaaecaatamaa 


+22 


3;G0 TO NEXT XT Test 


shave done enough inclusive passes? 
. = a 
aid 


; SAVE VECTOR 114 

sLET VECTOR 114 POINT TO ABORT ROUTINE 
sCLEAR MSER SAVE REGISTER 

;SET PARITY ABORT BIT IN CCR 

sREAD TEST LOCATION + 4K TO CAUSE MISS 
;DISABLE HALT ON BREAK 

;WRITE LOW BYTE OF TEST LOCATION 

sREAD LOW BYTE OF TEST LOCATION 

;STORE REGISTER 

‘= ahh OF HIT/MISS REGISTER SET 


; THE 

;sWRITE BYTE ALLOCATES CACHE 

;sWRITE PATTERN 1 TO TEST LOCATION 
;sWRITE PATTERN 2 TO HIGH BYTE 
sSTORE REGISTER 

74 NOTSETIN HIT/MISS REGISTER 


; THE 

iy BYTE HIT DOES NOT RECORD HIT 
; 

;IF TEST LOCATION NOT EQUAL TO 


sPATTERN 2 THEN 
;BYTES REVERSED ON WRITE CYCLES 





SEQ 0301 
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SEQ 030 
TEST - BYTE ALLOCATION TEST @ 0302 


16885 196026 005037 003162 3$: CLR TSTLOC ;WRITE PATTERN 1 TO TEST LOCATION 
16886 106032 152737 000377 003162 BISB $377, | @@TSTLOC ;WRITE PATTERN 2 TO LOW BYTE 

16887 106040 013737 177752 114150 MOV HITMIS ,RECDAT . ;STORE REGISTER 

16888 106046 032737 900004 114150 BIT #68 ITO2 ,RECDAT ;IF BIT1 NOTSETIN HIT/MISS REGISTER 
16889 106054 001001 BNE 4$ ; THEN 

16890 106056 104012 ERROR +12 ;LOW BYTE PARITY ERROR ON WRITE BYTE HIT 
16891 106060 022737 000377 003162 4%: CMP #377, j|§@#TSTLOC ;IF TEST LOCATION NOT EQUAL TO 
16892 106066 001401 BEQ S$ ;PATTERN 2 THEN 

16893 106070 104022 ERROR +22 ;BYTES REVERSED ON WRITE CYCLES 
16894 106072 005037 177746 5$: CLR CCR ;CLEAR CCR BEFORE EXIT 

16895 106076 052737 001000 177520 BIS #1000,BCSR sENABLE HALT ON BREAK 

16896 106104 013737 003012 000114 MOV SLOCOO, 9#114 sRESTORE VECTOR 114 

16897 106112 000405 BR TST10 ;;GO TO NEXT TEST 

16898 

16899 

16900 106114 011637 001122 BYPARR: MOV (SP), $BDADR ;SAVE ADDRESS THAT CAUSE ABORT 
16901 106120 013703 177744 MOV MSER,  R3 sSAVE CONTENTS OF MSER 

ie 106124 000002 RTI ;RETURN 
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TEST 





012737 


003032 


136574 
003162 
177777 001124 
100000 172300 
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-SBTTL TEST - POR BIT1S (BYPASS) TEST 

sPDOR BIT1S (BYPASS) TEST - THIS TEST WILL VERIFY THAT WHEN BIT<15> IS SET 
;IN A POR AND AN ACCESS IS MADE TO A LOCATION MAPPED BY THE SELECTED POR 
;THAT WOULD NORMALLY CAUSE A CACHE ACCESS, THE CACHE IS BYPASSED (I.E. THE 
;CACHE LOCATION IS INVALIDATED AND A MAIN MEMORY IS READ. THIS WILL BE DONE 


:BY FIRST WRITING A TEST LOCATION WITH A KNOWN PATTERN TO ALLOCATE THE ADDRESS. 
;THEN THE LOCATION WILL BE WRITTEN AGAIN WITH THE MMU ENABLED AND BIT <15> SET 


;IN THE CONTROLING PDR WITH A NEW PATTERN. THE LOCATION WILL THEN BE READ 
;AND A MISS SHOULD BE LOGGED IN THE HIT/MISS REGISTER. THIS READ WILL ALSO 
sBRING VALID DATA INTO CACHE FROM MEMORY. THE MMU WILL AGAIN BE ENABLED 
;WITH BIT <15> SET AND A READ CYCLE DONE. THIS SHOULD INVALIDATE THE CACHE. 
s;NEXT THE MMU WILL BE DISABLED AND THE LOCATION READ FOR A THIRD TIME. THIS 
s;WILL BE DONE WITH BIT<i5> STILL SET. A MISS SHOULD ALSO BE LOGGED. LASTLY 
;BIT<15> WILL BE CLEARED AND THE MMU ENABLED AND THE LOCATION AGAIN READ. 
;THIS TIME A CACHE HIT SHOULD BE LOGGED. 


; 
;BGNTST 

;SETUP MMU REGISTERS 

;sWRITE TEST LOCATION WITH PATTERN 1 

;SET BIT<15> IN PDR FOR TEST LOCATION 

;ENABLE MMU 

:WRITE TEST LOCATION WITH PATTERN 2 

;DISABLE MMU AND CLEAR BIT<15> IN PDR 

;READ TEST LOCATION 

sIF HIT/MISS REGISTER BIY<i> SET THEN 

—— ERROR CONDITIONAL BYPASS DOESN‘T INVALIDATE CACHE 


;SET BIT<i5> IN PDR FOR TEST LOCATION 
ENABLE MMU 


; 
;READ TEST LOCATION (SHOULD INVALIDATE CACHE) 
s;DISABLE MMU 

sREAD TEST LOCATION 

;IF HIT/MISS REGISTER BIT<i> SET THEN 

—— ERROR CONDITIONAL BYPASS DOESN’T INVALIDATE CACHE 
i 

;CLEAR BIT<15> IN POR 

;TURN ON MMU 

;READ TEST LOCATION 

;IF HIT/MISS REGISTER BIT<1> NOT SET THEN 


$. ERROR IN RECORDING HITS IN HIT/MISS 

;ENDIF 

;TURN OFF MMU 

;ENDTST 

; 

5p RR RRAEEAEERE EA EEAEAEEARAGARERASAASARAEEERARATASARARAERALRLEREELE 

TST10: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug said 
BR TST1i1 ;;GO TO NEXT TEST 

99$: NOP ~ 
JSR PC, INITMM ;SETUP MEMORY MANAGEMEMT REGISTERS 
CLR a¢TSTLOC ;sWRITE TEST LOCATION WITH PATTERN 1 
MOV #177777, $GDDAT ;SAVE DATA IN MEMORY 
BIS #BIT15, KIPDRO ;SET BIT15 IN PDR FOR TEST LOCATION 





SEQ 0303 








KOJ11-B CLUSTER DIAG. 


POR BIT1S (BYPASS) TEST 


106362 


052737 


177572 
003162 
177752 
000004 


000001 
001000 
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003162 


172300 
177520 


114150 
114150 
172300 
172300 
114150 
114150 
114150 
114150 


177572 
177520 


2s: 


3$: 


4$: 





SRO 
0177777, 8@TSTLOC 
SRO 


#BITiS, KIPORO 
#1000,BCSR 
@¢TSTLOC,R1 
HITMIS ,RECDAT 
1 rae 


+23 
#BITi5, KIPDRO 
SRO 


TSTLOC 
#BIT15, KIPDRO 
SRO 


Q@TSTLOC ,R1 
HITMIS ,RECDAT 
re 


3 
+23 
SRO 

8¢TSTLOC 
HITMIS ,RECDAT 
#BITO2 ,RECDAT 
4$ 

+45 

#BITOO, SRO 
#1000,BCSR 


SEQ 0304 


;TURN ON MEMORY MANAGEMENT 

sWRITE TEST LOCATION WITH PATTERN 2 
s;TURN OFF MEMORY MANAGEMENT 

;CLEAR BIT15 IN POR FOR TEST LOCATION 
;DISABLE HALT ON BREAK 

;READ TEST LOCATION 

s;SAVE HIT/MISS REGISTER 

;IF HIT/MISS REGISTER BIT 1 SET 


; THEN 

;CONDITIONAL BYPASS DOESN’ T INVALIDATE CACHE 
;SET BITiS IN POR FOR TEST LOCATION 

;TURN ON MEMORY MANAGEMENT 

sREAD TEST LOCATION 

;CLEAR BIT 15 IN PDR 

; TURN OFF MMU 

;READ TEST LOCATION 

;STORE HIT/MISS TO REGISTER 2 

_—_—— REGISTER BIT 1 SET 


; 
sCONDITIONAL BYPASS DOESN’ T INVALIDATE 0 CACHE 
;TURN ON MEMORY MANAGEMENT 

sREAD TEST LOCATION ONE MORE TIME 

s;STORE HIT/MISS TO REGISTER 2 

; IF wanes REGISTER BIT 1 NOT SET 


; THE 

sERROR IN RECORDING HITS IN HIT/MISS 
; TURN OFF MMU 

;ENABLE HALT ON BREAK 
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TEST 


106370 
106372 


- FLUSH CACHE TEST 


003032 


136574 
001600 
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172354 


.SBTTL TEST - FLUSH CACHE TEST 

sFLUSH CACHE TEST - THIS TEST WILL VERIFY THAT WHEN CCR BIT<8> IS 
;SET, THE ENTIRE CACHE IS INVALIDATED. FIRST 8K BYTES OF ADDRESSES 
sWILL BE READ TO ALLOCATE CACHE. THEN THE CACHE WILL BE FLUSHED. 

;THE SAME SET OF ADDRESS WILL THEN BE READ AND THE HIT/MISS REGISTER 
; CHECKED AFTER EACH READ FOR A MISS TO BE LOGGED. 


; 
;BGNTST 

;GET FIRST ADDRESS OF 8KB BUFFER 

; INITIALIZE LOOP COUNTER TO 4KWORD COUNT 

;D0 UNTIL LOOP COUNTER = 0 

e READ SADDRESS+ 

;ENDDO 

;GET FIRST ADDRESS OF 8KB BUFFER 

; INITIALIZE LOOP COUNTER TO 2KWORD COUNT 
;INITIALIZE MISS COUNT TO 4KWORD COUNT 

;FLUSH CACHE 

;D00 UNTII. LOOP COUNTER = 0 

Bie READ @ADDRESS+ 

Se ICREMENT ADDRESS TO READ EVERY 2WORDS 
$e IF HIT/MISS REGISTER BIT<1> SET THEN 
; . DECREMENT MISS COUNT 

; ENDIF 


;ENDDO 

;GET FIRST ADDRESS OF 8KB BUFFER 
;INITIALIZE LOOP COUNTER TO 4KWORD COUNT 
;D0 UNTIL LOOP COUNTER = 0 

i. - READ SADDRESS+ 


;END 

;GET LAST ADDRESS OF 8KB BUFFER 

; INITIALIZE LOOP COUNTER TO 2KWORD COUNT 
;FLUSH CACHE 

;D0 UNTIL LOOP COUNTER = 0 

Se READ SADDRESS- 

$e DECREMENT ADDRESS TO READ EVERY 2WORDS 
os IF HIT/MISS REGISTER BIT<i> SET THEN 
a 4 DECREMENT MISS COUNT 

Bs ENDIF 


;ENDDO 

;IF MISS COUNT NOT EQUAL TO 4096. THEN 

Sa ERROR HITS RECORDED AFTER FLUSHING CACHE 
;ENDIF 

;ENDTST 


‘ 
gf SRSSAAEEAREEARASSAEARASASEAKAASAAEASRSARAAREALASSEALAALESLELES ERASE 


TST11: SCOPE 


NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 993 ; not yet 
NOP ; debug aid 
BR TSTi2 ;:;GO TO NEXT TEST 
99$: NOP 
JSR PC, INITMM ;INITIALIZE MMU 


MOV #1600, KIPAR6 ;LET PAR6 POINT TO LOW 28K 
MOV #140000,R1 
INC SRO ;ENABLE MM 


MOV #4096., Re 


;GET "7 OF 8K BYTE BUFFER 
;INIT LOOP COUNTER TO 4K WORD COUNT 


SEQ 0305 








COKDAEO KOJ11-B CLUSTER DIAG. 
FLUSH CACHE TEST 


TEST - 


106642 
106642 


104024 
000400 


000004 


177752 
000004 


000002 
001000 


177572 
010000 
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177746 
177520 


114150 
114150 


177520 


177746 
177520 


114150 
114150 


177520 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


8$: 


CR1i)+ 

Re, i$ 
#140000, Ri 
#2048., R2 
#4096., R3 


CCR 


#400, 
#1000,BCSR 
CR1)+ 


S#HITMIS ,RECDAT 
#BITO2 .RECDAT 


C(R1)+ 


4 
#1000, BCSR 
-(R1) 


Q¢HITMIS ,RECDAT 
#BITO2,RECDAT 


3:GO TO NEXT TEST 





SEQ 0306 


;READ ADDRESS TO ALLOCATE CACHE 
;00 UNTIL ALL LOCATIONS ALLOCATED 
;GET ADDRESS OF 8K BYTE BUFFER 
sINIT LOOP COUNTER TO 2K WORD COUNT 
sINITIALIZE MISS COUNT TO 4K 
;FLUSH CACHE 

;DISABLE HALT ON BREAK 

;READ ADDRESS 

;STORE REGISTER 

;IF HIT/MISS REGISTER NOT EQUAL 
;70 ZERO THEN 

;DECREMENT MISS COUNT 

;00 IN 2 WORD INCREMENTS (PMI MEMORY) 
;LOOP UNTIL ENTIRE CACHE CHECKED 
;ENABLE HALT ON BREAK 

;D0 FOR 4K 

;STARTING WITH O 

sALLOCATE IN CACHE 

;00 FOR 4K 

300 FOR THE 2ND HALF 

;START WITH LAST LOCATION 

;FLUSH CACHE 

;DISABLE HALT ON BREAK 

;READ ADDRESS 

;STORE REGISTER 

;IF HIT/MISS REGISTER NOT EQUAL 
:T0 ZERO THEN 

;DECREMENT MISS COUNT 

;D0 IN 2 WORD DECREMENTS 

700 FOR 2K WORDS 

;ENABLE og a BREAK 

; TURN OFF 

;I1F MISS COUNT NOT EQUAL TO 4K WORDS 


; THEN 
{HITS RECORDED AFTER FLUSHING CACHE 
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TEST 


106740 


013737 


003032 


003164 
177752 
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- UNCONDITIONAL BYPASS TEST 


177746 
177520 


114150 
114150 


114150 


-SBTTL TEST 


SEQ 0307 


- UNCONDITIONAL BYPASS TEST 


sUNCONDITIONAL BYPASS TEST - THIS TEST WILL VERIFY THAT WHEN CCR 
;BIT<9> IS SET, A MEMORY REFERENCE IS FORCED TO MAIN MEMORY. THIS 
;WILL ALSO VERIFY THAT READ AND WRITE HIT INVALIDATE THE CACHE 


;LOCATIONS WHEN BYPASS IS SET. 


; 
; 
;BGNTST 


; 
;READ TEST LOCATIONS TO SETUP POSSIBILITY OF HIT 


SET CCR BIT<9> 
;READ FIRST TEST LOCATION 


;IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
3. ERROR IN RECORDING HITS IN HIT/MISS 


; ENDIF 
; 
;WRITE SECOND TEST LOCATION 


;IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
i. ERROR IN RECORDING HITS IN HIT/MISS 


; ENDIF 

;CLEAR CCR BIT<9> 

’ 

;READ FIRST LOCATION 


;IF HIT/MISS REGISTER BIT<1i> SET THE 


; 
s;READ SECOND LOCATION 


N 
_— ERROR BYPASS DOESN'T INVALIDATE CACHE 


;IF HIT/MISS REGISTER BIT<1> SET THEN 
3. ERROR BYPASS DOESN'T INVALIDATE CACHE 


; ENDIF 
;ENDTST 


gf SSSSSEAEAAAESASEKALSEAESLAAESALASALASASEARAALEALESASELALALALLELEEE 


TST12: SCOPE 
NOP 
TST CCHPAS 
BNE 99$ 
NOP 
BR TST1i3 
99$: NOP 
TST @#TSTLOC 
TST 8¢TSTLOC+2 
BIS #BITO9, CCR 
1$: BIC #1000,BCSR 
TST 8#¢TSTLOC 
MOV HITMIS ,RECDAT 
BIT #BITO2,.RECDAT 
BNE 2$ 
ERROR +45 
2$: CLR @#TSTLOC+2 
MOV HITMIS ,RECDAT 


shave done enough inclusive passes? 
; not yet 
; debug aid 

;:;GO TO NEXT TEST 


sALLOCATE FIRST TEST LOCATION 
sALLOCATE SECOND TEST LOCATION 
;SET CCR BIT 9 (CACHE BYPASS) 
;DISABLE HALT ON BREAK 

;READ FIRST TEST LOCATION 
;STORE HIT/MISS TO REGISTER 2 
<>: ganas REG. BIT 1 NOT SET 
; 


;ERROR IN RECORDING HITS IN HIT/MISS WITH CCR<9>=1 
;WRITE SECOND LOCATION 
;STORE HIT/MISS TO REGISTER 2 
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TEST - UNCONDITIONAL BYPASS TEST 


SEQ 0308 


17141 106746 032737 000004 114150 BIT @BITO2 ,RECDAT ;IF HIT/MISS REG. BIT 1 NOT SET 
17142 106754 001001 BNE 3$ ; THEN 

17143 106756 5 ERROR +45 ;ERROR IN RECORDING HITS IN HIT/MISS WITH CCCR<9>=1 
17144 106760 005737 003162 3$: TST @eTSTLOC sREAD FIRST TEST LOCATION 

17145 106764 013737 177752 114150 MOV HITMIS ,RECDAT s;STORE HIT/MISS TO REGISTER 2 
17146 106772 032737 000004 114150 BIT #BITO2 ,RECDAT ;IF HIT/MISS REG. BIT 1 SET 

17147 107000 001401 BEQ 4s ; THEN 

17148 107002 104025 ERROR +25 ;BYPASS DOESN'T INVALIDATE CACHE 
17149 107004 005037 003164 4$: CLR B¢TSTLOC+2 ;WRITE SECOND LOCATION 

17150 107010 013737 177752 114150 MOV HITMIS ,RECDAT sSTORE HIT/MISS TO REGISTER 2 
17151 107016 032737 000004 114150 BIT #BITO2 ,RECDAT ;IF HIT/MISS REG. BIT 1 SET 
17152 107024 001401 BEQ S$ ; THEN 

17153 107026 104025 ERROR +25 ;BYPASS DOESN'T INVALIDATE CACHE 
17154 107030 042737 001000 177746 5$: BIC #BITO9,CCR ;RESTORE CCR 

17155 107036 052737 001000 177520 BIS #1000,BCSR ;ENABLE HALT ON BREAK 
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TEST - WRITE WRONG DATA PARITY TEST 





-SBTTL TEST 


- WRITE WRONG DATA PARITY TEST 
;WRITE WRONG DATA PARITY TEST - THIS TEST WILL VERIFY THAT WHEN CCR 
;BIT<6> = 1 AND CCR BITS<7,0> = 0,1, 
;WRITE. THE WRITE WITH CCR BIT<6> = 1 TO A LOCATION WILL CAUSE A 

;CACHE UPDATE AND WRONG PARITY TO BE WRITTEN SO WHEN THE LOCATION 
;IS READ INSTEAD OF A HIT BEING RECORDED THE CACHE PARITY ERROR 

;WILL CAUSE A CACHE MISS. THIS TEST WILL BE DONE A BYTE AT A TIME. 


5 
;BGNTST 


sSAVE CONTENTS OF VECTOR 114 
;LET VECTOR 114 POINT TO ABORT ROUTINE 
;CLEAR MSER 
;IF MSER NOT CLEAR THEN 


3. 
;ENDIF 


ERROR MSER DOESN'T CLEAR ON WRITE REFERENCE 


;WRITE TEST LOCATION 

;SET BITS<6,0> IN CCR 

;WRITE TEST LOCATION LOW BYTE 

;CLEAR CCR BIT<6> CWRITE WRONG DATA PARITY) 
;INITIALIZE ERROR INDICATORS 

sREAD TEST LOCATION LOW BYTE 

;IF BIT<i> SET IN HIT/MISS REGISTER THEN 


ie 
;ELSE 
Ra 

is 

’ 

i. 

te 
;ENDIF 
;CLEAR 


i. 
; ENDIF 


PARITY ERROR DOESN‘T CAUSE MISS 


IF MSER BITS <7:5> ZERO THEN 


ELSE 


ENDIF 
ENDIF 


;SET CCR BIT<6> 

;WRITE TEST LOCATION HIGH BYTE 

;CLEAR CCR BIT<6> 

;READ TEST LOCATION HIGH BYTE 

;IF BIT<i> SET IN HIT/MISS REGISTER THEN 
IF MSER BITS<7:5> NOT SET THEN 


PARITY ERROR DOESN'T SET MSER PROPERLY 
SET ERROR IN LOW BYTE INDICATOR 


MSER 
;IF MSER NOT CLEAR THEN 
, ERROR MSER DOESN'T CLEAR ON WRITE REFERENCE 


PARITY ERROR DOESN'T CAUSE A MISS 


ELSE 

; SET ERROR IN HIGH BYTE INDICATOR 
ENDIF 

IF MSER BITS <7:5> ZERO THEN 

—_ PARITY ERROR DOESN‘T SET MSER 


NDI 
sRESTORE CONTENTS OF VECTOR 114 
;IF ERROR INDICATORS SET THEN 
IF ERROR IN BOTH BYTES THEN 


is 


ELSE 


PARITY ERROR IGNORED 


- ERROR IN LOW BYTE THEN 
LOW BYTE PARITY ERROR IGNORED 


A READ MISS OCCURS AFTER A 





SEQ 0309 
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TEST 


003032 


177744 
177744 


000340 
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~- WRITE WRONG DATA PARITY TEST 


003012 
000114 


177520 
177746 
003162 
177746 


177744 


177746 
003163 
177746 


114150 
114150 


177744 


TST 


ELSE 


; 
;DATA PARITY ABORT ROUTINE: 


;ENDTST 





SEQ 0310 


HIGH BYTE PARITY ERROR IGNORED 


ILLEGAL PARITY INTERRUPT 
RETURN 


gf BEE OO 44449494 EE EES 


TST13: 


1$: 


2s: 


3$: 


4$: 


S$: 


SCOPE 


CCHPAS shave done enough inclusive passes? 
99$ . - Ege 
~ * aid 

TST14 ;:;GO0 TO Next TEST 
84114, SLOCOO ;SAVE CONTENTS OF VECTOR 114 
@DAPABO, 80114 ;LET VECTOR POINT TO ABORT ROUTINE 
MSER ;CLEAR MSER 
MSER ;IF MSER NOT CLEAR 
i$ ; THEN 
+26 ;MSER DOES NOT CLEAR ON WRITE REFERENCE 
8e¢TSTLOC sWRITE TEST LOCATION TO ALLOCATE CACHE 
#1000, B8CSR ;DISABLE HALT ON BREAK 
#101, # CCR ;SET BITS<6,0> IN CCR 
#377, |$TSTLOC ;WRITE LOW BYTE WITH BAD PARITY 
#BITO6, CCR ;CLEAR WRITE WRONG DATA PARITY BIT 

;CLEAR ERROR INDICATORS 
SeTSTLOC ;READ LOW BYTE OF TEST LOCATION 
HITMIS, R3 ;SAVE HIT/MISS 
— R3 «id 1 SET IN HIT/MISS REGISTER 

; 
+27 ;PARITY ERROR DON’T CAUSE A MISS 
3$ ;ELSE 
#340, MSER ;IF MSER BIT<7:5> NOT ZERO 
3$ ; THEN 
+30 ;PARITY ERROR DON’T SET MSER WITH CCR<7>=0 
MSER ;CLEAR MSER 
MSER ;IF MSER NOT CLEAR 
4$ ; THEN 
+26 ;MSER DOES NOT CLEAR ON WRITE REFERENCE 
$BITO6, CCR ;SET CCR BIT 6 CWRITE WRONG PARITY) 
0377,  #S@TSTLOC+1 ;WRITE HIGH BYTE OF TEST LOCATION 
@BITO6, CCR ;CLEAR WRITE WRONG PARITY BIT 
BeTSTLOC+1 sREAD HIGH BYTE OF TEST LOCATION 
HITMIS ,RECDAT ;SAVE HIT/MISS 
oe 5 oo 1 SET IN HIT/MISS REGISTER 

; 
+27 ;PARITY ERROR DON’T CAUSE A MISS 
6$ ;ELSE 
ia MSER ;IF aets <7:5> ZERO 

: 
+30 ;PARITY ERROR DON'T SET MSER WITH CCR<7>=0 








COKDAEO KOJ11-8 CLUSTER DIAG. MACRO YOS.02 
fEST 


— 


WRITE WRONG DATA PARITY TEST 


011637 
104007 
000002 


177746 
003012 
000003 


177746 
003012 
001000 


001122 


000114 


000114 
177520 


6%: 


7$: 


DAPABO: 
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SLOCOO, 60114 
$3, 

7$ 

+31 

CCR 
SLOCOO , 84114 
#1000, BCR 
TST14 

(SP), $BDADR 
+7 





SEQ 0311 


s;CLEAR CCR BEFORE EXIT 
sRESTORE CONTENTS OF VECTOR 114 
;IF ERROR INDICATORS SET 


; THEN 
;PARITY ERROR IGNORED 
;CLEAR CCR 

sRESTORE PARITY TRAP 
+ ae HALT ON BREAK 


3;GO TO NEXT TEST 


s;SAVE ADDRESS THAT CAUSED ABORT 
;ILLEGAL PARITY INTERRUPT 
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SE 
TEST - WRITE WRONG TAG PARITY 7 Oe 
17287 -SBTTL TEST - WRITE WRONG TAG PARITY 
17288 sWRITE WRONG TAG PARITY - THIS TEST WILL VERIFY THAT A READ MISS 
17289 sOCCURS AFTER A WRITE WILL CCR<10> = 1 AND CCR<7,0> = 0,1. THE WRITE 
17290 3T0 THE LOCATION WILL CAUSE A CACHE UPDATE BUT THE TAG WILL BE 
17291 ;WRITTEN WITH THE WRONG PARITY. WHEN THE LOCATION IS READ INSTEAD 
17292 ;0F A CACHE HIT OCCURRING THE PARITY ERROR SHOULD CAUSE A CACHE 
17293 ;MISS. 
17294 ; 
17295 ;BGNTST 
17296 sSAVE CONTENTS OF VECTOR 114 
17297 ;LET VECTOR 114 POINT TO ABORT ROUTINE 
17298 ;CLEAR MSER 
17299 ;SET WRITE WRONG TAG PARITY BIT<10> 
17300 ;WRITE TEST LOCATION 
17301 ;CLEAR CCR BIT<10> AND SET ABORT DISABLE BIT<0> 
17302 ;READ TEST LOCATION 
17303 ;IF BIT<1> SET IN HIT/MISS REGISTER THEN 
17304 3. IF MSER BITS <7:5> SET THEN 
17305 be ‘ PARITY ERROR DOESN’T CAUSE MISS 
17306 as ELSE 
pe od ; ; PARITY ERROR DOESN'T SET MSER WITH CCR<7>=0 
17309 ; ENDIF 
17310 ;SET WRITE WRONG TAG PARITY BIT<10> 
17311 ;sWRITE TO A BYTE OF A TEST LOCATION 
17312 ;SAVE HIT/MISS REGISTER 
17313 ;CLEAR WRITE WRONG TAG PARITY BIT 
17314 - BIT<1> NOT SET IN HIT/MISS REGISTER THEN 
17315 RROR 
17316 ; ENDIF 
17317 sRESTORE VECTOR 114 
17318 wes TST 
17319 
17320 STAG PARITY ABORT ROUTINE: 
17321 ; ILLEGAL PARITY INTERRUPT 
17322 : RETURN 
17323 ;ENDTST 
17324 eri ititi it ti ttt tii iti titi iii it titi tt Titi tit ttt ttt TT Tt ttt ttt 
107360 000004 TST1i4: SCOPE 
17325 107362 000240 NOP 
17326 107364 005737 003032 TST CCHPAS shave done enough inclusive passes? 
17327 107370 001002 BNE 99% ; not yet 
17328 107372 000240 NOP : ~~ aid 
17329 107374 000453 BR TSTiS ;;GO0 TO NEXT TEST 
17330 107376 000240 99%: NOP 
17331 107400 013737 000114 003012 MOV 00114, ;SAVE CONTENTS OF VECTOR 114 
17332 107406 012737 107514 000114 MOV STAPABO, 80114 ;LET VECTOR POINT TO ABORT ROUTINE 
17333 107414 042737 001000 177520 BIC #1000,8CSR ;DISABLE HALT ON BREAK 
17334 107422 005037 177744 CLR MSER ;CLEAR MSER 
17335 107426 012737 002000 177746 MOV #BIT10, CCR ;SET WRITE WRONG TAG PARITY 
37336 107434 005037 003162 CLR 8¢TSTLOC ;WRITE LOCATION WITH BAD TAG PARITY 
37337 107440 012737 000001 177746 MOV “BITOO, CCR ;CLEAR BIT 10 AND SET BIT 0 
17338 107446 005737 003162 TST @¢TSTLOC ;READ TEST LOCATION 
17339 107452 013737 177752 114150 MOV HITMIS ,RECDAT ;SAVE HIT/MISS REGISTER 
17340 107460 032737 000004 114150 BIT #BITO2 ,RECDAT ;IF BIT 1 SET IN HIT/MISS REGISTER 
17341 107466 001401 BEQ 2$ ; THEN 
17242 107470 104027 ERROR +27 ;PARITY ERRGR DON'T CAUSE A MISS 


——— nine 
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TEST - WRITE WRONG TAG PARITY 


SEQ 0313 


17343 197472 013737 003012 000114 23: MOV SLOCOO, 90114 sRESTORE CONTENTS OF VECTOR 114 
17344 197500 0050357 177744 CLR MSER ;CLEAR ERRORS 

17345 107504 052737 001000 177520 BIS #1000,BCSR . sENABLE HALT ON BREAK 

YL oe 107512 000404 BR TST1i5 3;GO0 TO NEXT TEST 

17348 

17349 107514 011637 001122 TAPABO: MOV (SP), $BDADR ;SAVE ADDRESS THAT CAUSE ABORT 
17359 107520 104007 ERROR +7 sILLEGAL PARITY INTERRUPT 

Yt 4. 107522 000002 RTI 
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TEST 


107524 
107526 
107530 
107534 
107536 
107540 
107542 


107544 
107552 
107560 


107566 
107572 
107574 


013737 
013737 
012737 


012704 
005724 
022704 


- PARITY ABORT TEST 


003032 


000114 
000004 
107676 


107566 
107676 
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003012 
003014 
000114 


-SBTTL TEST 
sPARITY ABORT TEST - THIS TEST WILL VERIFY THAT WHEN CCR<7,0> = 
31,0, AN ABORT OCCURS ON THE EXECUTION OF AN INSTRUCTION THAT HAS 
;BEEN WRITTEN WITH WRONG PARITY. 


; 
;BGNTST 

sSAVE VECTOR 114 
;SAVE VECTOR 4 


SEQ 0314 


- PARITY ABORT TEST 


sLET VECTOR 114 POINT TO ABORT ROUTINE 
sLET VECTOR 4 POINT TO ERROR ROUTINE 
;CLEAR EXPECTING ABORT FLAG 

sSET CCR<10> WRITE WRONG TAG PARITY BIT 
;WRITE TEST ADDRESS 


;CLEAR CCR<10> 


;SET CCR TO #200 ENABLE PARITY ABORTS 
;SET EXPECTING ABORT FLAG 
;READ TEST ADDRESS 


:;IF ABORT FLAG NE O THEN 
ERROR IN PARITY ABORT LOGIC 


;ENDIF 
sRESTORE VECTOR 114 
sRESTORE VECTOR 4 


“sed 


TST 


;ABORT ROUTINE : - EXPECTING ABORT FLAG NOT SET THEN 


s;ENDTST 


ERROR NO ABORT SHOULD HAVE OCCURRED 
CLEAR (EXPECTING) ABORT FLAG 


IF MSER NOT EQUAL TO 100040 THEN 


ENDIF 


PARITY ABORT LOGIC DOESN’T SET MSER PROPERLY 


IF PC = UPDATED PC THEN 


ENDIF 
RETURN 


ILLEGAL PARITY ABORT 


§ f RSSESESASESESESALESESALAASAEREESEEAAKREAASAAKEAAESESALELEALAALALES 


TST15: 


SCOPE 
NOP 


CCHPAS shave done enough inclusive passes? 
99$ ; not yet 
; debug aid 
TST16 ;:;GO TO NEXT TEST 
80114, SLOCOO ;SAVE VECTOR 114 
044, SLOCOL ;SAVE VECTOR 4 
#ABORTR, 8#114 ;LET VECTOR 114 POINT TO ABORT ROUTINE 


: TO AVOID CONFUSION ALLOCATE IN CACHE FOLLOWING INSTRUCIONS 


1$: 


MOV 
TST 
CMP 


#. ,R4 ;START WITH CURRENT 
(R4)+ ;READ A WORD 
#ABORTR,R4 ;GOT TO ABORT ROUTINE? 
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PARITY ABORT TEST 


107674 


107676 
107702 
107704 
107706 


107750 


005700 


100040 
107640 
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177520 
177746 


177746 


177520 
000114 
000004 


177744 
001124 


ABORTI: 


ABORTR: 


1$: 
23: 


3$: 


4$: 





1$ 


RO 
#1000,BCSR 


#BIT10, CCR 
S#TSTLOC 
#BITO7, CCR 
RO 

a¢TSTLOC 

RO 

i$ 

+34 
#1000,BCSR 


3:GO TO 
MSER ,R3 
RO 


i$ 

CSP), $BDADR 

+7 

e$ 

RO 

— 

#100040, $GDDAT 

+35 

_ #ABORTI+4 
$ 


+7 





SEQ 0315 


;IF NOT, KEEP ON ALLOCATING 

;CLEAR EXPECTING ABORT FLAG 

s;DISABLE HALT ON BREAK 

;SET WRITE WRONG PARITY BIT 

sWRITE TEST LOCATION WITH BAD PARITY 
sENABLE ABORTS, CLEAR WWTP BIT 

sSET EXPECTING ABORT FLAG 

;READ TEST LOCATION (SHOULD CAUSE ABORT) 
i FLAG NOT EQUAL ZERO 

sPARITY ABORT LOGIC DOESN'T WORK 
sENABLE HALT ON BREAK 

sRESTORE VECTOR 114 

sRESTORE VECTORE 4 


NEXT TEST 
;SAVE MSER 
; IF EXPECTING ABORT FLAG NOT SET 


; THEN 
;SAVE ABORT ADDRESS 
;ILLEGAL PARITY INTERRUPT 


sELSE 
;CLEAR CEXPECTING) ABORT FLAG 
;IF MSER NOT EQUAL TO 100040 


; THEN 

;SAVE PROPER MSER SETTING 

;PARITY ABORT DON’T SET MSER PROPERLY 
+4 “9 EQUAL TO UPDATE PC 


; THE 
;ILLEGAL PARITY INTERRUPT 
;RETURN 
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TEST 


17445 
17446 
17447 
17448 
17449 
17450 
17451 
17452 
17453 
17454 


107752 
107754 
107756 
107762 
107764 
107766 
107770 


107772 
110000 


110006 
110012 
110014 
110020 
110022 
110024 
110032 


013737 
012737 


042737 
052737 


- PARITY INTERRUPT TEST 


003032 


000114 
110106 


110006 


110106 


001000 
000100 
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003012 
000114 


177520 
177746 


-SBTTL TEST - PARITY INTERRUPT TEST 

sPARITY INTERRUPT TEST - THIS TEST WILL VERIFY THAT WHEN CCR<7,0> = 
30,0, A PARITY INTERRRUPT OCCURS AFTER EXECUTION OF AN INSTRUCTION 
;THAT HAS BEEN WRITTEN WITH WRONG PARITY. 


; 

;BGNTST 

;SAVE CONTENTS OF 114 

;SETUP VECTOR 114 TO POINT TO INTERRUPT ROUTIN: 
;CLEAR EXPECTING INTERRUPT FLAG 

;WRITE TEST ADDRESS WITH BAD PARITY 

sSET EXPECTING INTERRUPT FLAG 

;READ TEST ADDRESS 

;IF INTERRUPT FLAG NE O THEN 


oo PARITY INTERRUPT LOGIC DOESN‘T WORK 
; 

sRESTORE CONTENTS OF VECTOR 114 

sEXIT TST 


IF EXPECTING INTERRUPT FLAG NE 1 THEN 
i oe ERROR NO INTERRUPT SHOULD HAVE OCCURRED 


Seana CLEAR (EXPECTING) INTERRUPT FLAG 
” SAVED PC NE TO UPDATED PC THEN 

IF PC = TEST INSTRUCTION PC THEN 
ERROR INSTRUCTION ABORTED 


ILLEGAL PARITY ABORT 


SINTERRUPT ROUTINE: 


ELSE 
: ENDIF 
ENDIF 
IF MSER NE #340 THEN 
PARITY INTERRUPT DOESN'T SET MSER PROPERLY 


ENDIF 
RETURN 
;ENDTST 
5 RRRRRAEAEERSAAARERAAREEASSAEREAREAEEEEAEE ES EEEKES EERE EEEERERERS 
TST16: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP debug aid 
BR TST17 7;GO TO NEXT TEST 
99$: NOP 
MOV 84114, SLOCOO ;SAVE CONTENTS OF VECTOR 114 
MOV #INTERR , 80114 ;LET VECTOR POINT TO INTERRUPT ROUTINE 
: 
; TO AVOID CONFUSION ALLOCATE IN CACHE FOLLOWING INSTRUCIONS 
MOV @. ,R4 ;START WITH CURRENT 
1$: TST (R4)+ ;READ A WORD 
CMP #INTERR,R4 ;GOT TO INTERRUPT ROUTINE? 
BNE 1$ ;IF NOT, KEEP ON ALLOCATING 
CLR Ri ;CLEAR EXPECTING INTERRUPT FLAG 
BIC #1000,B8CSR ;DISABLE HALT ON BREAK 
BIS #BITO6, CCR ;SET WRITE WRONG DATA PARITY 





SEQ 0316 








© 
~ 
~ 
uw 
- 
o 
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PARITY INTERRUPT TEST 


003162 
177746 


003162 


001000 
003012 
177744 


001122 


110056 


000340 177744 
000340 001124 
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177520 
000114 


INTRPC: 


i$: 


INTERR: 


1$: 
2$: 


4$: 


S$: 





— SEQ 0317 


~ 


B#TSTLOC sWRITE LOCATION WITH BAD DATA PARITY 

CCR ;CLEAR WRITE WRONG DATA PARITY 

Ri sSET EXPECTING INTERRUPT FLAG 

a¢TSTLOC sREAD TEST LOCATION 

He ——_" FLAG NOT EQUAL ZERO 

+36 sPARITY INTERRUPT LOGIC DOESN’ T WORK 

#1000,BCSR sENABLE HALT ON BREAK 

SLOCOO, 9#114 sRESTORE VECTOR 114 

MSER ;CLEAR MSER 

TST17 33;GO TO NEXT TEST 

_—— INTERRUPT FLAG NOT SET 
i 

(SP), $BDADR s;SAVE INTERRUPT ADDRESS 

+ ;ILLEGAL PARITY INTERRUPT 

2$ sELSE 

Ri ;CLEAR CEXPECTING) INTERRUPT FLAG 

se #INTRPC+4 — PC NOT EQUAL TO UPDATED PC 
. 

+7 sILLEGAL PARITY INTERRUPT 

~ MSER <a NOT EQUAL TO EXPECTED VALUE 
; 

#340, $GDDAT sSAVE PROPER MSER 

+35 ;PARITY INTERRUPT DON'T SET MSER PROPERLY 


;RETURN 
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TEST 


110174 
110176 


012703 
005723 
022703 
001374 


013737 


001001 


003032 


110176 
110354 
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003012 
000114 
177520 
177746 


177746 


177744 


000114 
177746 


177746 


-SBTTL TEST 
sMISCELLANEOUS PARITY TEST - THIS TEST “4ECKS THAT BYPASS CYCLES WITH 
sPARITY ERRORS CAUSE CACHE HIT RESPONSE AND THAT FORCE MISS CYCLES 

; IGNORE PARITY ERRORS. 


;BGNTST 


- MISCELLANEOUS PARITY TEST 


sWRITE A LOCATION WITH BAD PARITY 
;SET BYPASS IN CCR 

sREAD THE LOCATION BACK 

;IF NO HIT OR MSER NOT SET THEN 


;ENDIF 
;WRITE A LOCATION WITH BAD PARITY AND SET BYPASS 
: IF ee READING IT BACK 


ERROR 





SEQ 0318 


£ 5p SSSKERASAKES SASSER EAEEAEEEAAEAEEEEAAEEESEESEEESEEEKEEKAEEEEKEKEEEESE 


TST1i7: 


99%: 


10$: 


$ 
; CHECK 


i$: 


; CHECK 


; 
2$: 


SCOPE 


CCHPAS 
99$ 
TST20 


+. ,R3 

CR3)+ 

#4$,R3 
10$ 


BYPASS AND BAD PARITY 


87114, SLOCOO 


#1000,BCSR 
—— 


$ 
+42 


#3$,80114 
#68IT10!BITO6!BITOO,CCR 
8¢TSTLOC 

#14,CCR 

a¢TSTLOC 

4$ 


shave done enough inclusive passes? 


; —' aid 
3:GO TO NEXT TEST 


;START WITH CURRENT INSTRUCTION 
;READ A WORD 

;LAST WORD? 

;IF NOT, CONTINUE 


s;SAVE PARITY VECTOR 

sPOINT NEW VECTOR 

;DISABLE HALT ON BREAK 
sDATA AND TAG PAR., NO INT. 
sWRITE CYCLE 

s;SET BYPASS 

s;BYPASS WITH WRONG PARITY 
;ERROR 


; 

sADJUST STACK 
sMSER OK? 

;IF YES, BRANCH 
sBYPASS WRONG 


;CLEAR MSER 

;CLEAR CCR 

;POINT NEW VECTOR 

;DATA AND TAG PAR., NO INTER 
sFORCE MISS WITH PARITY 
;FORCE MISS 

sALLOCATE CACHE 





COKDAEO KDJ11-8 CLUSTER DIAG. 


TEST 


- MISCELLANEOUS PARITY TEST 


012737 


3$: 
177746 4a: 


000004 


001000 177520 
003012 000114 
000400 177746 
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#BITO8,CCR 





SEQ 0319 


;ADJUST STACK 
;CLEAR CCR 

sENABLE HALT ON BREAK 
sRESTORE PARITY VECTOR 
;FLUSH CACHE 
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TEST - MEMORY SYSTEM ERROR REGISTER TEST 


SEQ 0320 


17594 -SBTTL TEST - MEMORY SYSTEM ERROR REGISTER TEST 

17595 sMEMORY SYSTEM ERROR REGISTER TEST - THIS TEST WILL VERIFY THE 
17596 sFUNCTIONALITY OF BITS <15> AND <7:5> OF THE MEMORY SYSTEM ERROR 
17597 sREGISTER. THIS TEST WILL USE THE WRITE WRONG PARITY BITS (BITS<10> 
17598 ;AND <6> OF THE CCR) TO WRITE BAD PARITY INTO A LOCATION. THE 

17599 sLOCATION WILL THEN BE READ WITH CACHE TRAPS ENABLED AND THE MSER 
17600 ;WILL BE CHECKED AFTER THE ABORT FOR THE CORRECT BIT(S) BEING SET. 
17601 ;THIS WILL BE DONE FOR ALL COMBINATIONS OF BITS<10> AND <6> FOR WORD 
17602 ;ACCESSES THEN REPEATED FOR ALL COMBINATIONS OF BITS<i0> AND <6> FOR 
17603 ;BYTE ACCESSES. THE TEST WILL THEN BE REPEATED A THIRD TIME FOR BYTE 
17604 s;ACCESSES AND ABORTS DISABLED. THE MSER SHOULD CONTAIN BITS <7:5> 
ooaee _ TO 1‘S AND BIT <15> A ZERO FOR ALL COMBINATIONS. 

17607 ;BGNTST 

17608 ;SAVE CONTENTS OF VECTOR 114 

17609 SETUP VECTOR TO POINT TO ABORT ROUTINE 

17610 ;INITIALIZE LOOP COUNTER 

17611 ;D0 UNTIL ALL WORD COMBINATIONS CHECKED 

17612 3. INITIALIZE MSER 

17613 3. SETUP CCR FROM CCR TABLE 

17614 rE READ TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 
17615 3. CLEAR <10,6> FROM CCR 

17616 3. SETUP CCR FOR ABORT 

17617 3. READ TEST LOCATION ;THIS COULD CAUSE TRAP 
17618 3. IF EXPECTED DATA NE RECEIVED DATA THEN 

17619 ie ERROR IN SETTING MSER 

17620 i. ENDIF 

17621 ie UPDATE LOOP COUNTER 

17622 ;ENDDO 

17623 ; INITIALIZE LOOP COUNTER 

17624 ;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 

17625 ie INITIALIZE MSER 

17626 Be SETUP CCR FROM CCR TABLE 

17627 ir READ TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 
17628 3. CLEAR <10,6> FROM CCR 

17629 rE SETUP CCR FOR ABORT 

17630 3. READ LOW BYTE TEST LOCATION 

17631 ie GET EXPECTED BYTE DATA FROM TABLE 

17632 Tr IF EXPECTED DATA NE RECEIVED DATA THEN 

17633 i. ERROR IN SETTING MSER 

17634 3. ENDIF 

17635 3. INITIALIZE MSER 

17636 rE READ HIGH BYTE TEST LOCATION 

17637 ir GET EXPECTED BYTE DATA FROM TABLE 

17638 i. IF EXPECTED DATA NE RECEIVED DATA THEN 

17639 i. ERROR IN SETTING MSER 

17640 3. ENDIF 

17641 i. INCREMENT LOOP COUNTER 

17642 ;ENDDO 

17643 ; INITIALIZE LOOP COUNTER 

17644 ;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 

17645 3. INITIALIZE MSER 

17646 i. SETUP CCR FROM CCR TABLE 

17647 rE READ TEST LOCATION TO ALLOCATE LOCATION WITH DESIRED PARITY 
17648 i. CLEAR <10,6> FROM CCR 

17649 i. SETUP CCR FOR NO ABORTS 

17650 ; READ LOW BYTE TEST LOCATION 
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TEST 


012737 
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- MEMORY SYSTEM ERROR REGISTER TEST 


003012 
000114 


177520 


177746 


;ENDDO 
;EXIT 


IF RECEIVED DATA NE TO #340 THEN 
ERROR IN SETTING MSER 


INITIALIZE MSER 

READ HIGH BYTE TEST LOCATION 

IF RECEIVED DATA NE #340 THEN 
. ERROR IN SETTING MSER 


ENDIF 


ENDIF 
INCREMENT LOOP COUNTER 


TST 


; 
;CCR TABLE: 


0 


100 


2000 


; 2100 
s;EXPECTED WORD DATA: 


; 
;EXPECTED BYTE DATA: 


ABORT ROUTINE: RTI 
;ENDTST 





5p SRERAESEAEARAESAEEEARESEASCEARASEEAKRALRESALESEAEKEERESEESEEEEELESLALESE 


TST20: 


99$: 


1$: 


2s: 


SCOPE 


CCHPAS 
99% 
10$ 


#114, 


SLOCOO 


#ABROUT , 8114 
4 R4 


#B1T07, CCR 
TSTLOC 


a4 
(Ri), 
2$ 
(R1), 


+35 


CR1)+ 


MSER 
$GDDAT 


O¢TSTLOC +8192. 


shave done enough inclusive passes? 
; not yet 

; debug aid 

; yes skip this 


;SAVE CONTENTS OF VECTOR 114 

;SETUP VECTOR TO POINT - ABORT ROUTINE 
sINITIALIZE LOOP COUNTER 

;GET ADDRESS OF CCR /ABLE 

sGET ADDRESS OF EXPECTED DATA TABLE 
sDISABLE HALT ON BREAK 

sINITIALIZE MSER DATA 

;SETUP CCR FROM CCR TABLE 

;ALLOCATE CACHE LOC. WITH DESIRED PARITY 
s;SETUP CCR TO ABORT POSSIBLE BAD PARITY 
;READ TEST LOCATION 

;IF RECEIVED DATA NOT EQUAL TO EXPECTED 
;DATA THEN 

;SAVE PROPER MSER SETTING 

sMSER NOT SET PROPERLY 

s; INCREMENT POINTER THRU MSER TABLE 

;TO0 INSURE MISS ON THE NEXT LOOP 


SEQ 0321 
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MEMORY SYSTEM ERROR REGISTER TEST 


TEST - 


110706 
110714 


111056 


077425 
052737 


077451 


077453 


000340 
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177520 


177746 


177746 


177520 


177520 


177746 
177744 
001124 


177746 
177744 
001124 


SoB R4, 
BIS #1000, acse 
;CHECK BYTE OPERATIONS NOW 
MOV . R4 
MOV #CCRTBL,RO 
MOV #EXPBDT,R1 
BIC #1000 ,BCSR 
3%: CLR MSER 
TST a8¢TSTLOC 
MOV CRO), CCR 
CLRB 8e¢TSTLOC 
MOV #BITO7, CCR 
TSTB 8¢TSTLOC 
CMP (Ri), MSER 
BEQ 4$ 
MOV CR1i), $GDDAT 
ERROR +35 
4$: TST CR1)+ 
CLR MSER 
TST SeTSTL 
MOV CRO)+, CCR 
CLRB O¢TSTLOC+1 
MOV #BITO7, CCR 
TSTB O¢TSTLOC+1 
CMP (Ri), MSER 
BEQ 5$ 
MOV (R11), $GDDAT 
ERROR +35 
5$: TST CR1)+ 
$oB R4, 3$ 
BIS #1000, BCSR 
sREPEAT WITHOUT ABORT 
MOV 3, 
MOV @CCRTBL+2,R0 
BIC 1 8 
6%: CLR ER 
TST @eTSTL 
MOV (RO), CCR 
CLRB 8eéTSTLOC 
V @#BITOO, CCR 
TSTB 8¢TSTLOC 
CMP $340, MSER 
BEQ 7$ 
MOV $340, $GDDAT 
ERROR +35 
7$: CLR ER 
TST @éTSTLOC 
MOV CRO)+, CCR 
CLRB BeTSTLOC +1 
MOV @BITOO, CCR 
TSTB S@TSTLOC +1 
CMP #340, MSER 
BEQ 8$ 
MOV $340, $GDDAT 
ERROR +35 
8$: SoB R4, 6$ 





SEQ 0322 


;LOOP UNTIL ALL COMBINATIONS CHECKED 
sENABLE HALT ON BREAK 


; INITIALIZE LOOP COUNTER 

;GET ADDRESS OF CCR TABLE 

;GET ADDRESS OF EXPECTED BYTE DATA TABLE 
;DISABLE HALT ON BREAK 

s;INITIALIZE MSER 

sALLOCATE TO HAVE WRITE BYTE HIT 

;SETUP CCR FROM TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
sSETUP CCR TO ABORT POSSIBLE BAD PARITY 
sREAD LOW BYTE OF TEST LOCATION 

; 4 _— DATA NOT EQUAL TO EXPECTED 


; THE 

;SAVE PROPER MSER SETTING 

;MSER NOT SET PROPERLY 

; INCREMENT POINTER THRU MSER TABLE 
;INITIALIZE MSER 

;ALLOCATE TO HAVE WRITE BYTE HIT 

;SETUP CCR FROM TABLE 

;ALLOCATE CACHE LOC. WITH DESIRED PARITY 
;SETUP CCR TO ABORT POSSIBLE BAD PARITY 
;READ HIGH BYTE OF TEST LOCATION 
i DATA NOT EQUAL TO EXPECTED 
$ 

;SAVE PROPER MSER SETTING 

:MSER NOT SET PROPERLY 

; INCREMENT POINTER THRU MSER TABLE 

;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 
sENABLE HALT ON BREAK 


sINITIALIZE LOOP COUNTER 
;GET ADDRESS OF CCR TABLE 
;DISABLE HALT ON BREAK 
sINITIALIZE MSER 


BLE 
sALLOCATE CACHE LOC. WITH DESIRED PARITY 
sSETUP CCR TO NOT ABORT 

;READ LOW BYTE OF TEST LOCATION 

44 _ DATA NOT EQUAL TO EXPECTED 
‘ 

;SAVE PROPER MSER SETTING 

sMSER NOT SET PROPERLY 

sINITIALIZE MSER 

sALLOCATE CACHE LOC. 

;SETUP CCR FROM TABLE 

sALLOCATE CACHE LOC. WITH DESIRED PARITY 
;SETUP CCR TO NOT ABORT 

;READ HIGH BYTE OF TEST LOCATION 

;IF RECEIVED DATA NOT EQUAL TO EXPECTED 


; THEN 

;SAVE PROPER MSER SETTING 

;MSER NOT SET PROPERLY 

;D0 UNTIL ALL BYTE COMBINATIONS CHECKED 
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MEMORY SYSTEM ERROR REGISTER TEST 


TEST - 


111060 
111064 
111072 
111100 


111104 
111104 


111106 
111110 
111112 
111114 


111116 
111120 
111122 
111124 


177744 
001900 
003012 
177746 
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177520 
000114 


10$: 


CCRTBL: . 


EXPWOT: . 


EXPBOT: . 


ABROUT: 


;CLEAR ERROR REGISTE 
ON BRE 


sRESTORE VECTOR 114 
sCLEAR ALL BIT IN CCR 


;;GO TO NEXT TEST 





SEQ 0323 
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SEQ 0324 


TEST - CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABO 
17794 -SBTTL TEST - CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT 
17795 ;CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT - THIS TEST WILL 
17796 ;VERIFY THAT IF A PARITY ERROR OCCURS ON THE SAME ADDRESS REFERENCE AS A 
17797 ;NON-EXISTENT MEMORY ERROR THAT THE CACHE DATA PATH GATE ARRAY BLOCKS THE 
17798 ;PARITY ERROR TO THE J-11 CHIP SET. THIS WILL BE DONE BY USING — — 
17799 ;BIT TO CAUSE A PARITY ERROR IN A CACHE REFERENCE THAT DOES NOT HA 
17800 ;CORRESPONDING ADDRESS IN MAIN MEMORY. THE ADDRESS WILL THEN BE READ CAUSING 
17801 ;BOTH A CACHE PARITY ERROR AND A NON-EXISTENT MEMORY ERROR. TO AVOID HAVING 
17802 ;TO0 SIZE THE ENTIRE MEMORY TO FIND A NON-EXISTENT MEMORY ADDRESS THIS TEST 
17803 ;WILL USE THE LARGEST NON-I/0 ADDRESS (17757776). THE TEST WILL FIRST READ 
17804 ;THIS ADDRESS AND IF A NXM TRAP OCCURS THE TEST WILL BE DONE. IF THE ACCESS 
PS on ;TO THIS ADDRESS DOES NOT TRAP THEN THE TEST WILL BE SKIPPED. 
; 
17807 ;BGNTST 
17808 ;SAVE CONTENTS OF VECTOR 4 
17809 ;SAVE CONTENTS OF VECTOR 114 
17810 ;LET VECTOR 4 POINT TO CONTINUE TESTING (A:) 
17611 ;LET PAR6 = #177400 
17612 ;ACCESS ADDRESS 157776 (PHYSICAL 17757776) 
17613 ;IF NO TRAP THEN 
17814 he GOTO ENDTST 
17615 ;ENDIF 
17816 3A: 
17817 ;SET DIAGNOSTIC AND WRITE WRONG PARITY BITS IN CCR 
17618 sWRITE ADDRESS 157776 
17819 ;CLEAR CCR 
17820 ;SET PARITY ERROR ABORT BIT IN CCR 
17621 ;LET VECTOR 4 POINT TO CONTINUE TESTING (B:) 
17822 ;LET VECTOR 114 al TO NXM-PARITY ERROR ROUTINE 
17823 ;READ ADDRESS 157776 
17824 VIF NO TRAP THEN 
17825 be ERROR IN ABORT LOGIC 
17826 s;ENDIF 
17827 3B: 
17828 ;CLEAR CCR 
17829 ;RESTORE CONTENTS OF VECTOR 114 
17830 sRESTORE CONTENTS OF VECTOR 4 
17831 ;EXIT ST 
17832 ’ 
17833 ; 
17834 s;NXM-PARITY ERROR ROUTINE: RESET “— AFTER TRAP 
17835 ; ARITY ABORT NOT BLOCKED BY NXM 
17836 : GOTO B: 
17837 sENDTST 
17838 § § 0060660666600 0604666 6466466666 0004646666 0606606 6006606664606064600666686686 
1150 000004 TST2i: OPE 
17839 111152 000240 NOP 
17840 111154 005737 003032 TST CCHPAS shave done enough inclusive passes? 
17641 111160 001002 BNE 99% s not yet 
17842 111162 000240 NO? ; eid 
37843 111164 000475 BR TST22 3:;GO0 TO NEXT TEST 
ace 111166 000240 99%: NOP 
17846 111170 013737 000004 003012 MOV 904, SLOCOO sSAVE CONTENTS OF VECTOR 4 
17647 111176 013737 000114 003014 MOV 90114, SLOCOL ;SAVE CONTENTS OF VECTOR 114 
17648 1 012737 111232 000004 MOV #1$%, Se4 ;LET VECTOR 4 POINT TO CONTINVE TESTING 
17849 111212 012737 177400 172354 MOV #177400 , KIPAR6 sLET PAR6 = OFFSET TO HIGHEST MEMORY 
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CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABO 


TEST - 


177572 
157776 


000004 


MACRO YOS.02 Tuesdey 14-May-85 08:07 Page 28-1 


177520 
177746 


177746 
000004 
000114 


2$: 
ABOEXT: 


NXMPAR: AD 


ONXMPAR , 80114 
80157776 

+37 

ABOE XT 


04, 

CCR 

SRO 
#1000,BCSR 
SLOCOO, 904 
SLOCO1, 90114 
TST22 





33GO TO 


;TURN ON MMU 

sACCESS ADDRESS 17757776 

sIF NO TRAP SKIP TEST 

;RESET STACK AFTER TRAP 

sDISABLE HALT GON BREAK 

;SET DIAG. AND WRITE WRONG PARITY BITS 
;sWRITE TO ADDRESS 17757776 

;CLEAR CCR AND SET PARITY ABORT BIT 
sLET VECTOR 4 POINT TO CONTINUE TESTING 
sLET VECTOR 114 POINT TO ERROR ROUTINE 
sREAD ADDRESS 17757776 (SHOULD TRAP) 
sNXM AND PARITY ABORT DIN’ T HAPPEN 

3GO0 EXIT TEST 

sRESET STACK AFTER TRAP 

;CLEAR CCR FOR EXIT 

sDISABLE MMU 

sENABLE HALT ON BREAK 

sRESTORE VECTOR 4 

sRESTORE VECTOR 114 

NEXT TEST 


sRESET STACK AFTER TRAP 
sPARITY ABORT NOT BLOCKED BY NXM TRAP 


ana 





SEQ 0325 
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TEST 


111360 
111362 
111364 
111370 
111372 
111374 
111376 


111400 
111406 


111412 
111414 
111416 
111424 
111432 
111434 
111436 
111444 
111446 
111454 


111456 
111460 
111462 
111464 


003032 


001000 
003162 


177752 
000010 


000004 
111412 
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177520 


114150 


114150 


114150 
001126 


- MULTIPROCCESSING INSTRUCTION TESTS 


- MULTIPROCCESSING INSTRUCTION TESTS 

sMULTIPROCCESSING INSTRUCTION TESTS - THIS TEST WILL VERIFY THAT THE MULTI- 
sPROCCESSING INSTRUCTIONS DO A BYPASS OF THE CACHE. THIS TEST WILL NOT VERIFY 
;THE REST OF THE FUNCTIONALITY OF THESE INSTRUCTIONS BECAUSE THAT WILL ALREADY 
sHAVE BEEN CHECKED IN THE BASE INSTRUCTION TESTS. THE TEST WILL FIRST ALLOCATE 
sAN ADDRESS IN CACHE THEN A TSTSET INSTRUCTION WILL BE DONE AT THAT ADORESS. 

3A HIT SHOULD BE RECORDED ON THE ACCESS. NEXT, THE ADDRESS WILL BE READ AND 

3A MISS SHOULD BE RECORDED BECAUSE THE FORCED BYPASS ON THE TSTSET INSTRUCTION 
sSHOULD HAVE INVALIDATED THE CACHE ENTRY. THE SAME SEQUENCE WILL THEN BE 
sREPEATED FOR THE WRILCK INSTRUCTION. 


: 
;BGNTST 

;READ TEST LOCATION TO ALLOCATE CACHE 

300 TSTSET INSTRUCTION 

;IF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
— ERROR IN MULTI-PROCESSOR HOOKS 

; 

;READ TEST LOCATION CALSO ALLOCATES CACHE FOR WRTLCK) 
300 WRTLCK INSTRUCTION 

;IF HIT/MIES REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
Ss ERROR IN MULTI-PROCESSOR HOOKS 


;ENDIF 

sREAD TEST LOCATION 

:D0 ASRB INSTRUCTION 

sIF HIT/MISS REGISTER BIT 3 NOT SET OR BIT 2 SET THEN 
ERROR IN MULTI-PROCESSOR HOOKS 

SENDIF 

;ENDTST 

sNOTE: THE CODE IS POSITION DEPENDENT 


§ g SSSESSSSESESSEKAALESALEEESSEEKEESESAEEKEEKEEKEKEAEALELESELAL ERLE 


-S6TTL TEST 





SEQ 0326 


TST22: si 
TST CCHPAS shave done enough inclusive passes? 
BNE. 99% ; not yet 
NOP ; debug aid 
BR TST23 3:;GO TO NEXT TEST 
99%: NOP 
BIC #1000, BCSR ;DISABLE HALT ON BREAK 
TST TSTLOC ;READ TEST LOCATION TO ALLOCATE CACHE 
; TSTSET TSTLOC :00 TSTSET INSTRUCTION 
7$ -WORD 7237 ; THESE NEXT TWO LOCATIONS ARE THE TSTSET 
-WORD TSTLOC :INSTR. BECAUSE THE ASSEMBLER WAS NOT READY 
MOV HITMIS ,RECDAT ;STORE REGISTER 
BIT @BIT3,RECDAT ;IF HIT/MISS REGISTER BIT 3 NOT SET 
BNE is ; THEN 
ERROR +45 ;ERROR IN RECORDING HITS IN HIT/MISS 
1$: BIT #6 IT2,RECDAT ;IF HIT/MISS REGISTER BIT 2 SET 
BEQ 2$ ; THEN 
MOV ae7$, $BDDAT ;SAVE OPCODE 
ERROR +41 ;MULTI-PROCESSOR HOOK INSTRUCTION DOESN’ TT CAUSE MIS 
:2$: WRTILCK TSTLOC ;D0 WRTLCK INSTRUCTION 
2$: NOP ;PUT THE WRITE LOCK CODE ON THE RIGHT $$$ 
NOP sBOUNDRY. $$$ 
-WORD 7337 ; THESE NEXT TWO WORDS ARE THE WRTLCK 
-WORD TSTLOC ; INSTR. BECAUSE THE ASSEMBLER WAS NOT READY 
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SEQ 0327 


17934 111466 013737 177752 114150 MOV HITHMIS ,RECDAT s;STORE REGISTER 
17935 111474 032737 9000010 114150 BIT #BIT3,RECDAT ;IF HIT/MISS REGISTER BIT 3 NOT SET 
17936 111502 001001 BNE 3$ , ; THEN 
17937 111504 104045 ERROR +45 sERROR IN RECORDING HITS IN HIT/MISS 
17938 111506 032737 000004 114150 3%: BIT #BIT2,RECDAT sIF HIT/MISS REGISTER BIT 2 SET 
17939 111514 001404 BEQ 4$ ; THEN 
17940 111516 013737 111456 001126 MOV 8623, $BDDAT s;SAVE OPCODE 

. 17941 111524 104041 ERROR +41 ;MULTI-PROCESSOR HOOK INSTRUCTION DOESN’ TT CAUSE MIS 
17942 111526 106237 003162 4$: ASRB TSTLOC ;THE THIRD BYPASS INSTRUCTION 
17943 111532 013737 177752 114150 MOV HITMIS ,RECDAT sSTORE REGISTER 
17944 111540 032737 000010 114150 BIT #BIT3,RECDAT sIF HIT/MISS REGISTER BIT 3 NOT SET 
17945 111546 001001 BNE S$ ; THEN 
17946 111550 104045 ERROR +45 ;ERROR IN RECORDING - sae IN HIT/MISS 
17947 111552 052737 001000 177520 5%: BIS #1000,BCSR sENABLE HALT ON BREAK 
17948 111560 032737 000004 114150 BIT #BIT2,RECDAT ;IF HIT/MISS REGISTER BIT 2 SET 
17949 111566 001404 BEQ TST23 3;EXIT TEST 
17950 111570 013737 111526 001126 MOV 864$,  $BDDAT ;SAVE OPCODE 

; 17951 111576 104041 ERROR +41 sMULTI-PROCESSOR HOOK INSTRUCTION DOESN’ TT CAUSE MIS 
17952 
17953 
17954 











*- 
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TEST - DATA STORE RAM TESTS 


SEQ 0328 


17956 -SBTTL TEST - DATA STORE RAM TESTS 

17957 ;DATA STORE RAM TESTS - THERE ARE TWO TESTS FOR THE DATA STORE RAM. 

17958 ;THE FIRST TEST WILL BE A NO DUAL ADDRESSING TEST AND THE SECOND 

17959 ;TEST WILL BE A DATA RELIABILITY TEST. THE NO DUAL ADDRESSING TEST 

17960 ;WILL FIRST WRITE EACH WORD OF THE CACHE RAM WITH ITS WORD ADDRESS 

17961 ;AND VERIFY THE CONTENTS WITH A READ OF EACH ADDRESS. THEN EACH 

17962 ;BYTE WILL BE WRITTEN WITH ITS ADDRESS AND CHECKED. THE DATA 

Lan — TEST THAT WILL BE USED IS A TEST CALLED MOVING INVERSIONS . 

17965 ;BGNTST 1 

17966 a MMU REGISTERS TO HAVE BYPASS ON KERNAL SPACE AND NO 

17967 BYPASS ON USER SPACE 

17968 iLET PS EQUAL KERNAL FOR CURRENT MODE AND USER FOR PREVIOUS 

17969 MODE 

17970 ; ENABLE MMU 

17971 ;GET FIRST ADDRESS OF 4K WORD DATA BUFFER 

17972 ;CLEAR DATA TO BE WRITTEN 

17973 ;SET DIAGNOSTIC BIT (BIT<1>) IN CCR 

17974 ;D0 UNTIL DATA TO BE WRITTEN EQUALS 20000(8) 

17975 Be WRITE DATA TO ADDRESS 

17976 e ADD 2 TO ADDRESS 

17977 3. ADD 2 TO DATA TO BE WRITTEN 

17978 ;ENDDO 

17979 ;GET FIRST ADDRESS OF 4K WORD DATA BUFFER 

17980 ;CLEAR EXPECTED DATA 

17981 ;D0 UNTIL EXPECTED DATA EQUALS 20000(8) 

179862 $. READ ADDRESS 

17983 ; IF RECEIVED DATA NE EXPECTED DATA THEN 

17984 $. GOTO DATA STORE PARITY ERROR ROUTINE 

17985 $e ENDIF 

17986 t< ADD 2 TO EXPECTED DATA 

17987 ie ADD 2 TO ADDRESS 

17988 ;ENDDO 

17989 ;GET FIRST ADDRESS OF 8K BYTE DATA BUFFER 

17990 ;CLEAR DATA TO BE WRITTEN 

17991 ;D0 UNTIL ALL BYTES CHECKED 

17992 te WRITE DATA TO ADDRESS 

17993 3. ADD 1 TO ADDRESS 

17994 be ADD 1 TO DATA TO BE WRITTEN 

17995 ;ENDDO 

17996 ;GET FIRST ADDRESS OF 8K BYTE DATA BUFFER 

17997 ;CLEAR EXPECTED DATA 

17998 ;D0 UNTIL EXPECTED DATA EQUALS 20000(8) 

17999 $- READ ADDRESS 

18000 Se IF RECEIVED DATA NE E..PECTED DATA THEN 

18001 3. . GOTO DATA STORE PARITY ERROR ROUTINE 

18002 Re ENDIF 

18003 $. ADD 1 TO EXPECTED DATA 

£8004 $. ADD 1 TO ADDRESS 

18005 ;ENDDO 

38006 ;ENDTST 

38007 ; 

18008 we tri tti tit ttt ttt it tt itt t itt tt ttt tii tttttittt ttt t tit itttttt 
111600 000004 TST23: SCOPE 

18009 111602 000240 NOP 

18610 111604 005737 003032 TST CCHPAS shave done enough inclusive passes? 

18C11 111610 001002 BNE 99% ; not yet 
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111612 
111614 
111616 


112116 


000240 
50 
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172354 


177746 
177520 


177746 


001122 


001160 
001160 


177746 


177746 


001122 


001160 
001160 


i$: 


2$: 


3$: 


100$: 


4$: 
5$: 


6$: 


7$; 


101$: 


9$: 





TST24 

PC, INITMM 
#2000, KIPAR6 
SRO 

#140000, R2 

Ri 

#BITO1, CCR 
#1000,BCSR 

Ri, #20000 
2$ 

Ri, (R2)+ 
#2, Ri 

i$ 

#BITO1, CCR 
#140000, R2 

Ri 

Ri, #20000 
5$ 

Ri, $BDA 
#BITiS, $BDADR 
CR2)+, RECDAT 
HITMIS, $TMPO 
#BITO4, $TMPO 
100$ 

+45 

ry RECDAT 
+43 

#2, Pi 

3$ 

#140000, R2 

Ri 

@BITO1, CCR 
ot #20000 


Ri, (R2)+ 
? * Ri 


6$ 
#BITO1, CCR 
#140000, R2 


Ri 
Ri, #20000 
10% 
Ri, $BDADR 
#68IT15, $BDADR 


CR2)+, RECDAT 
HITMIS, $TMPO 


#BITO4, $TMPO 
101$ 
+45 


Ri, RECDAT 
93 


+43 
1, Ri 


debu 
+360 TO NEXT TEST 





SEQ 0329 


aid 


;SETUP MMU REGISTERS 

;sLET PAR6 MAP TO ADDRESS 200000 
;TURN ON MEMORY MANAGEMENT 

;GET FIRST ADDRESS OF 4K WORD BUFFER 
s;INIT DATA TO BE WRITTEN 

s;SET DIAG BIT IN CASE NO MEMORY PRESENT 
;DISABLE HALT ON BREAK 

;D0 UNTIL ALL ADDRESSES WRITTEN 

;IF DONE GO CHECK DATA 

;WRITE DATA TO ADDRESS 

pony DATA BY 2 CWORD BOUNDARY ) 


; 

;CLEAR DIAGNOSTIC BIT 

;GET FIRST ADDRESS OF 4K WORD BUFFER 
sINIT DATA TO BE CHECKED 

;D0 UNTIL ALL ADDRESSES CHECKED 

;IF DONE GO DO BYTES 

;STORE FOR ERRORS 


; 
sREAD TEST LOCATION 
sSTORE REGISTER 


;HIT? 

;IF YES, BRANCH 

:DATA RAM ERROR 

7 eared DATA NOT EQUAL TO EXPECTED 


; THE 
;DATA RAM ERROR 
sUPDATE EXPECTED DATA BY 2 


;ENDDO 

;GET FIRST ADDRESS OF 4K WORD BUFFER 
;INIT DATA TO BE WRITTEN 

;SET DIAG BIT IN CASE NO MEMORY PRESENT 
;D0 UNTIL ALL ADDRESSES WRITTEN 

;IF DONE GO CHECK DATA 

;WRITE DATA TO ADDRESS 

foo DATA BY 1 CBYTE BOUNDARY) 


: 

;CLEAR DIAGNOSTIC BIT 

;GET FIRST ADDRESS OF 4K WORD BUFFER 
;INIT DATA TO BE CHECKED 

;D0 UNTIL ALL ADDRESSES CHECKED 

;IF DONE EXIT TEST 

;STORE FOR ERRORS 


; 

sREAD TEST LOCATION 
;STORE REGISTER 
HIT? 


;IF YES, BRANCH 

;DATA RAM ERROR 

iF RECIEVED DATA NOT EQUAL TO EXPECTED 
; N 

DATA RAM ERROR 

;UPDATE EXPECTED DATA BY 1 
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SEQ 0330 


18069 112122 000747 BR 8$ ;ENDDO 
18070 112124 052737 001000 177520 10%: BIS #1000,BCSR s;ENABLE HALT ON BREAK 
18071 112132 005037 177572 CLR SRO ! ;TURN OFF MMU 


18072 
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MACRO YOS.02 Tuesday 14-May-85 08:07 Page 31 


.SBTTL TEST - TAG STORE RAM TESTS 

sTAG STORE RAM TESTS - THERE ARE TWO TESTS FOR THE TAG STORE RAMS. THE FIRST 
;TEST IS AN ote an TEST TO ENSURE NO DUAL ADDRESSING OF THE TAG STORE. 
ear aa ile “MOVING INVERSIONS” TEST THAT CHECKS THE DATA RELIABILITY 
. 


;DUAL ADDRESSING TEST - THIS WILL BE DONE BY FIRST FLUSHING THE CACHE, THEN 
;THE FIRST 512(€10) LOCATIONS (BLOCK 0) WILL BE WRITTEN WITH ADDRESSES THAT 
s;WILL CAUSE A INCREMENTING PATTERN TO BE STORED IN THOSE LOCATIONS OF THE TAG 
sSTORE RAM. NEXT THE ENTIRE 4K ADDRESS RANGE WILL BE READ. THE HIT/MISS 
sREGISTER SHOULD ONLY REPORT HITS ON THE ADDRESSES THAT WERE ALLOCATED. THIS 
;PROCESS WILL BE REPEATED FOR EACH BLOCK. 


; 
sINITIALIZE LOW ADDRESS 

;SETUP AND ENABLE MMU 

;INITIALIZE BLOCK COUNTER 

;D0 UNTIL ALL BLOCKS TESTED (8 TIMES) 

i. FLUSH CACHE AND SET DIAGNOSTIC BIT 
Se LET CURRENT ADDRESS = LOW ADDRESS 


$ INITIALIZE ALLOCATION COUNTER 

$ ” UNTIL — BLOCK ALLOCATED oro TIMES) 

; READ CURRENT ADDRESS 

; 

$ WRITE CURRENT ADDRESS 

: ENDIF 

: UPDATE CURRENT ADDRESS CALSO ADD 200 TO PAR) 
: _— FOR I/0 PAGE WRITE THE SAME ADDRESS AS BEFORE 
; INITIALIZE GOOD ADDRESS 

: INITIALIZE CURRENT ADDRESS 

; INITIALIZE LOCATION COUNTER 

; SAVE CONTENTS OF VECTOR 114 

; LET VECTOR 114 POINT TO TAG STORE PARITY ABORT ROUTINE 
Bs DO UNTIL ALL LOCATIONS CHECKED (1000 TIMES) 

Rs ‘ INITIALIZE CHECK COUNTER 

Ss ‘ ™ UNTIL ADDRESS IN EACH BLOCK CHECKED 

: READ CURRENT ADDRESS 

; - HIT THEN 

; IF CURRENT ADDRESS NE GOOD ADDRESS THEN 
; ERROR 

; . ENDIF 

; ELSE 

; f IF CURRENT ADDRESS EQUAL GOOD ADDRESS THEN 
$ M ERROR 

; ENDIF 

; ENDIF 

: UPDATE GOOD ADDRESS CADD #2) 

F UPDATE CURRENT ADDRESS 

; ENDDO 

; , UPDATE LOW ADDRESS CADD #2000) 

; ENDDO 

;ENDDO 

;DISABLE MMU 

sRESTORE VECTOR 114 


;ENDTST 


gg REESE ASERAAKEAERESEEAAKERAAALASASLEAASLEAEAASSEAARAEAAELAALALALELALE 


SEQ 0331 
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012737 


003032 


112710 


114170 
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172516 
003154 


177520 
177746 
114170 
003152 
172354 
172314 


172314 


114170 


114170 


003152 
114144 
001122 
001122 
177746 


114150 
114150 


003020 


TST24: 


i$: 
9$: 


2$: 


3$: 
4$: 


10$: 


5$: 
6$: 


CCHP AS 
99$ 
18$ 


864, $TMPO 
#208, a#4 
#140000, LOWADD 
PC, INITMM 


#0,R1i 
#1000,BCSR 
KIPAR6 

#402, CCR 
LOWADD, CURADD 
#-400, ALLCTR 
~ aa KIPAR6 


$ 
#BIT15 ,.KIPOR6 
SCURADD , R2 
#BIT15 ,KIPOR6 
_— 


#200, KIPAR6 
#177600, KIPAR6 


10$ 
#200 ,KIPAR6 
ALLCTR 


2 
#BIT02, CCR 
LOWADD, GOODAD 


Ri, GOODAD 
#140000, CURADD 
Ri, CURADD 


SCUR 
HITMIS, RECDAT 
#BIT2, RECDAT 


7$ 
— GOODAD 


+46 
8$ 





shave done enough inclusive pesses? 
; not yet 

; debug aid 

; yes skip this 


;STORE TIMEOUT VECTOR 
sPOINT NEW 

sINITIALIZE LOW ADDRESS CUSE PAR6) 
sINITIALIZE MMU 

;ENABLE MMU 

sENABLE 22-BIT MAPPING 

;D0 UNTIL ALL BLOCKS TESTED 

;D0 IN 2 WORDS TO AVOID PMI MEMORY 
;DISABLE HALT ON BREAK 

;SET UP PAR6 FOR THIS TEST 

sFLUSH CACHE AND SET DIAG BIT 

;sGET FIRST ADDRESS IN CURRENT BLOCK 
;D0 UNTIL ALL ADDRESSES ALLOCATED 
a LESS THAN 32K 


; 

;SET BYPASS 

;STORE CURRENT DATA 
;ALLOCATE NEXT ACCESS 
ory ALLOCATE 


;ELSE 
sWRITE CURRENT ADDRESS 
sUPDATE CURRENT ADDRESS 


sREACHED I/0 PAGE? 
sBRANCH IF NOT 

;DON‘T UPDATE PAR FOR I/0 PAGE 
:4 _ ADDRESSES ALLOCATED 

; 

;RUN WITH FORCE MISS 
;INITIALIZE GOOD ADDRESS 


; 
;GET FIRST ADDRESS 
sSTART WITH 1 OR 2 LOCATION 


; 

;MAKE SURE ON THE RIGHT BOUNDARY 

300 UNTIL ALL LOCATIONS CHECKED 

;00 UNTIL ADDRESS IN EACH BLOCK CHECKED 
;IN CASE OF ERRORS 

;CLEAR PAR BITS 

;CLEAR FORCE MISS 

sREAD CURRENT ADDRESS 

;STORE REGISTER 

;IF ACCESS WAS A HIT 


; THEN 

‘IF CURRENT ADDRESS NOT EQUAL TO GOOD 
sADDRESS THEN 

s;ERROR IN TAG STORE 
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TAG STORE RAM TESTS 


112710 
112712 


114170 


112232 
002000 
003154 


112226 


003020 


114170 
177746 


003020 
114170 
172354 


177520 


003016 


177746 


000004 
172516 


7$: 


30$: 


15$: 


18$: 


20$: 





a, « GOODAD 


+47 
#1000, CURADD 
#BITO2, CCR 
DCOUNT 
6$ 
o4, GOODAD 
#7774, CURADD 
#400, KIPAR6 
ALLCTR 
5$ 
#1000,BCSR 

. Ri 
#2, Ri 
30$ 
9$ 
#2000, LOWADD 
LOOPIN 
15$ 
1$ 
#400, CCR 
SRO 
$TMPO, 304 
#BITO4 ,MMRS 
TST25 


44 —— ADDRESS EQUAL GOOD ADDRESS 


; 

sERROR IN TAG STORE 

sUPDATE TO NEXT BLOCK 

;RUN WITH FORCE MISS 

— NOT CHECKED FOR EACH BLOCK 


;UPDATE GOOD ADDRESS 
;INCREMENT IN 2 WORDS 


;IF ALL ADDRESSES CHECKED 
ENDDO 


: 
;ENABLE HALT ON BREAK 

;PREPARE FOR THE 2ND PASS THRU 
;DONE TWICE? 

;IF SO, EXIT 


sUPDATE TO NEXT BLOCK TO BE ALLOCATED 
;IF ALL BLOCKS WERE TESTED 


;ENDDO 

;CLEAR DIAGNOSTIC BIT 
;DISABLE MMU 

;RESTORE TIMEOUT VECTOR 
sENABLE 22-BIT MAPPING 


;;GO TO NEXT TEST 
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112714 
112716 


113052 


010237 


003032 


000400 
112742 
113046 
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177746 


177520 
177520 


177520 
177520 


-S6TTL TEST - STANDALONE MODE 


TEST 
sTHIS TEST VERIFIES THAT NMX CAN BE CREATED IN STANDALONE MODE. 


; ALLOCATE INSTRUCTIONS IN CACHE 
s;GUARANTEE MISS ON TEST LOCATION 
;IN STANALONE — TEST LOCATION 


é 
£ s SSSAEASASEAEAESESASESAASASEAEAARALALALALEAEAAALEELESAALALAALALES 


TST25: 


99$: 


1$: 


5$: 


10$: 


SCOPE 
NOP 


CCHPAS 
99$ 


TST26 


#81T09,BCSR 
#BITO8 ,.BCSR 
80 


#BIT08 ,BCSR 
#BIT09,BCSR 
#5$, (SP) 


10$ 
+44 


#1100,SP 


R2 , 804 


;3;GO0 TO NEXT XT Test 


shave done enough inclusive passes? 
; _ Rage ‘ 
ai 


;FLUSH CACHE 
;START WITH CURRENT INSTRUCTION 
;sREAD A WORD 


;DONE? 

;IF NOT, CONTINUE 

370 GUARANTY MISS ON O 
;STORE TIMEOUT VECTOR 
:POINT NEW TO THE TEST 
;AT PRIORITY 7 
;DISABLE HALT ON BREAK 
;GO TO STANDALONE MODE 
sMISS, SHOULD TIMEOUT 
;CLEAR STANDALONE BIT 
;ENABLE HALT ON BREAK 


; TIMEOUT? 

;IF YES, BRANCH 
sRESTORE STACK 

;AND TIMEOUT VECTOR 





SEQ 0334 
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SEQ 0335 


TEST - MOVING INVERSIONS TEST FOR DATA RAMS 





-SBTTL TEST - MOVING INVERSIONS TEST FOR DATA RAMS 

sMOVING INVERSIONS TEST FOR DATA RAMS - THE TEST IS STARTED AFTER LOADING THE 
sRAM STORE WITH 0’‘S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL 0’S. THEN A 
31 IS SUBSTITUTED IN A BIT POSITION AND THE NEW WORD IS WRITTEN. NEXT THE 
sADDRESS IS READ TO VERIFY THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF 
;THE WORD LEAVING THE ARRAY FILED WITH 1‘S. THE WHOLE PROCESS IS REPEATED 
sPLUGGING IN 0‘S TO THE 1‘S AND REPEATED TWICE MORE ADDRESSING IN THE 
sDIRECTION. FINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE 
;LSB6. TO SAVE TIME AND KNOWING THE LAYOUT OF THE RAM CHIPS INSTEAD OF DOING 
;ONLY A SINGLE SIT AT A TIME EVERY FOURTH BIT WILL BE DONE CONCURRENTLY. 
;THIS TEST RUNS IN STANDALONE MODE. 


; 
:BGNTST 

;SETUP AND ENABLE MMU 

;SETUP CCR TO ABORT PARITY ERRORS 

;CLEAR CACHE 

;D0 IN STANDALONE MODE FOR EACH HALF SEPARATELY 

;LET FWOSEQ = @1 

;LET ADDLSB = #1 

;00 UNTIL ADDLSB EQ #20000 

“- LET CURDAT = 0 

LET RITEDA = #1 

LET NEWDAT = #1 

” FWOSEQ = #1 THEN 

LET FSTADD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
LET LASTAD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 


LET FSTADD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
LET LASTAD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 


ENDIF 
LET CURADD = FSTADD 
LET DCOUNT = #0 
SAVE CONTENTS OF VECTOR 114 
LET VECTOR 114 ey! a DATA STORE PARITY ABORT ROUTINE 
-” UNTIL aT ee EQ @ 
T RECDAT = *SCURADD 

IF RECDAT NE CURDAT THEN 

° LET Ri EQUAL CURRENT DATA 

° GOTO DATA STORE PARITY ERROR ROUTINE 


ENDIF 
- DCOUNT GT #3 THEN 
LET @CURADD = @CURADD CLEARBY RITEDA 


LET @CURADD = SCURADD SETBY RITEDA 


LET RECDAT = SCURADD 
IF RECDAT NE NEWDAT THEN 
° LET Ri EQUAL NEW DATA 
GOTO DATA STORE PARITY ERROR ROUTINE 


EN 
- CURADD EQ LASTAD THEN 
IF RITEDA = #210 THEN 
- DCOUNT NE #7 THEN 
LET CURDAT = #377 
LET RITEDA = #1 
LET NEWDAT = #376 


has 


ENDIF 
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SEQ 0336 


TEST - MOVING INVERSIONS TEST FOR DATA RAMS 
18313 he ELSE 
18314 3. ‘ LET CURDAT = NEWDAT 
16315 3. ROTATE RITEDA 
18316 ¥ dl DCOUNT GT #3 THEN 
eae $- LET NEWDAT = NEWDAT CLEAREDBY RITEDA 
Se 
18319 ™ LET NEWDAT = NEWDAT SETBY RITEDA 
18320 $. . ENDIF 
18321 “” ENDIF 
18322 es : INCREMENT DCOUNT 
183523 “- . LET CURADD = FSTADD 
18324 Rie ELSE 
18325 Se : “f FWOSEQ = #1 THEN 
18326 $. LET CURADD = CURADD + ADDLSB 
18327 be af CARRY THEN 
18328 Bie LET CURADD = CURADD + #1 
18329 5. , 
18330 " ELSE 
18331 3. ; LET CURADD = CURADD - ADDLSB 
18332 $. IF CARRY THEN 
18333 ie ; LET CURADD = LASTAD - ADDLSB 
18334 os , LET CURADD = CURADD - @1 
18335 3. 7 ENDIF 
18336 $. ‘ ENDIF 
18337 Be ENDIF 
18338 iw ENDDO 
18339 Se IF FWOSEQ EQ #1 a 
18340 - LET FWOSEQ = 
18341 Ss ELSE 
18342 i. ; ROTATE ADDLSB 
18343 rr : LET FWOSEQ = #1 
18344 * ENDIF 
18345 ;ENDDO 
18346 ;RESTORE VECTOR 114 
18347 sENDTST 
18348 
18349 Weriii Tt tit iti it ititit ttt ttt iTitit tit ttt Tit it it TT Tit TT ttt ttt ttt 
113056 000004 TST26: SCOPE 
18350 113060 000240 NOP 
18351 113062 005737 003032 TST CCHPAS shave done enough inclusive passes? 
18352 11 001003 BNE 99% ; not yet 
18353 113070 000240 NOP ; debug aid 
18354 113072 000137 114172 JMP ENDMOV ; yes skip this 
aeons 113076 000240 99%: NOP 
18357 113100 032777 000200 066032 BIT #B1T07,a8SWR sRUN THIS TEST? 
18358 113106 001002 BNE 100$ ;IF SET, GO DO IT 
18359 113110 000137 114172 JMP ENDMOV sOTHERWISE, GO TO NEXT TEST 
18360 113114 042737 001000 177520 100%: BIC #1000, B8CSR ;DISABLE HALT ON BREAK 
18361 113122 004737 136574 JSR PC, INITMM ;SETUP MEMORY MANAGEMENT 
is 113126 012737 20 172354 MOV #2000, KIPAR6 ;START ON 32K BOUNDARY 
18363 113134 005237 177572 INC SRO ;TURN ON MMU 
18364 113140 052737 000002 177746 BIS @2, CCR ;SET DIAG. BIT 
wae 113146 013737 000004 001160 MOV ae4, $TMPO ;SAVE 4 
3 
eae ;STORE TEST IN THE FIRST 2K AND THEN IN THE SECOND 2K 
3 
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SEQ 0337 

TEST - MOVING INVERSIONS TEST FOR DATA RAMS 

16369 113154 012703 140000 MOV #140000, R3 sSTART FOR THE TEST 

18370 113160 012704 150000 MOV #150000, R4 ;LOWER BOUNDARY TEST AREA 

16371 113164 012705 157777 MOV 0157777,R5 s;KIGH BOUNDARY TEST AREA 

18372 113170 000406 BR 2$ 

18373 113172 012703 150000 1%; MOV #150000, R3 sSTART OF THE TEST 

18374 113176 012704 140000 MOV #140000, R4 sLOWER ons oa TEST AREA 

16375 113202 012705 147777 MOV #147777,R5 s;HIGH BOUNDAR 

16376 113206 012702 113326 2s: MOV @STMOVI,R2 sSTART WITH CURRENT 

183577 113212 010300 MOV R3,RO sMOVE TO UPPER 4K 

18376 113214 012220 3$: MOV C(R2)+,CRO)+ s;WORD BY WORD 

16379 113216 022702 114172 CMP @ENDMOV , R2 sALL DONE 

18360 113222 001374 BNE 3$ ; 

16361 113224 010400 MOV R4,RO ;CLEAR CACHE UNDER TEST 

18382 113226 012701 004000 MOV #4000, Ri 

18383 113232 005020 4$: CLR CRC D+ 

16384 1135234 077102 SOB Ri, 45 

16385 113236 004713 JSK PC ,CR3) :;GO DO THE ROUTINE 

18386 113240 005702 TST R2 sANY ERRORS? 

16387 113242 001411 BEQ 5$ sIF NOT, CONTINUE 

16368 1135244 0100357 114150 MOV RO,RECDAT sDATA RECEIVED 

16389 113250 010237 (01122 MOV R2, $BDADR sADDRESS RECIEVED 

18390 113254 042737 140000 001122 BIC #140000, $BDADR ;STRIP OF PAR BITS 

16391 113262 104043 ERROR +43 : 

18392 113264 000403 BR 6$ sEXIT 

16393 113266 022703 150000 5$: CMP #150000, R3 sDONE FOR BOTH HALVES? 

18394 113272 001337 BNE 1$ sIF NOT, DO AGAIN 

16395 115274 052737 001000 177520 6%: BIS #6IT09,BCSR sENABLE HALT ON BREAK 

18396 113502 015737 001160 000004 MOV STMPO, 804 sRESTORE TIMEOUT VECTOR 

18397 1135310 012737 000400 177746 MOV #400,CCR s;INIT CCR Ay EXIT 

16396 113316 005037 177572 CLR SRO sTURN OFF 

ry 944 113322 000137 114172 JMP ENDMOV ;GO0 TO NEXT T TEST 

18401 -DSABL AMA 

18402 113326 052737 000400 177520 STMOVI: BIS #8IT08 , 8@BCSR s;STANDALONE MODE 

18403 113334 005002 CLR Re sERROR INDICATOR 

18404 1133536 012767 000001 000606 MOV #1, FWOSEQ sINIT UPWARD ADDRESSING INDICATOR 

18405 113344 012767 000001 000602 MOV #1, ADOL SB sINIT LSB AND DO LOOP UNTIL SHIFTED OUT 

18406 113352 042737 100000 172300 BIC #100000 , B@KIPDRO NO BYPASS 

18407 113360 012737 172360 000004 MOV ODP ARO, 804 sALLOCATE TIMEOUT VECTOR 

18408 113366 012737 000340 000006 MOV #340, 806 sAT PRIORITY 7 

18409 113374 012737 000006 172360 MOV #6, ARO sPUT RETURN 

18410 11 052737 100000 172300 BIS #100000 , BOKIPDRO sBYPAS 

18411 113410 005067 000546 TSTLUP: CLR CURDAT sINIT CURRENT DATA 

18412 113414 012767 000021 000534 MOV $21, RITEDA sINIT DATA TO BE WRITTEN 

18413 113422 012767 000021 000530 MOV e21, NEWDAT sINIT EXPECTED DATA 

16414 113430 005767 000516 TST FWOSEQ sIF ADDRESSING UPWARD 

18415 113434 001405 BEQ is 3 THEN 

18416 113436 010467 000522 MOV R4 ,.FSTADD {LET FIRST ADORESS EQUAL LOWEST VALUE 

16417 113442 010567 000520 MOV RS ,.LSTADD sLET LAST ADORESS EQUAL HIGHEST VALUE 

18418 113446 000404 BR 2% sELSE 

18419 113450 010567 000510 is: MOV RS .FSTADD sLET FIRST ADDRESS EQUAL HIGHEST VALUE 

16420 113454 010467 000506 MOV R4 ,LSTADD sLET LAST ADDRESS EQUAL LOWEST VALUE 

16421 113460 016767 000500 000502 23: MOV FSTADD, CURADO sLET CURRENT ADDRESS EQUAL FIRST ADORESS 

18422 113466 005067 000452 CLR DCOUNT sINIT LOOP COUNTER 

186423 113472 022767 000010 000444 BGNTLP: CHP #10, OCOUNT ;00 LOOP 8 TIMES (4 TIMES TO WRITE 1°S 

18424 113500 001567 BEG ENDTLP sAND 4 TIMES TO WRITE BACK O'S) 
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TEST 


114022 


000462 
170000 
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; DON’T REWRITE TIMEOUT VECTOR 


BEQ 


i 
;CHECK PATTERNS 
; 


i$: MOV 


2s: BISB 
33: MOVB 


4$: CMP 


S$: MOV 


6$: BIS 
7$: INC 


8$: TST 


CURAOD, 


NOW 
CURDAT, 


RO 


#170000, RO 
RO 


RO 
RO 
RO 


Ri 


SCURADD , RECDAT 


RECDAT, 
23° 
RITEDA, 
33 
RITEDA, 


CURDAT 


@CURADD 
@CURADD 


SCURADD , RECDAT 


RECDAT, 


RITEDA 
RITEDA 


ADOLSB, 


NEWDAT 


LSTADD 
RITEDA 
DCOUNT 
CURDAT 


RITEDA 
NEWDAT 


» CURDAT 


OCOUNT 
NEWDAT 
NEWDAT 
CURADD 


CURADD 


RS ,CURADD 
10$ 


SEQ 0338 


sSTORE CURRENT ADDRESS 
sLEAVE ONLY LOW 4K BITS 
sTIMOUT VECTOR? 

sIF SO, DON’T REWRITE IT 
; 


sMOVE GOOD DATA TO R1 

sFIRST READ LOCATION 

;IF RECIEVED DATA NOT EQUAL TO EXPECTED 
;DATA THEN 

;EXIT TEST 

sMOVE GOOD DATA TO Ri 

;IF LOOP COUNT GREATER THAN 3 


; THEN 
;CLEAR TEST DATA BY WRITE DATA 
ELSE 


3 
;SET TEST DATA BY WRITE DATA 
;D0 READ AFTER WRITE 

sIF RECIEVED DATA NOT EQUAL TO EXPECTED 
sDATA THEN 

sEXIT TEST 

—- ADDRESS EQUALS LAST ADDRESS 
: 

sAND IF WRITE PATTERN EQUALS LAST 
sPATTERN THEN 

‘or TEST IS NOT ON LAST LOOP 


: 
;SET UP TO WRITE 0'S 


;ELSE 
;SET UP FOR NEXT DATA PATTERN 


;GET A PATTERN 
;AND IF DOWNWARD ADDRESSING 


3; THEN 

+ emma BE CLEARED BY WRITE DATA 
3;EL 

;LET NEWDAT BE SET BY WRITE DATA 
sUPDATE LOOP COUNTER 

;sREINIT FIRST ADDRESS FOR THIS PASS 


;ELSE 

;IF ADDRESSING UPWARD 

; THEN 

;CALCULATE NEXT HIGHER ADDRESS 

;IF CURRENT ADDRESS HAS BEEN INCREASED 
;ABOVE HIGHEST ADDRESS THEN 
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SEQ 0339 

TEST - MOVING INVERSIONS TEST FOR DATA RAMS . 

18483 114024 162767 007777 000136 SUB 07777, CURADD sROLL ADDRESS BACK 

184864 114032 000411 BR 10$ sELSE 

18485 114034 166767 000114 000126 9%: SUB ADOLSB, CURADD sCALCULATE NEXT LOWER ADDRESS 

18486 114042 020467 000122 CMP R4 , CURADD sIF CURRENT ADDRESS HAS BEEN DECREASED 

18487 114046 003403 BLE 10$ sBELOW LOWEST ADCRESS THEN 

18488 114050 062767 007777 000112 ADO 07777, CURADD sROLL ADDRESS BACK 

18489 114056 000605 10$: BR BGNTLP sENDDO 

18490 114060 005767 000066 ENDTLP: TST FWOSEQ sIF ADCRESSING UPWARD FINISHED 

18491 114064 001404 BEQ is ; THEN 

18492 114066 005067 000060 CLR FWOSEQ 3D0 ADDRESSING DOWNWARD 

18493 114072 000167 177312 JMP TSTLUP 

18494 114076 012757 000001 000046 1%: MOV #1, FWOSEQ sSET ADDRESSING UPWARD INDICATOR 

18495 114104 00667 000044 ROL ADOLSB sUPDATE LSB TO NEXT POSITION 

18496 114110 022767 020000 000036 ENDLUP: CMP #20000, ADDLSB sALL DONE? 

18497 114116 001406 BEQ EXITST sENDDO 

18498 114120 000167 177264 JMP TSTLUP 

18499 114124 016700 000020 EXBAD: MOV RECDAT .RO sSTORE RECEIVED DATA 

18500 114130 016702 000034 MOV CURADD ,R2 ;STORE ADDRESS 

16501 114134 042737 000400 177520 EXITST: BIC eB ITO8 ,AeBCSR ;OUT OF STANDALONE 

18502 114142 000207 R PC 

18503 -ENABL AMA 

18504 

18505 114144 000000 DCOUNT: .WORD 0 

18506 114146 000000 EXPDAT: .WORD 0 sSTORES EXPECTED (GOOD) DATA FOR COMPARISONS 

18507 114150 000000 RECDAT: .WORD 0 sSTORES RECIEVED DATA TO BE VERIFIED 

18508 114152 FWOSEQ@: .WORD 0 sUSED TO INDICATE DIRECTION OF ADDRESSING 

16509 114154 000000 ADOLSB: .WORD 0 sSTORES LEAST SIGNIFICANT BIT FOR RAM TESTS 

18510 114156 000000 RITEDA: .WORD 0 sSTORES WRITE DATA FOR RAM TESTS 

18511 114160 000000 NEWDAT: .WORD 0 s;DATA STORE FOR RAM TESTS 

18512 114162 CURDAT: .WORD 0 sDATA STORE FOR RAM TESTS 

18513 114164 FSTADD: .WORD 0 sSTORES FIRST ADDRESS IN ADDRESSING SEQUENCE 

18514 114166 000000 LSTADD: .WORD 0 sSTORES LAST ADDRESS IN ADDRESSING SEQUENCE 

rot 114170 000000 CURADD: .WORD 0 sSTORES CURRENT ADDRESS FOR RAM TESTS 

18517 114172 ENDMOV : 





TEST 
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SEQ 0340 


-SBTTL TEST - MOVING INVERSIONS TEST FOR TAG STORE 

sMOVING INVERSIONS TEST - THE TEST IS STARTED AFTER LOADING THE RAM STORE 
sWITH O'S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL O'S. THEN A 1 IS 
sSUBSTITUTED IN A BIT POSITION AND THE NEW WORD IS WRITTEN. NEXT THE ADDRESS 
:IS READ TO VERIFY THE NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF THE 
s;WORD LEAVING THE ARRAY FILED WITH 1'S. THE WHOLE PROCESS IS REPEATED PLUGGING 
sIN 0‘S TO THE 1‘S AND REPEATED TWICE MORE ADDRESS IN THE DOWARD DJRECTION. 
sFINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE LSB. TO SAVE 
;TIME AND KNOWING THE LAYOUT OF THE RAM CHIPS INSTEAD OF DOING ONLY A SINGLE 
;BIT AT A TIME EVERY THIRD BIT WILL BE DONE CONCURRENTLY. ALSO NOTE THAT 
s;SINCE THE TAG STORE CANNOT BE DIRECTLY ACCESSED THE ENTIRE PATTERN MUST BE 
sDONE BY DOING MEMORY CYCLES TO THE CORRECT BUS ADDRESSES. TO DO THIS THE 
;TEST WILL BE DONE WITH THE DIAGNOSTIC BIT IN THE CCR (BIT 1) SET TO A 1. 
;THIS TEST RUNS IN STANDALONE MODE. 

: 


: 

;BGNTST 

;SETUP AND ENABLE MMU 

;SETUP CCR TO ABORT PARITY ERRORS 

300 IN STANDALONE MODE FOR EACH HALF SEPARATELY 

;LET FWOSEQ = #1 

;LET ADDLSB = #1 

300 UNTIL ADDLSB EQ #20000 

Se LET NEWDAT = 22200 

LET CURDAT = 0 

IF FWOSEQ = #1 THEN 

‘ LET FSTADD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 
LET LASTAD EQUAL LAST ADDRESS OF 4% BYTE BUFFER 


LET FSTADD EQUAL LAST ADDRESS OF 4K BYTE BUFFER 
inne LET LASTAD EQUAL FIRST ADDRESS OF 4K BYTE BUFFER 


LET DCOUNT = #0 

- UNTIL DCOUNT EQ @ 
READ CURADD USING CURDAT AS PAR 
IF MISS THEN 


ENDIF 
eae CURADD USING NEWDAT AS PAR 


- HIT THEN 
ERROR 


I 
READ CURADD USING NEWDAT AS PAR 
IF MISS THEN 
ERROR 


ENDIF 
“a CURADD EQ LASTAD THEN 
LET CURDAT = NEWDAT 
IF DCOUNT < #1 THEN 
_— LET NEWDAT = NEWDAT SETBY RITEDA ROTATED LEFT 


IF DCOUNT > #1 THEN 
be oe LET NEWDAT = NEWDAT CLR BY RITEDA ROTATED LEFT 
LS 


LET NEWDAT = #155400 (NO ALL 1'S) 
LET RITEDA = #22200 


ELSE 
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SEQ 034 
TEST - MOVING INVERSIONS TEST FOR TAG STORE . : 

18576 3. ENDIF 

18577 3. , INCREMENT DCOUNT 

18578 $. ELSE 

18579 Se : IF rr = #1 THEN 

18580 Se T CURADD = CURADD + ADDLSB 

18581 ae iF CURADD GE HIGH ADDRESS THEN 

18582 3. : . LET CURADD = CURADD + #7776 

18583 $e , ENDIF 

18584 8. ELSE 

18585 $. ; LET CURADD = CURADD - ADDLSS 

18586 he IF CURADD LE LOW ADDRESS THEN 

18587 $. : ‘ LET CURADD = CURADD - #7776 

18588 6 , ENDIF 

18589 be , ENDIF 

18590 Se ENDIF 

18591 Se ENDDO 

18592 Ke IF ae - @1 THEN 

18593 Bs , T FWOSEQ = #0 

18594 3. ELSE 

18595 Se ‘ ROTATE ADDLSB 

18596 Se ‘ LET FWOSEQ = #1 

18597 3. ENDIF 

18598 ;ENDDO 

18599 ;RESTORE PARITY ABORT VECTOR 

18600 sENDTST 

18601 

18602 j  PRSRREERERESEEEEERES ED EEEEEEADES EDEL EE EEDS ES EE EEEEEEEEEEEEEEESS 
114172 000004 TST27: SCOPE 

18603 114174 000240 NOP 

18604 114176 005737 003032 TST CCHPAS shave done enough inclusive passes? 

18605 114202 001003 BNE 99% ; not yet 

18606 114204 000240 NOP ; debug sid 

18607 114206 000137 115314 JMP ENDTAG ; yes skip this 

paces 114212 000240 99$: NOP 

18610 114214 032777 000100 064716 BIT #BITO6 , 9SWR ;RUN THIS TEST? 

18611 114222 001002 BNE 100$ ;IF SET, GO DO IT 

18612 114224 000137 115314 JMP ENDTAG ;OTHERWISE, GO TO NEXT TEST 

18613 114230 042737 001000 177520 100%: # BIC #1000,8CSR ;DISABLE HALT ON BREAK 

18614 114236 004737 136574 JSR PC, INITMM ;SETUP MEMORY MANAGEMENT 

18615 114242 005237 177572 INC SRO ;TURN ON MMU 

18616 114246 012737 000020 172516 MOV @BITO4 ,MMRS ;ENABLE 22-BIT MAPPING 

18617 114254 052737 000002 177746 SIS #2, CCR ;SET DIAG. BIT 

oaaae 114262 013737 000004 001160 MOV ae4, $TMPO ;STORE TIMEOUT VECTOR 

toons ;STORE TEST IN THE FIRST 2K AND THEN IN THE SECOND 2K 

18622 114270 012703 140000 MOV #140000,R3 ;START FOR THE TEST 

18623 114274 012704 130000 MOV #130000,R4 ;LOWER BOUNDARY TEST AREA 

18624 114300 012705 137776 MOV #137776,R5 ;HIGH BOUNDARY TEST AREA 

48625 114304 BR 2$ 

18626 114306 012703 150000 1$: MOV #150000, R3 ;START OF THE TEST 

18627 114312 012704 120000 MOV #120000,R4 ;LOWER BOUNDARY TEST AREA 

18628 114316 012705 127776 MOV #127776,R5 ;HIGH BOUNDARY 

18629 114322 012737 002000 172354 2$: MOV #2000, KIPAR6 ;ABOVE 32K 

18630 114330 012702 114134 MOV #EXITST,R2 ;START WITH CURRENT 

18631 114334 010300 MOV R3,RO ;MOVE TO UPPER 4K 











- 
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SEQ 0342 


18632 114336 012220 3$: MOV CR2)+,CRO)+ ;WORD BY WORD 
18633 114340 022702 115314 CMP @ENDTAG ,R2 s;ALL DONE? 
18634 114344 001374 BNE 3$ ; 
18635 114346 012700 114450 MOV &STMOVT,RO sADDRESS OF ROUTINE 
18636 114352 162700 114134 SUB @EXITST,RO ;PROPER OFSET 
18637 114356 BIS RO,RS ; 
18638 114360 004713 JSR PC,CR3) :GO DO THE ROUTINE 
18639 114362 005700 TST RO sANY ERRORS? 
18640 114364 001407 BEQ ay ; CONTINUE 
18641 114366 010037 001122 MOV RO, $BDADR ;STORE FAILED ADDRESS 
18642 114372 042737 160000 001122 BIC #160000, $BDADR ;CLEAR PAR 
18643 114400 104050 ERROR +50 
18644 114402 000403 BR 5$ sEXIT TEST 
18645 114404 022703 150000 4$: CMP #150000, R3 ;DONE FOR BOTH HALVES? 
18646 114410 103736 BLO 1$ ;IF NOT, DO AGAIN 
18647 114412 013737 001160 000004 5%: MOV $TMPO, 904 sRESTORE TIMEOUT VECTOR 
18648 114420 012737 0400 177746 MOV #400, CCR sINIT CCR FOR EXIT 
18649 114426 005037 177572 CLR SRO ;TURN OFF MMU 
18650 114432 005037 172516 CLR MMRS ; 
18651 114436 052737 001000 177520 BIS #1000,BCSR sENABLE HALT ON BREAK 
a 114444 000137 115314 JMP ENDTAG sEXIT TEST 
18654 -OSABL AMA 
18655 114450 052737 000400 177520 STMOVT: BIS #BITO8 ,aeBCSR ;STANDALONE MODE 
18656 114456 042737 100000 172312 BIC *BIT15, S@&KIPDRS ;NO BYPASS 
18657 114464 042737 100000 172300 BIC #100000, 3@KIPDRO ;NO BYPASS 
18658 114472 012737 172360 000004 MOV @KDPARO, 004 sALLOCATE TIMEOUT VECTOR 
18659 114500 012737 000340 000006 MOV #340, 86 ;AT 7 
114506 012737 000006 172360 MOV 96, @eKDPARO ;PUT RETURN 
18661 114514 052737 100000 172300 BIS #100000 , @#KIPDRO ;BYPASS 
18662 114522 005037 172352 CLR BeKIPARS ; 
18663 114526 010400 MOV R4,RO sCLEAR CACHE UNDER TEST 
18664 114530 012701 004000 MOV #4000, Ri ; 
18665 114534 005020 4$: CLR CRO)+ ; 
18666 114536 077102 SOB Ri, as ; 
18667 114540 5000 CLR RO ;CLEAR ERROR FLAG 
18668 114542 012767 000001 177402 MOV #1, FWOSEQ ;SET UPWARD ADDRESSING INDICATOR 
18669 114550 012767 000002 177376 MOV #2, ADOLSB ; INITIALIZE LEAST SIGNIFIGANT BIT 
18670 114556 177400 TSLOOP: CLR CURDAT s0LD DATA 
18671 114562 012767 022200 177370 MOV #22200 ,NEWDAT ;SET ADDRESS BITS 
18672 114570 012767 022200 177360 MOV #22200 ,RITEDA ;SET ADDRESS BITS 
18673 114576 005767 177350 TST FWDOSEQ ;IF ADDRESSING UPWARD 
18674 114602 001405 BEQ 1$ ; THEN 
18675 114604 010467 177354 MOV R4, FSTADD sFIRST ADDRESS WILL BE LOWEST ADDRESS 
18676 114610 010567 177352 MOV RS, LSTADD ;AND LAST ADDRESS WILL BE HIGHEST 
18677 114614 000404 BR 2s ;ELSE 
18678 114616 010567 177342 i$ MOV RS, FSTADD sFIRST ADDRESS WILL BE HIGHEST ADDRESS 
18679 114622 010467 177340 MOV R4, LSTADD ;AND LAST ADORESS WILL BE LOWEST 
18680 114626 005067 177312 2$ CLR DCOUNT sINITIALIZE LOOP COUNTER 
oaaae 114632 016767 177326 177330 MOV FSTAD®, CURADD 
i 
any ; DON'T REWRITE TIMEOUT VECTOR 
; 
18685 114640 016700 177324 3$: MOV CURADD, RO ;STORE CURRENT ADDRESS 
18686 114644 042700 170000 BIC #170000,RO ;LEAVE ONLY LOW 4K BITS 
18687 114650 022700 000004 CMP : RO ;TIMOUT VECTOR? 
18688 114654 001526 BEQ 16$ ;IF SO, DON'T REWRITE IT 


. ae TRS Ee 
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177272 
177272 
177752 
000004 


000346 
177234 
177236 
177752 
000004 
000010 
000302 
177200 
177752 
000004 


000254 
177150 


177132 
000001 


177112 
177106 


000001 


022200 
155400 


177050 
177044 


177022 
177036 


177014 


177010 
177016 


007776 


176764 
176772 


007776 
000005 


177416 
176724 


176716 
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172352 
177244 
177236 
172352 


177210 
177202 


177172 


177152 
177144 


177150 
177132 
177106 


177106 
177062 
177064 
177060 
177044 


177040 


177022 


177006 
176776 


176762 
176730 


5$: 


6$: 


13$: 


14$: 


15$: 


16$: 


17$: 


18$: 


181$: 


SCUR 


SeHITMIS ,RECDAT 





RO 

16% 

CURDAT, S@KIPARS 
ADD 


@BITO2, RECDAT 


6$ 
EXBAD2 


pop lll BOKIPARS 


@CURAD 


SHI TMIS ,RECDAT 


a 
_—— RECDAT 


EXBAD2 


SCURADD 
SHI TMIS ,RECDAT 


@BITO2, RECDAT 


RITEDA 


16 
NEWDAT , CURDAT 
DCOUNT 


RITEDA, NEWDAT 
15% 


#1, 


14$ 
#22200, 


DCOUNT 


RITEGA 


en 


RITEDA 
RITEDA, 
15 


NEWDAT 


CURADD 


CURADD 
CURADD 


CURADD 


CURADD 
CURADD 


CURADO 
DCOUNT 





SEQ 0343 


;OR PRIORITY 


; 
;GET OLD PATTERN 
;0LD DATA OK? 


;IF ACCESS WAS A MISS 
THEN 


sERROR, EXIT 
:;GET NEW PATTERN 
sREGISTER AND WRITE LOCATION 


;IF ACCESS WAS A HIT 
; THEN 


;MISS? 

;IF SO, CONTINUE 

;ERROR 

;REGISTER AND READ LOCATION 
;IF ACCESS WAS A MISS 

THEN 


$ 
;ERROR, EXIT 

;IF CURRENT ADDRESS IS LAST ADDRESS 
; THEN 

;NEW KIPARS 

;IF LOOP COUNTER LESS THAN 1 

; THEN 

sUPDATE OF NEW DATA.... 

;BY SETTING BITS 


; ENDIF 
;CHANGE PATTERN? 
:IF SO, BRANCH 


sSTART WITH THE SAME 
;DON‘T DO ALL 1’S 


i 

sUPDATE OF NEW DATA.... 

;BY CLEARING BITS 

;ELSE 

; INCREMENT THE LOOP COUNTER 
sFINISH FIRST CURRENT ADDRESS 


;ELSE 
;IF ADDRESSING UPWARD 
THEN 


i 

;ADD THE VALUE OF THE CURRENT LSB 

;IF CURRENT ADDRESS GREATER THAN HIGHEST 
sVIRTUAL ADORESS THEN 

;ROLL IT BACK 

;ELSE 

;IF ADDRESSING DOWNWARD THEN SUBTRACT LSB 
;IF CURRENT ADORESS _— THEN LOWEST 


;IF LOOP COUNTER LESS THAN 7 

;THEN LOOP BACK FOR NEXT BIT POSITION 
;IF ADDRESSING UPWARD 

; THEN 

;START ADDRESSING DOWNWARD 
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115304 
756 115312 


115314 


177316 
000001 
176702 
020000 


177270 
172352 
176672 
001200 
000400 
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176704 
176674 


172352 


177520 


JMP 
19%: MOV 
ROL 
CMP 
BEQ 
JMP 
EXBAD2: MOV 
MOV 
TSEND: MOV 
BIC 
RTS 
ENDTAG: 
-ENABL AMA 


;ELSE 
;START ADDRESSING UPWARD 
i te TO NEXT POSITION 


; 
s;RESTORE PAR 

sOUT OF STANDALONE MODE 
s;RETURN 
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TEST 


-— 


115314 
115316 
115322 


115326 
115332 


115336 
115342 
115346 
115350 
115354 
115356 
115362 
115366 
115370 


115372 


000004 
005037 
012702 


012704 
012703 


111237 


121237 


105724 


111237 


105722 
077335 


- PCR READ/WRITE BITS 


177522 
115461 


115460 
000004 


177523 
177523 


177522 


001125 
001124 


177522 
177522 


177522 


001124 
001124 
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. SBTTL 


SEQ 0345 


TEST - PCR READ/WRITE BITS 


:PCR AND BCSR READ/WRITE BITS 

;THE FIRST TEST WILL CHECK THAT PCR REGISTER IS BOTH WORD AND 
sBYTE ADDRESSABLE. BITS 14-09 AND 06-01 WILL BE WRITTEN AND READ 
sAS ZEROES AND ONES. THE REST OF THE BITS HAVE TO BE ALL O'S. 
sROUTINE TEST 


SAVE PCR 
LET PCR=0 
va FOR PATTERN=001111,110011,101010,010101 
WRITE PCR<14-09>=PATTERN 
WRITE PCR<06-01>=PATTERN 
IF PCR<14-09> NE PATTERN OR PCR<06-01> NE PREVIOUS 
PATTERN 


° THEN ERROR 
ENDIF 


WRITE PCR<06-01>=PATTERN 
IF PCR<14-09> NE PATTERN OR PCR<06-01> NE PATTERN 


: THEN ERROR 
: ENDIF 
ENDDO 


WRITE PCR=0101010101010101 
IF PCR —— THEN 


; ENDIF 
ENDROUT INE 


§ f SSRERSSASESEEEESEREASEAARAASESESEAKEASEEEAESEALESESEEEEESEEEESEDEEESE 


TST30 


: 
; WRITE 


4$: 


5$: 


SCOPE 


CLR PCR s;INITIALIZE PCR TO 0 

MOV #SIXBIT+1,R2 ;sR2->TABLE OF PATTERNS FOR 6 R/W BITS IN EAC 

MOV #SIXBIT,R4 sR3 POINTER TO PREVIOUS PATTERN 

MOV #4 RS ;00 4 TIMES 

TO HIGH BYTE FIRST 

MOVB (R2),PCRe1 sWRITE TO HIGH BYTE 

CMPB C(R2),PCRe1 s;BYTE WRITTEN OK? 

BNE 2$ ;IF NOT, BRANCH 

CMPB (R4),PCR ;LOW BYTE CHANGED? 

BEQ 3$ ;IF NOT, BRANCH 

MOVB CR2),$GDDAT+1 sEXPECTED PATTERN HIGH BYTE 

MOVB C(R4), $GDDAT ;LOW BYTE 

ERROR +51 sERROR PCR READ/WRITE BITS 

TSTB (R4)+ ; INCREMENT POINTER FOR OLD 

TO LOW BYTE 

MOVE (R2),PCR sWRITE TO LOW BYTE 

CMPB (R2),PCR ;BYTE WRITTEN OK? 

BNE 4s ;IF NOT,BRANCH 

CMPB CR2),PCR ;HIGH BYTE CHANGED? 

BEQ 5$ ;IF NOT, BRANCH 

MOVB (R2), $GDDAT ;EXPECTED PATTERN HIGH BYTE 

MOVB C(R2),$GDDAT ;LOW BYTE 

ERROR +51 s;ERROR PCR READ/WRITE BITS 

TSTB (R2)+ ; INCREMENT PCINTER FOR NEW PATTERN 
R3,1$ 300 FOR ALL 4 PATTERNS 
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TEST 





012737 


177522 
177522 


001124 


146 
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; 
; NOW TRY WORD ADDRESSING 


MOV 

CMP 

BEQ 

MOVB 

ERROR 
6$: 

BR 
SIXBIT: 


EVEN 


#52525 ,PCR 
#52124 ,PCR 


6$ 
a 


+ 


TST31 


-BYTE 0,36,146,124,52 


sWRITE A PATERN 
sALL BUT BITS <8,7,0> OK? 
I BRANCH 


: ° 
;EXPECTED PATTERN 
;ERROR PCR READ/WRITE BITS 


;;GO TO NEXT TEST 
3001111, 110011,101010,019101 
sBINARY DIVIDE FOR 6 BITS 





SEQ 0346 
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SEQ 0347 


18832 -SBTTL TEST - BCSR READ/WRITE BITS 
18833 ;THE SECOND TEST WILL CHECK THAT BCSR<7-5;2-0> CAN BE WRITTEN AND 
18834 ;READ AS ZEROES AND ONES. BCSR<14,03> SHOULD BE 0’'S. BCSR<04> 
18835 ;SHOULD BE CLEARED BY RESET INSTRUCTION. 
18836 S ROUTINE TEST 
18837 he _ PATTERN=011,010,101 DO 
18838 ; WRITE BCSR<7- 5>=PATTERN 
18839 $ IF BCSR<7-5> NE PATTERN THEN 
18840 ; ERROR 
18841 $ ENDIF 
18842 : WRITE BCSR<2-0>=PATTERN 
18843 ; IF BCSR<2-0> NE PATTERN THEN 
18844 ; , ERROR 
18845 ; ENDIF 
18846 : ENDDO 
18847 Re IF BCSR<14,03> NE <0,0> THEN 
18848 $e : ERROR 
18849 ; ENDIF 
18850 ; LET BCSR<04>=1 
18851 ; IF BCSR<04> NE #1 THEN 
18852 ; ‘ ERROR 
18853 ; ENDIF 
18854 ; EXECUTE “RESET” 
18855 ; IF BCSR<04> NE O THEN 
18856 : ERROR 
18857 te ENDIF 
18858 Bs LET BCSR<04>=0 (THIS BIT IS WRITE ENABLE FOR EAROM) 
18859 ; ENDROUTINE 
18860 
18861 5 RR RRRaEREEES EEEEEEREREEEEEEERESD ES ESELEEESEESELEKESEEEEAEEREREEES 
15466 000004 TST31: SCOPE 
18862 115470 013737 177529 002730 MOV BCSR ,.SAVBR ;SAVE BCSR 
oaeee 115476 005037 177520 CLR BCSR ;CLEAR BCSR 
; 
eee ; WRITE TO BITS <7-5> AND <2-0> 
; 
18867 115502 012703 115726 MOV #THRBIT,RS ;POINTER FOR PATTERN TABLE 
18868 115506 005037 001124 CLR $GDDAT ;CLEAR A LOCATION 
18869 115512 012702 000003 MOV 03 ,R2 ;D0 FOR ALL PATTERNS 
18870 115516 111337 177520 1$: MOVB (R3),8CSR ;WRITE TO BITS <7-5> 
18871 115522 111337 001124 MOVE CR3),$GDDAT ;EXPECTED PATTERN 
18872 115526 122337 177520 CMPB CR3)+,BCSR :BITS WRITTEN OK? 
18873 115532 001401 BEG 2s i:IF SO, BRANCH 
18874 115534 104052 ERROR +52 ;ERROR IN BCSR READ/WRITE BITS 
18875 115536 111337 177520 2s: MOVB CR3),6CSR ;sWRITE TO BITS <2-0> 
18876 115542 111337 001124 MOVB CR3),$GDDAT sEXPECTED PATTERN FOR ERRORS 
18877 115546 122337 177520 CMPB (R3)+,BCSR ;BITS WRITTEN OK? 
18878 115552 001401 BEQ 3$ :IF SO, BRANCH 
18879 115554 104052 ERROR +52 ;ERROR IN BCSR READ/WRITE BITS 
penny 115556 077221 3$: s0B R2,1$ ;CONTINUVE TILL ALL PATTERNS DONE 
3 
pte ; CHECK UNUSED BITS <3> 
18884 115560 012737 000010 177520 MOV #10,BCSR ;sWRITE TO BIT <3> 
18885 115566 032737 000010 177520 BIT #BITO3,BCSR ;ALL ZEROES? 
18886 115574 001403 BEQ 4$ ;IF YES, BRANCH 
18887 115576 005037 001124 CLR $GDDAT ;EXPECTED PATTERN 





COKDAEO KO0J11-B CLUSTER DIAG. 
BCSR READ/WRITE BITS 


TEST - 


115602 


115724 


115726 
115731 


104052 


000020 
000020 


000020 
000020 
001124 
001206 
000020 
000020 


000020 
002730 


003 
240 
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177520 
177520 


001124 


177520 
177520 


177520 
177520 


177520 
177520 


100 
005 


5$: 


6$: 
7$: 


THRBIT : 


ERROR +52 

THAT BIT <4> CLEARS BY RESET 
BIS #68IT04 ,BCSR 
BIT #68IT04 ,BCSR 
BNE 5$ 

MOV #8 ITO4 , $GODAT 
ERROR +52 

BR 7$ 

BIC #681T04,BCSR 
BIT #BIT04 ,BCSR 
BEQ 6$ 

CLR $GDDAT 

ERROR +52 

TST $PASS 

BNE 8$ 

BIS #6 IT04,BCSR 
RESET 

BIT #6 1T04,BCSR 
BEQ 8$ 

ERROR +53 

BIC #68IT04 ,BCSR 
MOV SAVBR,BCSR 
BR TST32 

-BYTE 140,3,100,2,240,5 





SEQ 0348 


sERROR IN BCSR READ/WRITE BITS 


;SET BIT 4 

s;WRITTEN OK? 

sIF SO BRANCH 

sEXPECTED PATTERN 

sERROR IN BCSR READ/WRITE BITS 
sEXIT TEST 

s;TRY TO CLEAR BIT 4 

sCLEARED OK? 

sIF SO BRANCH 

sEXPECTED PATTERN 

sERROR IN BCSR READ/WRITE BITS 
sFIRST PASS? 

sIF NOT FIRST PASS,EXIT 

;SET BIT 4 AGAIN 

sEXECUTE RESET 

;BIT 4 CLEARED? 

;IF YES, BRANCH 

sRESET DOESN‘T CLEAR BCSR<4> 
;CLEAR BIT 4 

sRESTORE BCSR 


33GO TO NEXT TEST 


:011,010,101 FOR BITS <7-5,2-0> 


COKDAEO KOJ11-B8 CLUSTER DIAG. 
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SEQ 0349 
TEST - 16 BIT ROM CHECKSUM TEST . 

18917 -SBTTL TEST - 16 BIT ROM CHECKSUM TEST 
18918 ;ROM’S CHECKSUMS 
18919 ; 
18920 316 BIT ROM TEST : 
18921 ;THE FIRST TEST WILL CLEAR BCSR<07>, LOAD PCR<14-09> WITH 
18922 ;ROM ADDRESS BITS <14-09>, AND CHECK CHECKSUMS OF 16-BIT ROM 
18923 ;BY ACCESSING IT THRU BUS ADDRESSES 173000-173776. THEN WITH 
18924 ;BCSR<06;05> BOTH CLEAR, PCR<06-01> USED AS ADDRESS BITS 14-09, 
18925 ;THE SAME THING WILL BE DONE BY ADDRESSING 16-BIT ROM THRU BUS ADDRESSES 
18926 ;165000-165776. THE RESULTS SHOULD BE THE SAME AND SHOULD COMPARE 
rte dd ;WITH THAT STORED IN THE BOOT AND DIAGNOSTIC ROM. 

; 
18929 ;BCSR <0Q7> DISABLE 17773000 
18930 : <06> DISABLE 17765000 
18931 ; <Q5> ROM SOCKET 3 AT 17765000 
18932 F 
18933 ;ROUTINE TEST 
18934 3. LET BCSR<7,6.5>=0,0,0 
18935 ; DO FOR R1 FROM #0 TO #31. BY #1 DO 
18936 ; . LET PCR<14-09>=2R1 
18937 ; DO FOR R2 FROM #0 TO #776 BY 2 
18938 ; ° CALCULATE CHECKSUM THRU 173000 
18939 ; ‘ 
18940 ; ENDDO 
18941 ; IF CHECKSUM NE #0 THEN 
18942 ; ERROR 
18943 $. ENDIF 
18944 $6 - FOR Ri FROM @0 TO #31. BY #1 
18945 $. LET PCR<06-01>=R1i 
18946 ; DO FOR R2 FROM @0 TO #776 BY 2 
18947 ; , CALCULATE CHECKSUM THRU 165000 
18948 ; 
18949 ; ENDDO 
18950 ; IF CHECKSUM NE #0 THEN 
18951 . ERROR 
18952 3. ENDIF 
18953 ; ENDROUTINE 
18954 
18955 ff 08 S64046 646 £6 $6 640066 646004606 06 06066400046 0004646000046 4646040064800 484 

115734 000004 TST32: SCOPE 

8956 115736 013737 177520 002730 MOV BCSR , SAVBR ;SAVE BCSR 
18957 115744 042737 000340 177520 BIC @BITO7!BITO6!BITOS,.BCSR sREAD 16 BIT ROM 
te 115752 052737 001000 177520 BIS #1000, BCSR ; eneble HOB, for AP’ 

; 
seats ; CALCULATE LOW BYTE CHECKSUM’S THRU 173000 AND 165000 

; 
18962 115760 005001 CLR Ri ;PAGE COUNT FOR ALL 8K 
18963 115762 005037 177522 CLR PCR ;CLEAR PAGE CONTROL REGISTER 
18 15766 005037 002724 1$: CLR ACTCHS ;CLEAR CHECKSUM AT 173000 
183965 115772 005037 001160 CLR $TMPO ;AT 165000 
18966 115776 00 CLR R2 ;CLEAR COUNTER THRU A PAGE 
18967 116000 016203 175000 2s: MOV 173000(R2),R3 ;GET LOW BYTE THRU 173000 
18968 116004 016204 165000 MOV 165000(R2),R4 ;THRU 165000 
18969 116010 060337 002724 ADD R3,ACTCHS s;CALCULATE CHECKSUM THRU 173000 
18970 116014 060437 001160 R4,$TMPO ;CALCULATE CHEKCSUM THRU 165000 
18971 116020 005722 TST (R2)+ ;GET NEXT WORD 
18972 116022 022702 000776 CMP #776 ,R2 ;WORD BEFORE LAST? 
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16 BIT ROM CHECKSUM TEST 
116026 001004 BNE 3% ;IF NOT, BRANCH 


SEQ 0350 


116030 020337 177522 CMP R3,PCR ;PAGE NUMBER STORED 0K? 
116034 001401 BEQ 3$ | ;IF YES, BRANCH 
116036 104054 ERROR +54 ;PAGE NUMBER STORED WRONG 
116040 022702 001000 3$: CMP #1000,R2 ;LAST WORD IN A PAGE? 
116044 003355 BGT 2$ ;IF NOT, BRANCH 
116046 005737 002724 TST ACTCHS ;CHECKSUM 0? 
116052 001401 BEQ 4$ sIF YES, BRANCH 
116054 104054 ERROR +54 ;IN CHECKSUM AT 173000 
116056 005737 001160 4%: TST $TMPO ;CHECKSUM O AT 165000? 
116062 001401 BEQ 5$ ;IF YES, BRANCH 
116064 104054 ERROR +54 ;IN CHECKSUM AT 165000 
116066 062701 000002 5$: ADD #2,R1 ;GET NEW PAGE 

169866 116072 110137 177522 MOVB R1i,PCR sSTORE IN PCR<6-1> 
116076 110137 177523 MOVB R1,PCRei ;STORE IN PCR<14-9> 
116102 022701 000160 CMP #160,R1 ;ALL PAGES IN R2 FROM BIT1I? 
116106 003327 BGT i$ ;IF NOT BRANCH 

‘ 
; ; CHECK THE LAST 2K OF ASCII TEXT 
‘ 

116110 005037 002724 LASTCH: CLR ACTCHS ;CLEAR CHECKSUM AT 173000 
116114 005037 001160 CLR $TMPO ;AT 1 
116120 005002 1$: CLR R2 ;CLEAR COUNTER THRU A PAGE 
116122 016203 173000 2$: MOV 173000(R2),R3 ;GET LOW BYTE THRU 173000 
116126 016204 165000 MOV 165000(R2),R4 ;THRU 165000 
116132 060337 002724 ADD R3,ACTCHS sCALCULATE CHECKSUM THRU 173000 
116136 060437 001160 ADD R4,$TMPO ;CALCULATE CHEKCSUM THRU 165000 

9000 116142 005722 TST CR2)+ sGET NEXT WORD 
116144 022702 001000 3$: CMP #1000, R2 ;LAST WORD IN A PAGE? 
116150 003364 BGT 2% ;IF NOT, BRANCH 
116152 022701 000176 CMP #176,R1i ;LAST PAGE? 
116156 001005 BNE 4$ ;IF NOT, BRANCH 
116160 023737 173774 177522 CMP 173774,PCR sPROPER PAGE NUMBER? 
116166 001401 BEQ 43 sIF YES, BRANCH 
116170 104054 ERROR +54 :E IN ROM 
116172 062701 000002 4$: ADD @2,R1 ;GET NEW PAGE 
116176 110137 177522 MOVB Ri, PCR ;STORE IN PCR<6-1> 
116202 110137 177523 MOVB R1,PCR+1 sSTORE IN PCR<14-9> 
116206 022701 000200 CMP #200 ,R1 ;ALL PAGES IN R2 FROM BIT1I? 
116212 003342 BGT i$ ;IF NOT 
116214 005737 002724 TST ACTCHS sCHECKSUM 07 
116220 001401 BEQ 5$ :IF YES, BRANCH 
116222 104054 ERROR +54 sIN CHECKSUM AT 173000 
116224 005737 001160 5$: TST sTMPO ;CHECKSUM 0 AT 1650007 
116230 001401 BEQ 6% sIF YES, BRANCH 
116232 104054 ERROR +54 sIN CHECKSUM AT 165000 
116234 005037 177522 63: CLR PCR ;CLEAR PCR 
116240 042737 001000 177520 BIC #1000, BCSR ; reset HOB for APT 
116246 013737 177520 002730 MOV BCSR ,SAVBR sRESTORE BCSR 
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SEQ 0351 
TEST - 8 BIT EEROM CHECKSUM (105dec bytes) TEST 

19026 .SBTTL TEST - 8 BIT EEROM CHECKSUM (105dec bytes) TEST 
19027 sTHIS TEST WILL CLEAR BCSR<6>, SET BCSR<5>, LOAD PCR<5-1> 
19028 sWITH ADDRESS BITS 13-09, AND CHECK CRC PATTERNS OF 8-BIT EEROM BY 
19029 sACCESSING IT THRU ADDRESSES _- 165776. THIS TEST VERIFIES THE 
19030 sRESPONSE ONLY OF THE BASE AREA 
19031 ;ROUTINE TEST 
19932 Be LET BCSR<5>=1 
19033 ; LET OLDCRC=60 
19934 he LET PCR<05-01>=80 
19035 * CALCULATE CHECKSUM FOR THE FIRST 320 LOCATIONS 
19036 iu IF RESULTING CHECKSUM NOT ZERO THEN 
19037 Se ‘ ERROR 
19038 ~ ENDIF 
19039 ; ENDROUI TNE 
19040 
19041 os 2004266466606 666646664464 466460 6466464646 66644664664646 4666646464644 46646646466004 

116254 TST33: SCOPE 
19042 116256 013737 177520 002730 MOV BCSR .SAVBR :SAVE BCSR 
19043 116264 042737 000100 177520 BIC 6B ITO6 ,BCSR sENABLE INTERNAL RESPONSE 
1 116272 052737 177520 BIS #BITOS,.BCSR ;SELECT 8-BIT ROM 
oe 116300 005037 001160 CLR $TMPO ;CLEAR SUM 

; 
psedd ; CALCULATE LOW BYTE CHECKSUM’S THRU 165000 
: 

19049 116304 005001 1$: CLR Ri sPAGE COUNT FOR ALL 8K 
19050 116306 005037 177522 CLR PCR ;CLEAR PAGE CONTROL REGISTER 
19051 116312 005037 002724 2$: CLR ACTCHS sCLEAR CHECKSUM AT 165000 
19052 116316 CLR Re ;CLEAR COUNTER THRU A PAGE 
19053 116320 116204 165000 38: MOVB 165000(R2),R4 ;GET A BYTE THRU 165000 
19054 116324 060437 001160 ADD R4,$TMPO ;CALCULATE CHEKCSUM THRU 165000 
19055 116330 005722 TST CR2)> :GET NEXT WORD 
19056 116332 022702 000316 CMP #316 ,.R2 ;WORD BEFORE LAST? 
19057 116336 001004 BNE 4$ ;IF NOT, BRANCH 
19058 116340 122704 000252 CMPB $252 .R4 3314 SHOULD HAVE 252 
19059 116344 001765 BEQ 3$ ;IF YES, BRANCH 
19060 116346 104055 ERROR +55 ;PAGE NUMBER STORED WRONG 
19061 116350 022702 000322 4$: CMP €322 ,R2 ;LAST WORD IN A PAGE? 
19062 116354 003361 BGT 3$ ;IF NOT, BRANCH 
19063 116356 113737 165010 001162 MO 165010, $TMP1 ;STORE SIZE,<3>=1 2K 
19064 116364 105737 001160 TSTB $TMPO ;CHECKSUM O AT 165000? 
19065 116370 001401 BEQ 5$ ;IF YES, BRANCH 
19066 116372 104055 ERROR +55 ;IN CHECKSUM AT 165000 
19067 116374 005037 177522 CLR PCR 
19068 116400 013737 002730 177520 MOV SAVBR,BCSR ;sRESTORE BCSR 








COKDAEO KDJ11-8 CLUSTER OIAG. 
TEST - 8-BIT EAROM READ-WRITE - TEST 


116406 
19124 116410 
19125 116416 
19126 116422 


000004 
017737 
005737 
001006 


062524 


001206 
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003050 


SEQ 0352 


-SBTTL TEST - 8-BIT EAROM READ-WRITE - TEST 


nate tee writes a checkerboard pattern of alternating 1's and 0's in 

— 1 AROM. 

All base erea 316 octal locations are saved. (105 dec plus 4 customer loc.) 
It will run only if bit 12 is set in software switch register. 

This is the eerom test enable, seteble at runtime by an operator. Loop 

on error is prohibited, as it would be possible to destroy the EEROM 

in @ relativly short time with repeated write cycles. The option to 
continue beyond e single error is selected by by asserting the halt on 
error switch at which time the operator may truncete the test. 


The switches which could affect the EEROM’s life ere masked out and 
restored in the test immediatly following this one. <<<<<ssseeese 


This test will be not be done if there is an APT system present, or if 
bit #12 of the Software Switch register is not set. If Bit 12 is set and 
there is no APT system present (or in load mode), the EEROM test will be 
run 1 time, all subsequent passes will not include the EEROM test. 


-- SECTION 1 
SAVE BASE AREA 
TEST -- SECTION 2 
2K PROCEDURE 


do while NOT$DONE $2000 
Write 10101010 (252 oct) 
delay 
read 10101010 (252 oct) 
update error list if incorrect read 


8 

do while NOTS$DONE $2000 
write 01010101 (125 oct) 
delay 
reed 01010101 (125 oct) 
update error list 

enddo 


CLEANUP -- SECTION 3 

communicate failure mode and loc info 

restore base erea (105) + 4 customer locations 
restore registers 

RESTORE BACK BASE AREA 


£40664 0666464666064 4466464646 6464664640640 464664646646 6064646660646 664646466646 264640646464 446446064% 


£64640646 46066646446 46466664664646466666 64664644 466664664644646446464606246 446464640 6446464 


TST34: SCOPE 
MOV OSWR ,SAVSWR ;SAVE SOFTSWITCH SETTINGS 
TST $PASS :do only once, iff all cond. 0.K. 
BNE i$ : on first pass ( 0) 
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116424 


000240 


032777 
001016 
000240 


005037 


010000 


116770 
012 


143762 
177522 


165000 
000334 


000252 
003022 


177522 


000776 


MACRG YOS.02 Tuesday 14-May-85 08:07 Page 39-1 


062504 


177520 


001126 


1$: 
33$: 


2s: 





SEQ 0353 


; no, do ooenne 

;IN APT MODE? 

; <IF YES, EXIT TEST> 

; bit 12 Cdo EEROM test) set? 
; 


t point for program 


TSTEND 
<15><12>/NOW TESTING EERON/ ¢15>ei2> 


; test 2K section 


2013: 
202$: 
203%: 


204$: 


NOP 
CMPB GAPTENV, SENV 
BEQ 1$ 
BIT oBIT12,8SWR 
BNE 2$ 
NOP 
JMP 
-ASCIZ 
-EVEN 
; save base area, switch registers 
TYPE . 
MOV OSWR ,.SAVSWR 
BIC 041777, @SWR 
MOV BCSR ,SAVBR 
BIS #1060,B8CSR 
NOP 
MOV #$POWER+10,R1 
CLR PCR 
CLR R2 
MOV 165000(R2),CR1)+ 
TST CR2)+ 
CMP $334 ,R2 
BGT 3$ 
MOVB #252, R3 
CLR ERRCNT 
NOP 
CLR PCR 
NOP 
CLR R2 
NOP 
MOVB R3, 165000(R2) 
JSR PC, DELAY 
R3,165000( Re) 
BEQ 204$ 
INC ERRCNT 
MOVB 165000(R2), $BDDAT 
MOV PCR,R4 
MOV R2,$BDADR 
ERROR +134 
P 
TST CR2)+ 
CMP #776 ,R2 
BGT 203% 


; INDICATE EEROM TEST UNDERWAY 
; save softswitch settings 

; clear any interferring 

;SAVE REGISTER 

;ENABLE INTERNAL ROM‘S 

sENABLE 8-BIT ROM, HOB 

;LAST LOCATION IN PROGRAM 
;START WITH PAGE 0 
;DISPLACEMENT 0 


WORD 
sALL 332 LOCATIONS DONE? 
sIF NOT, CONTINUE 


first pattern, 10 101 010 
zero the cumulative error count 


clears page register (start 9 165000) 


first location each page of EEROM 


write the test pattern 

wait for write time 

read back the written word 

if 0. K. readback, skip handle error 


update cumulative error count 
put the read data in display erea 


also address location info 
do EEROM read/write error report 
continue testing 


last location checked in a page 
continue till all page loc. tested 








COKDAEO KDJ11-8 CLUSTER DIAG. 
TEST - 8-BIT EAROM READ-WRITE - TEST 
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19177 116656 062737 000002 177522 ADD 62,PCR : wen PCR every 512 dec. tes 
19178 116664 122737 000020 177522 CMPB $20,PCR ; 8 (256 Byte pgs in 2K) « 2 Choles)=20 
19179 116672 001340 BNE 2023 ; finish page 

19180 116674 122703 000125 CMPB #125 ,R3 ; test for both patterns written 
19181 116700 001403 BEQ 2053 ; Exit point 

19182 116702 112703 000125 MOVB #125,R3 ; invert the test pattern 

soars 116706 000727 BR 2018 ; do the test over with new pattern 
19185 

soans 116710 000240 205%: NOP ; test over 

19188 116712 012701 143762 MOV #$POWER+10,R1 ;LAST LOCATION IN PROGRAM 

19189 116716 005037 177522 CLR PCR sSTART WITH PAGE 0 

19190 116722 CLR R2 sDISPLACEMENT 0 

19191 116724 012162 165000 11$: MOV (R1)+,165000(R2) ;RESTORE A WORD 

19192 116730 004737 116754 JSR PC, DELAY ; wait for write time 

19193 116734 005722 TST (R2)+ ;GET NEXT WORD 

19194 116736 022702 000334 CMP #334 ,Re2 ;ALL 332 LOCATIONS DONE? 

19195 116742 003370 BGT 11$ sIF NOT, CONTINUE 

19196 116744 013737 002730 177520 MOV SAVBR,6CSR ;RESTORE REGISTER 

odd 116752 000406 BR TSTEND ; goto next test (swr restored there) 
19199 oct rece ere ---- SUBROUTINES AREA  ------------------ 

19200 ; the following subroutine causes a delay of a certain no of milliseconds 
oooos ; the number of ms. delayed is based on the type of EEROM as indicated by R5 
19203 116754 010046 DELAY: MOV RO, -(SP) ; save RO 

19204 116756 012700 023420 MOV #10000., RO ; ALL ELSE = 10 MS DELAY 

19205 116762 077001 1$: SOB RO, i$ ; ectuel delay 

19206 116764 012600 MOV (SP)+, RO ; restore RO 

19207 116766 000207 RTS PC 

19208 

19209 ected het eae tateetatetaattetatatettetatteteetetate 

ey 116770 000240 TSTEND: NOP ; everything done 


SEQ 0354 
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TEST 


116772 


117020 


117022 


117066 
117074 
117100 
117106 


- LKS BIT 7 


012737 
012737 


001160 
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062136 
000052 


177520 


001160 
000004 
000006 


000004 


177546 


000100 
000102 


SEQ 0355 


-SBTTL TEST - LKS BIT 7 

; This test restores the softwere switch register used in the EEROM 
; test above, and therefore must follow it directly !! <<<<<<<cassee 
‘eae TESTS WILL CHECK FUNCTIONALITY OF LKS<7-6> 


;ACCESS LKS, CHECK THAT READY LKS<07> CAN BE © AND 1. 


; 
ee <Q7> LINE CLOCK MONITOR 
<06> LINE CLOCK INTERRUPT ENABLE 
; ROUTINE TEST 
;IF UFD AND LKS IS DISABLED THEN 
EXIT TEST 


be 
sENDIF 
Se READ LKS TO SEE IF IT TIMEOUTS 
;. (CHECK LKS<07>) 
ts LET Ri=#77777CWORST CASE COUNTER FOR SLOW CLOCK) 
; LET 100=@ADDRESS OF LINE_CLOCK_INTERRUPT 
3 CLEAR INTERRUPT_FLAG 
8 DO 3 TIMES 
; ‘ PEAT 
? , DECREMENT Ri 
Le ' UNTIL Ri NE #0 OR LOW BYTE OF LKS LT #0 
Bs IF LOW BYTE OF LKS GE #0 THEN CREADY DIDN’'T COME UP) 
: . ERROR 
$ ENDIF 
$ ENDDO 
; IF wu tee NE #0 THEN CINTERUPT W/O LKS<6>=1) 
3. 
$- ENDIF 
; ENDROUTINE 
5p RRRREKAREAEAEAEASARASEEREAERAEAREAREAAASRALEEALAEKEEEEKERARELEEE 
TST35: SCOPE 
MOV SAVSWR , 8SWR ; restore here FROM EEROM test 
BIT $B ITO .8452 ;UFD MODE? 
BEQ 1$ ;IF NOT, GO DO TEST 
BIT #8IT12.BCSR ;LKS DISABLED? 
BNE TST36 331F DISABLED, EXIT TEST 
; TRY TO ACCESS LKS WITHOUT TIMEOUT 
; 
1$: MOV ERRVEC, $TMPO ;SAVE TIMEOUT VECTOR 
MOV #2¢, ERRVEC ;POINT NEW VECTOR TO PROGRAM 
MOV #340 ,ERRVEC+2 ;AT PRIORITY 7 
TST LKS ;ACCESS LKS 
BR 3$ ;IF NO TIMEOUT, CONTINUE 
2$: ERROR +56 ; TIMEOUT READING LKS 
TST (SP)+ ;ADJUST STACK POINTER 
TST (SP)>+ 
3$: MOV $TMPO, ERRVEC ;sRESTORE TIMEOUT VECTOR 
; 
; CHECK THAT READY BIT LKS<7> CAN BE 1 
; 
BIC #BITO7,LKS ; START WITH CLEAN SLATE 
CLR LKSFL ;CLEAR INTERRUPT FLAG 
MOV #LKSINT, 100 


;POINT i INERRUPT ROUTINE 


#340 ,102 ;AT PRIORITY 
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LKS BIT 7 


TEST - 


117114 


000003 
077777 
177546 


177546 


002722 


4$: 
5$: 


6$: 


7$: 
8$: 
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;3IF NONE, EXIT 






;00 3 TIMES TO SYNCHRONISE 
;COUNTER FOR SLOW CLOCKS 
sREADY LKS<7>21? 


ME 
eet INTERRUPTS W/O LKS<6>-1? 
sILLEGAL CLOCK INTERRUPTS 
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SEQ 0357 


L 


TEST - LKS INTERRUPT PRIORITY 

19283 -SBTTL TEST - LKS INTERRUPT PRIORITY 

19284 ;CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5S CLEARING LKS<07> 

19285 ;AND DON‘T HAPPEN AT PRIORITY 6. 

19286 sROUTINE TEST 

19287 ;IF UFD AND LKS IS DISABLED THEN 

19288 Se EXIT TEST 

19289 ; ENDIF 

19290 $. SET PRIORITY TO 5 

19291 $6 CLEAR INTERRUPT_FLAG 

19292 S. LET LKS<06>=@1 CENABLE INTERRUPTS) 

19293 ; SET COUNTER TO WAIT FOR 3 INTERRUPTS 

19294 3 REPEAT 

19295 ’ DECREMENT COUNTER 

19296 ; UNTIL INTERRUPT_FLAG EQ #3 OR COUNTER EQ 40 

19297 ; CLEAR LKS<06> 

19298 ; IF LKS<07> EQ #1 THEN 

19299 ; . ERROR CWAS NOT CLEARED ON INTERRUPT) 

19300 ; ENDIF 

19301 ; - a LT TIME_REQUIRED_FOR_3_INTERRUPTS_FOR_800HZ 

soos ; 1F RROR CINTERRUPTS NEVER GO LOW) 

19304 ; IF INTERRUPT_FLAG LT #3 THEN 

19305 ; , ERROR CINTERRUPTS DON’T HAPPEN) 

19306 $- ENDIF 

19307 Be CLEAR INTERUPT_FLAG 

19308 ae WAIT FOR LKS<7>=1 

19309 ; LET LKS<7>=0 

19310 ; IF LKS<7> NE #0 THEN 

19311 ; ERROR (LKS<7> NOT CLEARED 

19312 Be 

19313 Se SET PRIORITY TO 6 

19314 ws SET COUNTER TO 1 SLOW CLOCK INTERRUPT 

19315 ; SET LKS<06> 

19316 : REPEAT 

19317 ; DECREMENT COUNTER 

19318 ; UNTIL COUNTER EQ #0 OR INTERRUPT_FLAG NE #0 

19319 ; IF INTERRUPT_FLAG NE #0 THEN 

19320 ; ERROR CINTERRUPT WAS AT WRONG PRIORITY) 

19321 is ENDIF 

19322 Se RESTORE ORIGINAL PRIORITY 

19323 ; ENDROUTINE 

19324 ; 

19325 ;sROUTINE LINE_CLOCK_INTERUPT 

19326 0. INCREMENT INTERRUPT_FL 

19327 ; ENDROUTINE 

19328 

19329 fp RR ERAEEEEEEEAESEEEEESEELKE 644 6 O460604044466064006460640064604 464464464408 440% 
117156 00 TST36: SCOPE 

19330 117160 032737 000100 000052 BIT #BIT06 ,8e52 ;UFD MODE? 

19331 117166 001404 BEQ i$ ;IF NOT, GO DO TEST 

19332 117170 032737 010000 177520 BIT #BIT12,BCSR ;LKS DISABLED? 

soane 117176 001132 BNE TST37 ;;IF DISABLED, EXIT TEST 

scane ; WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE O AFTER INTERRUPT 

; 
19337 117200 042737 000100 177546 i$: BIC #BIT06,LKS ; FROM END OF TEST 427? PROBLEM 
19338 117206 005037 002722 CLR LKSFL ;CLEAR INTERRUPT FLAG 
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TEST ~- LKS INTERRUPT PRIORITY 


19339 117212 


001000 
077737 
000003 
000003 
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000100 


177546 
177546 


002722 


177520 


177546 
177546 


177546 


177546 


177520 


002722 
001124 


177546 


001124 





SEQ 0358 


sPOINT VECTOR TO ROUTINE 
sCOUNTER FOR SLOW CLOCK 
;SET INTERRUPT ENABLE BIT 
;sBIT SET OK? 

;IF YES, BRANCH 

sERROR WRITING 1 TO LKS<6> 
;SET PRIORITY TO 5 


sSTAY IN A LOOP 


i 
; DISABLE INTERRUPTS AND CHECK THAT PROPER CONDITIONS ARE MET 


INTERRUPTS HAPPEN AT PRIORITY 6 


MOV @LKSINT, 100 
MOV #77777,R1 
BIS #BITO6.LKS 
BIT @BIT06,LKS 
BNE 2$ 
ERROR +131 

2$: MTPS #240 

3$: CMP #3,LKSFL 
BEQ 4$ 
SOB R1,3$ 

3 

4$: BIC #1000,B8CSR 
MTPS #340 
BIC #BITO6,LKS 
BIT #BITO7,LKS 
BEQ 5$ 
ERROR +62 

5$: TSTB LKS 
BPL 5$ 
CLR LKS 
BIT #BITO7,LKS 
BEQ 6$ 
ERROR +60 

6$: BIT #BITO6 ,LKS 
BEQ 7$ 
ERROR +131 

7$: BIS #1000,BCSR 
CMP #77737 ,R1 
BGE 8$ 
ERROR +63 

8$: CMP #3 ,LKSFL 
BEQ 9$ 
MOV #3, $GDDAT 
ERROR +64 

3 

; CHECK WHETHER 

; 

9$: CLR LKSFL 
MTPS #300 
MOV #77777 R41 
BIS #BITO6 ,LKS 

10$: TST LKSFL 
BNE 11$ 
SOB R1,10$ 

11$: TST LKSFL 
BEQ 2$ 
MOV #5, $GDDAT 
ERROR +65 

12$: MTPS #340 


;sDISABLE HALT ON BREAK 
;RAISE PRIORITY 

;DISABLE INTERRUPTS 

;LKS<7> CLEARED AFTER INTERRUPTS? 
;IF 0, BRANCH 

sINTERRUPTS DON’T CLEAR LKS<7> 
;LKS<7>2=1? 

;IF NOT, WAIT 

;CLEAR LKS<7> 

;LKS<7> CLEARED? 

;IF YES, BRANCH 

;LKS<7> NOT CLEARED ON WRITE 
3;LKS<6>=0? 

:;IF YES, BRANCH 

sERROR WRITING 0 TO LKS<6> 
sENABLE HALT ON BREAK 
;COUNTER AT LESS THAN 800HZ? 
;IF NOT, BRANCH 

;READY LINE DOES NOT GO LOW 
:DID 3 INTERRUPTS HAPPEN? 
;IF YES, BRANCH 

73 INTERRUPTS EXPECTED 

; INTERRUPTS DON’ T HAPPEN 


;CLEAR INTERRUPT FLAG 
sRAISE PRIORITY TO 6 
s;COUNTER FOR SLOW CLOCK 
;SET INTERRUPT ENABLE BIT 
sANY INTERRUPTS? 


sANY INTERRUPTS? 
;IF NO, BRANCH 
;STORE PRIORITY FOR TYPE OUT 
s;INTERUPTS HAPPEN AT WRONG PRIORITY 
sRESTORE PRIORITY 









ee ee te mene ener naman 
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TEST - LINE CLOCK DISABLE 


000004 
032737 


001404 
032737 
001052 


013737 


000100 
010000 


177520 
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000052 
177520 


002730 
177520 
177520 


177520 
177520 


001124 


. SBTTL 


TEST 


- LINE CLOCK DISABLE 
s;LINE CLOCK DISABLE(«) 





SEQ 0359 


;THIS TEST WILL CHECK THAT BCSR<12> DISABLES RESPONSE 


;OF LKS REGISTER. 
LINE CLOCK STATUS REGISTER DISABLE 


; 
;BCSR 
; 


<12> 


i 
‘ome TEST 


TF UFD AND LKS IS NOT DISABLED THEN 
EXIT TEST 


WRITE BCSR<12>=1 

LET 4=ADDRESS OF LKS_TRAP 
LET TRAP_LKS=0 

READ LKS 


IF a ~y 1 THEN 


ENDIF 


ENDROUTINE 


ROUTINE LKS_TRAP 


LET TRAP_LKS=1 
LET BCSR<12>=0 


§ gf SESRERSRAEEKAEEASESKSESGKEAEESKEEESKAEEEE444504446460444644464044644444% 


3 
; CHECK 


23: 


; TRY TO ACCESS LKS TO GET A TIMEOUT WITH BCSR<12>=1 


BIT 
BEQ 
BIT 
BNE 


BCSR<i2> TO BE 0 AND 1 


MO 
ERROR 


3$ 
#BIT12,$GDDAT 
+52 


;UFD MODE? 
;IF NOT, BRANCH 


sLKS DISABLED? 


33;IF DISABLED, EXIT TEST 


;SAVE BCSR REGISTER 
;CLEAR BCSR 
3<12>=07 
;IF OK, SRANCH 
;CLEAR EXPECTED PATTERN 
sERROR BCSR READ/WRITE BITS 
;SET BIT 12 
;GOT SET OK? 
;sIF OK, BRANCH 
EXPECTED PATTERN 
sERROR BCSR READ/WRITE BITS 








COKDAEO KDJ11-B8 CLUSTER DIAG. 
LINE CLOCK DISABLE 


TEST - 


117624 


013701 
012737 


010137 
013737 


000004 
117614 
000340 
177546 


000004 
002730 
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177520 


4$: 


R1,ERRVEC 
SAVBR,BCSR 


SEQ 0360 


sSAVE TIMEOUT VECTOR 

sPOINT TO PROGRAM AREA 

sAT PRIORITY 7 

sACCESS LKS REGISTER 

sBCSR<12> DOES NOT DISABLE LKS 
sRESTORE STACK POINTER 


sRESTORE TIMEOUT VECTOR 
sRESTORE BCSR 


COKDAEO KDJ11-8 CLUSTER DIAG. 


TEST 


117730 
117732 


012737 


000100 
020000 


177520 
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000052 
177520 


002730 
177520 
177520 
177520 


177520 
177520 


001124 


SEQ 0361 


- UNCONOITICNAL CLOCK LINE INTERRUPTS 


-SBTTL TEST - UNCONDITIONAL CLOCK LINE INTERRUPTS 

sUNCONDITIONAL CLOCK LINE INTERRUPTS(#) 

sTHIS TEST WILL CHECK THAT SETTING BCSR<13> TO 1 WILL 

sREQUEST INTERRUPTS WHENEVER A CLOCK LINE IS ASSERTED. THIS 

;SHOULD HAPPEN WITHOUT ACCESSING LKS, THEREFORE, EVEN WITH BCSR<12>21 
s INTERRUPTS SHOULD HAPPEN. 


; 
;BCSR = <13> FORCE LINE CLOCK INTERRUPT ENABLE 
i 


sROUTINE TEST 
;IF UFD AND FORCE LKS NOT DISABLED THEN 


Be EXIT TEST 
;ENDIF 


3. LET 100=ADDRESS OF UNCONDITIONAL ~INTERRUPT _ROUTINE 
, DO FOR BCSR<i2> FROM @0 TO @1(LKS DISABLED AND ENABLED) 
- UFD DO ONLY FOR SELECTED LINE CLOCK) 
CLEAR UNCONDITIONAL _INTERRUPT 
SET COUNTER TO WAIT FOR 3 INTERRUPTS 
—- 


; 
; 
; 
3 
: 
$ 
; DECREMENT COUNTER 

Se , UNTIL UNCONDITIONAL_.NTERUPT EQ #3 OR COUNTER EQ #0 

_ ; IF COUNTER GT TIME _REQUIRED_ FOR_3_INTERRUPTS_FOR_800HZ 
be . a ERROR CINTERRUPTS NEVER GO LOW) 

; 

; IF UNCONDITIONAL _INTERRUPT LT #3 THEN 

; ‘ ; ERROR CINTERRUPTS DON’ T HAPPEN) 

; » ENDIF 
F LET BCSR<13>=¢0 
; ENDD 
: 


° 0 
ENDROUTINE 


; 
sROUTINE UNCONDITIONAL _INTERRUPT_ROUTINE 
INCREMENT UNCONDITIONAL _INTERRUPT 


he 
;RETURN 
PTI IT itt titi titi ttt titi it ttit iti ttt titi tT TTT TT TT TT TTT TT tt 
TST40: SCOPE 
BIT @BITO6 .8e52 ;UFD MODE? 
BEQ i$ ;IF NOT, BRANCH 
BIT #681T13,.B8CSR sFORCE INTERRUPT SET? 
BEQ TST41 :3IF SET, EXIT TEST 
: 
; CHECK BSCR<13> TO BE O AND 1 
; 
i$ MOV BCSR ,SAVBR ;SAVE BCSR REGISTER 
BIC #1000, BCSR ;DISABLE HALT ON BREAK 
BIC #B81IT13,68CSR ;CLEAR BCSR 
BIT $81T13,B6CSR 3<13>=0? 
BEQ 2s ;IF OK, BRANCH 
CLR $GDDAT ;CLEAR EXPECTED PATTERN 
ERROR +52 sERROR BCSR READ/WRITE BITS 
2$: BIS #BIT13,8CSR ;SET BIT 13 
BIT $BIT13,8CSR :GOT SET OK? 
BNE 3$ ;IF OK, BRANCH 
MOV #BIT13,$GDDAT ;EXPECTED PATTERN 





—— 
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TEST - UNCONDITIONAL CLOCK LINE INTERRUPTS 
19516 117740 104052 





012737 


042737 
013737 


177546 
177520 


> 
3$: 


9$: 


10$: 


11$: 
12$: 


ERROR 
i 
; SET UP TO DO 


+52 


UNCONDITIONAL INTERRUPTS 


@LKSINT , 84100 
#340 ,80102 
cree 
#61T12,BCSR 
LKSFL 

977777 ,R2 


#240 
#3 ,LKSFL 
7$ 


R2 6% 
$340 
#77700 ,R2 
8$ 

+63 

$3 ,LKSFL 
9$ 

#3, $GDDAT 


+64 
#81T12,BCSR 
4$ 


#B8IT06 ,8952 
10% 
¢6IT12,BCSR 
12 


#BIT06 .LKS 
SAVBR,BCSR 


sERROR BCSR READ/WRITE BITS 


;SET UP INTERRUPT VECTOR 

sAT PRIORITY 7 

;FOR 1ST TIME DISABLE LKS 

:G0 00 IT 

sFOR THE 2ND TIME, ENABLE LKS 
;CLEAR INTERRUPTS FLAG 

;COUNTER TO WAIT FOR INTERRUPTS 
;sLOWER PRIORITY TO 5 

33 INTERRUPTS HAPPENED? 

;EXIT LOOP, IF SO 

;OTHERWISE, KEEP WAITING 

;RAISE PRIORITY TO 7 

s INTERRUPTS HAPPEN TOO OFTEN? 
;IF NOT, BRANCH 

;READY LINE DOESN’ T GO LOW 

;AT LEAST 3 INTERRUPTS HAPPENED? 
:IF SO, BRANCH 

sEXPECTED DATA 

; INTERRUPTS DON‘ T HAPPEN 

;SECOND TIME THRU THE LOOP? 

;IF NOT, DO IT AGAIN 

;sUFD MODE? 

;IF NOT, BRANCH : 

;IF UFD AND LKS DISABLED? 
;D0N‘'T CHECK LKS 

sINTERRUPT ENABLE LINE HOLD 1? 
;1F So, BRANCH 

;BCSR<13> DOESN'T SET LKS<6> 
;DISABLE LKS INTERRUPTS 
sRESTORE BCSR 





SEQ 0362 
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SEQ 0363 
TEST ~- RESETTING LKS . 
19553 -SBTTL TEST - RESETTING LKS 
19554 sRESETTING LKS(4) 
19555 ;THIS TEST WILL PROVE THAT RESET INSTRUCTION SETS LKS<07> AND 
19556 ;CLEARS LKS<06>. 
19557 sROUTINE TEST 
19558 ;IF UFD AND LKS IS DISABLED THEN 
19559 $- EXIT TEST 
19560 s ENDIF 
19561 Sa POINT LKS VECTOR 100 TO ERROR_LKS_ILLEGAL_INTERRUPT 
19562 ; SYNCHRONIZE LKS BY WAITING FOR 3 PULSES 
19563 ’ LET LKS<06>=@1" 
19564 $ CLEAR LKS a LKS<07> 
19565 is EXECUTE “RESET” 
19566 * IF LKS<7> “a #1 OR LKS<6> NE @0 THEN 
19567 Be . ERROR 
19568 ; ENDIF 
19569 ; IF ILLEGAL_LINE_CLOCK_INTERRUPT NE 0 THEN 
19570 ie , ERROR 
19571 Se ENDIF 
19572 ;ENDROUTINE 
19573 ; 
19574 sROUTINE ERROR_LKS_ILLEGAL_INTERRUPT 
19575 t. FLAG ILLEGAL_LINE_CLOCK_INTERRUPT 
19576 sRETUR 
19577 
19578 wel ii titi tit titi itititittt titi tt ttititititTitttttitt ttt ttt 
120134 000004 ST41: SCOPE 

19579 120136 005737 001206 TST $PASS sFIRST PASS? 
19580 120142 001057 BNE TST42 33IF NOT FIRST PASS, EXIT TEST 
19581 120144 032737 000100 000052 BIT @BITO6 ,8e52 ;UFD MODE? 
19582 120152 001404 BEQ i$ iTF NOT, BRANCH 
19583 120154 032737 010000 177520 BIT #681T12,.BCSR LKS DISABLED? 
Ps 3 120162 001447 BEG TST42 :;IF DISABLED, EXIT TEST 

; 
somes ; SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS 

; 
19588 120164 013737 177520 002730 1%: MOV BCSR . SAVER ;SAVE BCSR 
19589 120172 042737 010000 177520 BIC #6IT12,BCSR sENABLE LKS RESPONSE 
19590 120200 012737 137062 000100 MOV @LKSINT , 4100 sSET UP INTERRUPT VECTOR 
19591 120206 012737 000340 000102 MOV #340 ,80102 sAT PROIRITY 7 
49592 120214 052737 000100 177546 BIS eB ITO6 ,.LKS :SET INTERRUPT ENABLE BIT 
19593 120222 005037 002722 CLR L ;CLEAR INTERRUPTS FLAG 
19594 012702 077777 MOV 077777 ,R2 ;COUNTER TO WAIT FOR INTERRUPTS 
19595 120232 106427 000240 MTPS sLOWER PRIORITY TO 5 
19596 120236 022737 000003 002722 2%: CMP @3 ,,LKSFL 33 INTERRUPTS HAPPENED? 
19597 44 001401 BEQ 35 sEXIT LOOP, IF SO 
19598 120246 077205 $0B R2.2% ;OTHERWISE, KEEP ~. joe 
19599 50 106427 000340 38: MTPS #340 RAISE PRIORITY TO 7 
p 120254 RESET sEXECUTE RESE 
19601 120256 032737 ¢20200 177546 BIT @B8ITO7,.LKS sREADY BIT SET? 
39602 120264 001001 BNE &a :IF SO, BRANCH 
19603 120266 104070 +70 sRESET DOESN‘T SET LKS<07. 
19604 120270 032737 000100 177546 4%: BIT @BITO6.LKS s INTERRUPT ENABLE BIT CLEARED? 
19605 120276 0014°;% BEQ TST42 33IF SO, EXIT TEST 
19606 120300 104071 ERROR +71 sRESET DOESN'T CLEAR LKS 











_—— 
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TEST 


013737 
012737 
012737 
012705 


- LINE CLOCK INTERRUPTS 


003032 


120564 
000100 
010900 


177520 
171777 


177520 
137062 
000340 


120602 


000052 
177520 


-SBTTL 


SE@ 0564 


TEST - LINE CLOCK INTERRUPTS 


sLINE CLOCK INTERRUPTS(«) 


;BY SETTING TO 1 LKS<06>, 
sFROM BEVENT LINE 


THIS TEST WILL CHECK FOR INTERRUPTS 


AND FROM KDJ11-8 SOHZ, 60HZ, 8SO0HZ ON BOARD SIGNALS 


sCTHE LATTER SIGNALS WILL BE ACCESSED BY SETTING BCSR<11-10>). 


$ 
;BCSR 


<11> <10> CLOCK SELECT BITS 1 AND 0 
$ 
; 0 0 EXTERNAL BEVENT LINE 
; 0 1 ON-BOARD S50 HZ 
; 1 0 ON-BOARD 60 HZ 
; 1 i ON-BOARD 800 HZ 
: 
sROUTINE TEST 
;IF UFD THEN 
Se IF LKS DISABLED THEN 
$- . EXIT TEST 
Se ENOIF 
Say SET FLAGS TO RUN ONLY WHAT SPECIFIED IN EAPROM 
; 
ie LET 100=ADDRESS OF LKS_INTERRUPT 
Ke = FOR BCSR<11;10> FROM @0 TO 03 
Se LET LKS<06>=@1 
be WAIT FOR 10 INTERRUPTS FOR EACH CLOCK 
Be STORE ACTUAL NUMBER OF INTERRUPTS FOR EACK CLOCK 
$e LET INTERRUPT_FLAG=0 
a ENDDO 
COMPARE NUMBER OF INTERRUPTS FOR EACH CLOCK 
sENOROUT INE 


; ROUTINE LKS_INTERRUPT 


3. 
;RETURN 


NCREMENT INTERRUPT_FLAG 


gg 9862985 600646606 460068 6060640666 408 6660646660646 6660040646466 0460646060 4640464600% 
: E 


TST42 


H 
; SETUP 


; THIS CODE ADDED FOR APT DEFAULT BREAK 
; PURPOSES-- TEST TIME LONGER THAN SOME APT BREAK IN 


TST CCHPAS shave done enough inclusive passes? 
BNE 99% ; not yet 

NOP ; debug aid 

a 10$ ; yes skip this 

BIT OB ITO6 ,8652 ;UFD MODE? 

BEQ 1% ;IF NOT, GO DO THE TEST 
BIT #61IT12,BCSR sLKS IS DISABLED? 

BNE TST43 33IF DISABLED, EXIT TESTS 

CLR R2 ;CLEAR R2 TO SET FLAGS 
BIS BCSR ,R2 ;SET R2 ACCORDING TO BCSR 
BIC $171777,R2 ;LEAVE ONLY BITS <11-10> 


DELAY VALUES FOR INTERRUPTS, IN UFD MODE ONLY FROM THE CLOCK SPECIFIED IN BCSR<11-10 


MOV BCSR , SAVBR ;STORE BCSR 

MOV #LKSINT, 100 sSET UP LKS VECTOR 
MOV #340 ,102 sAT PRIORITY 7 

MOV #TIMDEL ,R5 sPOINTER TO DEL 
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TEST - LINE CLOCK INTERRUPTS 


19666 120404 012704 000004 MOV 04 ,R4 
19667 120410 005037 i77520 CLR BCSR 
19668 120414 000403 BR 3$ 
19669 120416 062737 002000 177520 2%: ADD #2000, BCSR 
19670 120424 032737 000100 000052 3%: BIT OB IT06 .8952 
19671 120432 001402 BEQ 4$ 
19672 120434 010237 177520 MOV R2,8CSR 
19673 120440 005037 002722 4$: CLR LKSFL 
19674 120444 052737 000100 177546 BIS @BITO6,.LKS 
19675 120452 012703 000010 MOV #10,R3 
19676 120456 012701 177777 5$: MOV 0177777,R1 
19677 120462 106427 000240 MTPS #240 
19678 120466 023703 002722 6$: CMP LKSFL,R3 
19679 120472 001401 BEQ 7$ 
19680 120474 077104 SOB R1,6$ 
19681 120476 010125 7$: MOV R1,CRS)- 
19682 120500 032737 900100 000052 BIT #BIT06 ,8eS52 
19683 120506 001026 BNE 10$ 
soaee 120510 077436 S08 R4,2$ 
: 
sacat ; CHECK THE DELAY VALUES FOR ALL CLOCKS 
; 
19688 120512 106427 000340 MTPS 0340 
19689 120516 042737 000100 177546 BIC #6 ITO6,.LKS 
19690 120524 012705 120602 MOV @TIMDEL.RS 
19691 120530 021565 000006 CMP CRS) ,6CR5) 
19692 120534 103401 BLO 8$ 
19693 120536 104064 ERROR +64 
19694 120540 005725 8$: TST CRS)-+ 
19695 120542 021565 000002 CMP CRS) ,2CR5) 
19696 120546 103401 BLO 9$ 
19697 120550 104064 ERROR +64 
19698 120552 005725 9$: TST CR5)-+ 
19699 120554 021565 000002 CMP CR5),2C€R5) 
19700 120560 103401 BLO 10$ 
19701 120562 104064 ERROR +64 
19702 120564 013737 002730 177520 10%: MOV SAVBR,BCSR 
19703 120572 042737 000100 177546 BIC #BITO6,.LKS 
sores 120600 000404 BR TST43 ;sEXIT TEST 
19706 120602 TIMDEL: .BLKW 4 
19707 








SEQ 0365 


sR4 IS THE COUNTER FOR ALL CLOCKS 


300 FOR BEVENT LINE INTERRUPTS 


:G0 00 


sSET UP FOR THE NEXT CLOCK LINE 


THE LOOP 


sUFD MODE? 
;IF NOT, BRANCH 


sIN UFD, DO ONLY —_ 


;CLEAR 


;SET INTERRUPT ENABLE BIT 


INTERRUPT FLA 


sSTART COUNTER FOR 10 INTERURRUPTS 
sSTART COUNTER TO WAIT FOR INTERRUPT 


;LOWER 


sNEW INTERRUPT HAPPENED? 


;IF SO 


sOTHERWISE, KEEP WAITING 
sSTORE DELAY FOR EACH CLOCK 


PRIORITY TO 5 
» EXIT WAIT LOOP 


sUFD MODE? 


;IF UFD, DON'T DO FOR ANY OTHER 


sALL LINE CLOCKS DONE? 


sRAISE 


PRIORITY 


;DISABLE INTERRUPTS 


sPOINTER TO DELAY TABLE 
;DELAY FOR BEVENT AND 800HZ? 


sBEVENT IS NOT 800HZ 


3; WRONG 
; INCRE 


sDELAY FOR SOHZ AND 60HZ? 
;IF FIRST BIGGER, BRANCH 
sWRONG @ OF INTERRUPTS 


@ OF INTERRUPTS 
MENT POINTER 


s INCREMENT POINTER 


sDELAY FOR SOHZ AND 800HZ 
;sIF FIRST BIGGER, BRANCH 
sWRONG @ OF INTERRUPTS 


sRESTORE BCSR 
sDISABLE INTERRUPTS 
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TEST - MAINTENANCE REGISTER TEST 


120612 000004 
19724 120614 032737 
19725 120622 001401 
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.SBTTL TEST - MAINTENANCE REGISTER TEST 

sMAINTENANCE REGISTER TEST 

;THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 
37-4 TO BE 0010, 2-1 TO BE 10, AND READ BITS 10-08, 03, 00 
;FOR FUTURE USE. THOSE BITS REPRESENT THE FOLLOWING SIGNALS: 
;MULTIPROCESSOR SLAVE, UNIBUS SYSTEM, FPA AVAILABLE, HALT/TRAP 
;OPTION, AND AC POWER OKAY. 

sROUTINE TEST 

Se IF MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN 
Se . ERROR 

he ENDIF 

Se READ MAINT.REG. BITS <10-08,03,00> 

; ENDROUT INE 

Pee TTT I Tit t iii titi i iti tii titi tii it Tt TTT Tt TTT TTT TT TTT TTT TTT TT TTT TTT 
TST43: SCOPE 


174000 177750 BIT #174000, MAIREG sUNUSED BITS ALL ZEROS? 

BEQ 1$ sIF OK, BRANCH 

ERROR +132 ;MAINTENANCE REGISTER ERROR 
000044 177750 i$: BIT 044, MAIREG 3<5,2> SET ? 

BNE 2s ;IF SO, BRANCH 

ERROR +132 MAINTENANCE REGISTER ERROR 
000322 177750 2%: BIT $322 ,MAIREG 3<7,6,4,1> CLEAR? 

BEQ TST44 33;IF YES, BRANCH 

ERROR +132 





SEQ 0366 
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- SERIAL LINE UNIT REGISTERS 


TEST 





012737 


010137 





000052 
177524 


000004 
000006 





SEQ 0367 


-SBTTL TEST - SERIAL LINE UNIT REGISTERS 
;SERIAL LINE UNIT TEST(#) 

;BCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE PROG- 
sRAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
sRCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
sTO 1 XCSR<O2>. THE LINE CLOCK INTERRUPT SUBROUTINE WILL BE 
sUSED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS, IF THE 
sPROGRAM HANGS IN THE LOOP BACK MODE. 

sROUTINE TEST 

;IF UFD AND CONSOLE NOT PRESENT 

GO TO TEST_22 


3 
;ENDIF 

Ss IF BCR<O7> EQ #0 THEN 

Re READ BCR<2-0> TO GET BAUD RATE 
$- ENDIF 

3. LET 4=ADDRESS_OF TIMEOUT _ROUTINE 

- DO FOR RCSR, XCSR,RBUF , XBUF 

he ‘ READ XRCSR,XCS2.RBUF , XBUF 

6 : IF TIMEOUT_FLAv NE #0 THEN 

Se . . ERROR 

$< ENDIF 

“e ENODO 

; ENDROUTINE 


;ROUTINE TIMEOUT 


3. LET TIMEOUT_FLAG=¢1 
s ENDROUTINE 
jf RRRRRRERADEEEEEEEESDE DEEDES ES OE 4S ORES SEEEEEEKEDESEEAEEEESEEEEEES 
TST44: SCOPE 
BIT #BIT06 8052 s;UFD MODE? 
BEQ 1$ ;IF NOT, GO DO THE TEST 
BIT #61T07.BCR ;IF UFD AND CONSOLE NOT PRESENT 
BEQ i$ sNOT TRUE, DO THE TEST 
JMP SLEND ;IF TRUE, SKIP ALL SLU TESTS 
> 
; TRY TO ACCESS SLU REGISTERS 
i 
1$: MOV ERRVEC ,R1 sSAVE TIMEOUT VECTOR 
MOV #3¢, ERRVEC sPOINT NEW ONE TO PROGRAM AREA 
MOV #340 ,ERRVEC+2 sAT PRIORITY 7 
MOV @RCSR ,R2 sSTART ACCESSING WITH RCSR 
2$: TST (R2) sACCESS SLU REGISTER 
BR ay :IF NO TIMEOUT, CONTINUE 
3$: MOV R2,$BDDAT ;STORE ADDRESS THAT TIMED OUT 
ERROR +72 ;TIMEQUT ACCESSING SLU REGISTER 
4$: CMP @XBUF , CR2)+ sLAST REGISTER ACCESSED? 
BLO 2$ ;IF NOT, BRANCH 
MOV R1,ERRVEC RESTORE TIMEOUT VECTOR 
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TEST - XCSR BIT 7 


SEQ 0368 


19786 .SBTTL TEST - XCSR BIT 7 
oda ds ;CHECK THAT XCSR<0O7> CAN BE O AND 1. 
; 
19789 ;xCSR <O7> TRANSMITTER READY 
19790 : 
19791 sROUTINE TEST 


WAIT FOR XCSR<0O7>=#1 NO MORE THAN 200MSEC 


19792 3 
19793 ; IF XCSR<07> NE @1 THEN 
19794 ; : ERROR 
19795 : ENDIF 
19796 Sa LET XBUF =@NULL 
19797 Be WAIT FOR XCSR<07>=¢@1 
19798 "¥ LET XBUF =@NULL 
19799 ; IF XCSR<07> NE O THEN 
19800 “A i ERROR CREADY DION‘'T GO LOW) 
19801 bs ENDIF 
19802 ; ENDROUTINE 
19803 
19804 £ s SSSSEARRASASSASASESAASSASEAKRAAALARAEASAKALALALACALEAAESALKLEEEKEESE 
120750 000004 TST45: SCOPE 
19805 120752 012701 001000 MOV #1000,R1 ;COUNTER FOR ABOUT 200MICROSEC. 
19806 120756 122737 000001 001220 CMPB @APTENV, $ENV ;RUNNING IN APT MODE? 
19807 120764 001003 BNE i$ 3NO, GO DO TEST 
19808 120766 005737 001206 TST $PASS sFIRST PASS? 
19809 120772 001017 BNE TST46 3:IF APT AND NOT FIRST PASS, EXIT TEST 
196810 120774 105737 177564 i$: TSTB8 XCSR sXCSR<7> READY 1? 
19811 121000 100401 BMI 2$ ;IF SO, EXIT WAIT LOOP 
19812 121002 077104 SoB R1,1$ ;IF NOT 1, CONTINUE WAITING 
19813 121004 105737 177564 2$: TST8 XCSR sXCSR<7>=1? 
19814 121010 100401 BMI 3$ ;IF YES, BRANCH 
19815 121012 104073 ERROR +73 ;XCSR<7> DOES NOT BECOME i 
19816 121014 012737 000000 177566 33: MOV #NULL , XBUF ;TRY TO TRANSMIT NULL CHARACTER 
19817 121022 105737 177564 TSTB XCSR >XCSR<7>=0 
19818 121026 100001 BPL TST46 3:IF YES, EXIT TEST 


19819 121030 104073 ERROR +73 ;XMIT READY DION’T GO LOW 
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TEST 


121110 


121112 


121154 


105737 


012701 


000013 
000001 


001206 
177564 


000004 
000004 
177564 
060000 
177560 


177562 


- RCSR BIT 7 AND XCSR BIT 2 


001220 


177564 
177564 


177566 


SEQ 0369 


- RCSR BIT 7 AND XCSR BIT 2 


sCHECK THAT RCSR<07> CAN BE 0 AND 1 AND THAT XCSR<O02> WORKS PROPERLY. 


.SBTTL TEST 
$ 

sRCSR <O7> 
;XxCSR <O02> 


; 
;ROUTINE TEST 
;.(CHECK RCSR<0O7> AND XCSR<07>) 

WAIT FOR XCSR<07>=@1 

LET XCSR<02>=#1 CLOOP BACK MODE) 

LET XBUF=¢125 

WAIT FOR RCSR<0O7>=@1 NO MORE THAN 200MSEC 
” RCSR<07> NE #1 THE 


ENDIF 


RECEIVER DONE 
MAINTENANCE 


N 
ERROR — DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 


IF RBUF NE #125 THEN 
, ERROR 


ENDIF 
IF RCSR<O7> NE #0 THEN 


ERROR CRCSR<O7>D0ES NOT GO LOW) 


I 
LET XCSR<02>=80 
ENDROUITNE 
jp RRREEAEERAEAEAEEAEEEEA ESSE EE EEES OEE EEEEEEEEEEEEEEES EE ED EEEE EES 
TST46: SCOPE 
MOV #13,R1 sCOUNTER FOR ABOUT 200MICROSEC. 
CMPB @APTENV, $ENV sRUNNING IN APT MODE? 
BNE i$ 3NO, GO DO TEST 
TST $PASS sFIRST PASS? 
BNE TST47 ;sIF APT AND NOT FIRST PASS, EXIT TEST 
1$: TSTB XCSR ;XCSR<7> READY 1? 
BPL i$ ;sIF NOT 1, CONTINUE WAITING 
2s: BIS #BITO2,XCSR ;SET LOOP BACK MODE 
BIT #BITO2 ,.XCSR :;GOT SET OK? 
BNE 3$ sIF YES, BRANCH 
CLR XCSR sRESET TO PRINT ERROR 
ERROR +114 sXCSR<2> DOES NOT BECOME 1 
TST47 ;sEXIT TEST 
; 
; STALL FOR A WHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1 
; 
3$: MOV #60000 ,R1 sSTALL IN CASE XCSR<2> SETS READY 
4$: TSTB RCSR ;IF RECEIVER READY SET? 
BMI S$ sIF SET, BRANCH 
SOB R1,4$ ;OTHERWISE, STAY FOR A WHILE 
BR 6$ ;IF NOT READY, BRANCH 
S$: TST RBUF ;READ RBUF _ 
: 
; TRANSMIT XON AND CHECK RCSR<7> 
. 
6$: MOV #21, XBUF ; TRANSMIT A CHARACTER 
MOV #60000 ,R1 s;COUNTER TO WAIT 
7$: TSTB RCSR sRCSR<7> READY 1? 
BMI &$ ;sIF YES, EXIT WAIT LOOP 
SOB Ri,7$ ;OTHERWISE, CONTINUE WAITING 
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SEQ 0370 
TEST - RCSR BIT 7 AND XCSR BIT 2 


19879 121156 105737 177560 8$: TSTB RCSR s;RCSR<7>=1? 
19880 121162 100403 BMI 9$ ;IF YES, BRANCH 

19881 121164 005037 177564 CLR XCSR sRESET XCSR<2> 

19862 121170 104074 ERROR +74 | sRECEIVER READY DIDN'T COME UP 
19883 121172 013737 177562 001126 9%: MOV RBUF , $BDDAT sSTORE RECEIVED DATA 

19884 121200 022737 000021 001126 CMP #21, $BDDAT s;DATA RECEIVED OK? 

19885 121206 001406 BEQ 10$ ;IF YES, BRANCH 

19886 121210 012737 000021 001124 MOV #21, $GDDAT 

198867 121216 005037 177564 CLR XCSR sRESET TO ENABLE SLU 

19888 121222 104075 ERROR +75 s;WRONG CHARACTER RECEIVED 
19889 121224 105737 177560 10$: TSTB RCSR s;RCSR<7>=0? 

19890 12123C 100003 BPL 11$ ;IF ZERO, 

19891 121232 005037 177564 CLR XCSR sRESET TO ENABLE SLU 

19692 121236 104076 ERROR sRCSR<O7><>0 AFTER READING RBUF 


+76 
19893 121240 042737 000004 177564 11%: BIC #BITO2,XCSR ;DISASLE LOOP BACK MODE 
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- RESET AND XCSR<2!0> 


TEST 





001206 
000005 177564 


000005 177564 





MACRO YOS.02 Tuesday 14-May-85 08:07 Page 50 


-SBTTL TEST - RESET AND XCSR<2!0> 

;CHECK THAT RESET CLEARS XCSR<0O!2>. 
;ROUTINE TEST 

;-C(CHECK RCSR<07> AND XCSR<O7> AND RESET) 
3. LET XCSR<02,00>=@1 (LOOP BACK MODE) 
i EXECUTE “RESET” 

; IF XCSR<02!00> NE @0 THEN 
3. ° ERROR 

; 

i 

. 


. ENDIF 
. LET XCSR<02>=40 
ENDROUTINE 
Pettitt ttt ttt tT ttt t Tt ttt TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT 
TST47: OPE 
TST $PASS ;FIRST PASS? 
BNE TSTS50 ;;IF NOT FIRST PASS, EXIT TEST 
is: BIS #BITO2!BITOO,XCSR ;LOOP BACK MODE 


3 
; EXECUTE RESET AND VALIDATE THAT XCSR<7,2> BECOMES <1,0> 
; 


RESET sEXECUTE RESET 
BIT #BITO2!BITOO,XCSR sXCSR<2,0> CLEAR? 
len TSTSO :;IF YES, BRANCH 


+102 sXCSR<2,0> NOT CLEARED ON RESET 





SEQ 0371 








COKDAEO KOJ11-B8 CLUSTER DIAG. 


TEST 


121300 
121302 
121306 


121376 
121404 
121412 


000004 
005737 
001033 


052737 
032737 


012737 
012737 
052737 


001206 


000100 
000100 


000100 
000100 


000100 


000100 


121444 
000340 
000100 
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- RESET AND INTERRUPT ENABLE BITS 


177564 
177564 


177560 
177560 


177564 


177560 


177564 





SEQ 0372 


-SBTTL TEST - RESET AND INTERRUPT ENABLE BITS 
;CHECK THAT INTERRUPTS DON’T HAPPEN AT PRIORITY 4 AND THAT RESET 
s;CLEARS XCSR<06> AND RCSR<06>. 


; 
;RCSR <06> RECEIVER INTERRUPT ENABLE 
>XCSR = <06> TRANSMITTER INTERRUPT ENABLE 


; 
sROUTINE TEST 

LET 60=@ADDRESS_OF ILLEGAL _INTERRUPT_XRCSR 

LET 64=@ADDRESS_OF _ILLEGAL_INTERRUPT_XRCSR 

SET PRIORITY TO 4 

LET XCSR<O02>=¢1 CLOOPBACK MODE) 

LET XCSR<06>=¢1 CENABLE TRANSMIT INTERRUPTS) 

LET RCSR<06>=@1 CENABLE RECEIVE INTERRUPTS) 

WAIT FOR XCSR<07>=41 CREADY TO TRANSMIT) 

LET XBUF=®NULL CSEND A CHARACTER) 

WAIT FOR ILLEGAL INTERRUPTS CABOUT 200MSEC) 
EXECUTE “RESET” 

IF ee #0 OR RCSR<06> NE #0 OR XRCSR NE #0 THEN 


ENDIF 
, RESTORE PRIORITY TO NORMAL 
ascmeais 


; ROUTINE ILLEGAL INTERRUPT _XRCSR 
INCREMENT XRCSR 
; ENDROUTINE 


5 f SRSSEKSAEAEAEEAESESEAERASEESAASEEBAEAEEEEESEEEEEE4ESE4E40644464444064 


TSTSO: SCOPE 
TST $PASS sFIRST PASS? 
BNE 5$ ;SKIP RESET PART OF THE TEST 


CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU 
ARE CLEARED BY RESET 


Poe we oe oe 


$: BIS #BITO6 ,.XCSR s;SET INTERRUPT ENABLE BIT IN XCSR 
BIT #BITO6 ,XCSR ;GOT SET OK? 
BNE 2$ ;IF YES, BRANCH 
ERROR +110 ;IN BIT 6 OF XCSR 
2s: BIS #BITO6 .RCSR :SET INTERRUPT ENABLE BIT IN RCSR 
BIT #BITOG ,RCSR ;GOT SET OK? 
BNE 3$ ;IF YES, BRANCH 
ERROR +110 ;IN BIT 6 OF RSCR 
3$: RESET sINLINE BUS RESET 
BIT #BITO6 ,XCSR ;XMIT INTERRUPT ENABLE BIT CLEARED? 
BEQ 4: ;IF CLEARED, BRANCH 
ERROR +102 s INTERRUPT ENABLE NOT CLEARED ON RESET 
4$: BIT #BITO6 ,RCSR sRECEIVE INTERRUPT ENBLE CLEARED? 
BEQ 5$ :IF CLEARED, BRANCH 
ERROR +102 sINTERRUPT ENABLE NOT CLEARED ON RESET 
i 
; CHECK THAT TRANSMIT INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 3 
i 
S$: MOV #9$ , 8064 sPOINT XMIT ian TO PROGRAM AREA 
MOV #340 , 8066 sAT PRIORITY 7 
BIS #BITO6 ,XCSR ;SET INTERRUPT ENABLE BIT IN XCSR 
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TEST - 


000340 
000040 
000026 


000200 


000340 
000100 


121562 
40 


177562 
000004 
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RESET AND INTERRUPT ENABLE BITS 


177564 
000060 
000062 
177566 
177560 


177564 


177564 


177560 


177564 


6$: 
7$: 


8$: 
9$: 


10$: 


$ 
; CHECK 
; 


16$: 


; 
; CLEAN 
; 


18$: 


MOV #340 ,R2 
7$ 


BR 

SUB #40,R2 
MTPS R2 

MOV #26,R3 
SOB R3,8$ 
BR 10$ 
ERROR +101 
TST (SP )+ 
TST (SP )+ 
CMP #200 ,R2 
BNE 6$ 
MTPS #340 


4 
BIC #BIT06,XCSR 





SEQ 0373 


;SET PRIORITY TO 7 

;GO WAIT IN CASE OF INTERRUPTS 

sLOWER PRIORITY LEVEL 

;SET PRIORITY 

;TIME DELAY 

;WAIT FOR INTERRUPTS 

;IF INTERRUPTS DION’ T HAPPENED, BRANCH 
sINTERRUPTS HAPPEN AT WRONG PRIORITY 
;CLEAN UP THE STACK 


s;AT PRIORITY 4? 

;sIF NOT LAST ONE, CONTINUE 
sRESTORE PRIORITY 7 

;CLEAR INTERRUPT ENABLE BIT 


THAT RECEIVE INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 3 


MOV #15$ ,8%60 


MOV @NULL , XBUF 
BIS #BIT06 ,RCSR 
MOV #340 ,R2 
BR 13% 

#40,R2 
BIS oe 
MOV #100 ,RS 
SOB R3,148 


BR 16$ 
BIC #BITO2,XCSR 


ERROR +101 

TST CSP)+ 

TST (SP)+ 

CMP #200 ,R2 

BNE 12$ 

UP BEFORE NEXT TEST 

MTPS $340 

BIC BITO6 ,.RCSR 
V $300, 

TSTB 

BMI 18$ 

SoB R2,17$ 

TST RBUF 


BIC #BITO2,XCSR 


;POINT RECEIVE VECTOR TO PROGRAM AREA 
sAT PRIORITY 7 

; TRANSMITTER READY 

sIF NOT, WAIT 

;TRY TO TRANSMIT NULL 

;SET INTERRUPT ENABLE BIT IN RCSR 
;SET PRIORITY TO 7 

;GO WAIT IN CASE OF INTERRUPTS 
;LOWER PRIORITY LEVEL 

;SET LOOP BACK MODE 

;SET PRIORITY 

; DELA 


:T Y 

sWAIT FOR INTERRUPTS 

sIF INTERRUPTS DION’ T HAPPENED, BRANCH 
;CLEAR LOOP BACK MODE 

sINTERRUPTS HAPPEN AT WRONG PRIORITY 
s;CLEAN UP THE STACK 


AT PRIORITY 4? 
;IF NOT LAST ONE, CONTINUE 


sRESTORE PRIORITY 7 

;CLEAR INTERRUPT ENABLE BIT 
:;STALL DELAY 

sRECEIVE READY? 

sSTOP WAITING, IF SO 
sOTHERWISE, STAY IN THE LOOP 
sREAD CHARACTER TRANSMITTED 
;CLEAR LOOP BACK MODE 
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TEST 


012737 


000001 
001206 
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- INTERRUPT PRIORITY FOR SLU 


001220 


177564 


SEQ 0374 
-SBTTL TEST - INTERRUPT PRIORITY FOR SLU 
;CHECK THAT INTERRUPTS HAPPEN AT PRIORITY 3 AND THAT THEY CLEAR 
;RCSR<O6> AND XCSR<06>. 
; 
sROUTINE TEST 
Se LET 60=@ADDRESS_OF _LEGAL_RINTERRUPT 
$ LET 64=@ADDRESS_OF_LEGAL_XINTERRUPT 
; LET XCSR<02>=¢1 
; SET PRIORITY TO #3 
$ WAIT FOR XINTERRUPT=@3 
$ IF XCSR<07> EQ @1 THEN 
in . ERROR 
Rie ENDIF 
Se WAIT FOR RINTERRUPT=03 
Se IF RCSR<O7> EQ #0 THEN 
- , ERROR 
e ENDIF 
3. LET XCSR<02>=80 
ie SET PRIORITY TO NORMAL 
; ENDROUTINE 
: 
sROUTINE LEGAL _XINTERRUPT 
Se LET XBUF =@CHARACTER 
$e INCREMENT XINTERRUPT 
; ENDROUTINE 
; 
;ROUTINE LEGAL _RINTERRUPT 
he READ RCSR 
i. INCREMENT RINTERRUPT 
; ENDROUTINE 
sO OO60404064 6664060680064 6664606644606 464 4606066646446 46464460446 46 1006640464684 
TST5i1: SCOP 
CMPB SAPTENV, SENV ;RUNNING IN APT MODE? 
BNE 100$ ;NO. GO DO TEST 
TST $PASS ;FIRST PASS? 
BNE TSTS2 33;IF APT AND NOT FIRST PASS, EXIT TEST 
; GET READY FOR INTERRUPTS 
; 
100$: MOV 08% , 8060 ;sSTORE RECEIVER VECTOR 
MOV 06% , 8064 ;STORE TRANSMITTER VECTOR 
MOV 0340 ,8862 ;AT PRIORITY 7 
MOV #340 , 8066 ;FOR RECEIVER AND TRANSMITTER 
BIS BITO2 ,XCSR ;SET LOOP BACK MODE 
MOV #100 .R1 sDELAY FOR UNEXPECTED CHARACTERS 
1s: TSTB RCSR sRECEIVER READY? 
I 2s ;IF YES, BRANCH 
SOB Ri,1$ ;OTHERWISE, WAIT JUST IN CASE 
2s: TST RBUF sREAD RECEIVER 
rs 
; SET PRIORITIES AND XMIT INTERRUPTS 
MOV #140 ,R2 sSTART WITH PRIORITY 3 
aR 43 ;fRY TO OO IT 
3$: SUB $40,R2 ;sLOWER PRIORITY 
4$: MTPS R2 ;TRY TO DO AT LOWER PPIORITY 
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TEST INTERRUPT PRIORITY FOR SLU 


20085 121756 052737 000100 177564 
20086 121764 012703 001000 


20088 fe 042737 000004 177564 


20089 122000 104107 
20090 122002 43 
20091 
20092 
20093 


20115 122100 042737 000100 177560 


‘ma 


BIS #BITO6 .XCSR 
MOV #1000,.R 
5$: SOB R3,5$ 
BIC #BITO2 .X~sR 
ERROR #107 
BR TsTS52 
; TRANSMITTER INTERRUPT HERE 
; 
6$: TST (SP)+ 
TST (SP)+ 
BIC @BITO6 ,.XCSR 
MOV @NULL , XBUF 
BIS eBITO6, RCSR 
MTPS Re 
MOV #100000,R3 
7$: SOB R3,7$ 
BIC #BITO2,xXCSR 
ER +107 
BR a8 
MTPS #340 
‘ 
; RECEIVER INTERRUPT HERE 
‘ 
8$: TST (SP)+ 
TST (SP)+ 
TST RBUF 
9$: TST R2 
BNE 3$ 
MTPS #340 
BIC #BITO6 .RCSR 
CLR XCSR 





3NO 
33IF ERROR, EXIT TEST 





SEQ 0375 


;LOOP BACK € INTERRUPT ENABLE 
;WAIT DELAY FOR INTERRUPTS 
sWAIT FOR XMIT INTERRUPTS 
;CLEAR LOOP BACK BIT 

XMIT INTERRUPTS 


;CLEAN UP STACK 


sCLEAR INTERRUPT ENABLE 

; TRANSMIT NULL 

sSET RECEIVE INTERRUPT 

sSET NEXT PRIORITY 

sWAIT DELAY FOR INTERRUPTS 
sWAIT FOR RECEIVE INTERUPTS 
;CLEAR LOOP BACK MODE BIT 
sNO RECEIVE INTERRUPTS 
;DON‘'T TOUCH STACK 

sRAISE PRIORITY 


;CLEAN UP STACK 


;READ RECEIVLR BUFFER 
:PRIORITY 0 

;IF NOT YET, CONTINUE 

sRAISE PRIORITY TO 7 

;CLEAR RECEIVE INTER. ENABLE 
;CLEAR XCSR 
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TEST - BREAK CONDITION 
20119 -SBTTL TEST - BREAK CONDITION 


SEQ 0376 











Poort ;CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 
; 
20122 sRCSR <15> ERROR 
20123 ; <13> FRAMING ERROR 
20124 ; <11> RECEIVED BREAK ' 
20125 3 ' 
126 ;XCSR <00O> TRANSMIT BREAK 
20127 ; 
20128 sROUTINE TEST 
20129 i. LET XCSR<02>=#1 
1 ; LET XCSR<00>=41 
20131 ; WAIT FOR RCSR<07>=@1 
20132 ; IF RBUF<15!13!11> NE #1 THEN 
20133 ; . ERROR CERROR, FRAMING ERROR, RECEIVE BREAK NE 1) 
20134 ; ENDIF 
20135 ‘ LET XCSR<00>=#0 
20136 : IF XCSR<00> NE #0 THEN 
20137 ’ ERROR (CXCSR<00> DOES NOT GO LOW) 
20138 ; ENDIF 
20139 i. WAIT FOR XCSR<07>=1 
20140 ie LET XBUF=@NULL CSEND NULL CHARACTER TO SEE ERROR CLEARED) 
20141 i. WAIT FOR RCSR<07>=@1 
20142 ‘ IF RBUF<15!13!11> NE #0 THEN 
20143 : ‘ ERROR 
20144 ; ENDIF 
20145 ’ LET XCSR<00>=@1 
20146 ; EXECUTE “RESET” 
20147 ’ IF XCSR<00> NE @0 THEN 
20148 ; : ERROR 
20149 Se ENDIF 
20150 $e LET XCSR<02>=80 
20151 ; ENDROUTINE 
20152 
20153 jf} OO6O46 04006006 0600665060686 404066080046 600400000646004600000688 40006 
122112 000004 TSTS2: SCOPE 
20154 : 
oes ; DECIDE WHETHER TO RUN THIS TEST 
: 
20157 122114 032737 000200 000052 BIT @BIT07 .8e52 ;UFD MODE? 
20158 122122 001127 BNE TSTS3 +3IN UFD MODE, EXIT TEST 
20159 122124 005737 001206 TST $PASS sFIRST PASS? 
ote ty 122130 001124 BNE TSTS3 33IF APT AND NOT FIRST PASS, EXIT TEST 
; 
Pty ; SEND BREAK AND CHECK ERROR BITS IN RBUF 
; 
20164 122132 052737 000004 177564 18: BIS @BITO2.XCSR : TRANSMIT IN LOOP BACK 
20165 122140 013737 177520 002730 MOV BCSR , SAVER ;SAVE BCSR 
20166 122146 042737 001000 177520 BIC @68ITO9 ,.BCSR ;DISABLE HALT ON BREAK 
20167 122154 052737 000001 177564 BIS @BITOO ,.XxCSR :SET SEND BREAK BIT 
i 162 032737 000001 177564 BIT @BITOO,.XCSR sGOT SET OK? 
20169 122170 001001 2s sIF YES, BRANCH 
20170 122172 104110 ERROR .+110 ;WRITING 1 TO XCSR<O> 
20171 122174 012701 000100 23: MOV #100 ,R1 sSTALL DELAY 
20172 122200 105737 177560 4$: TSTB8 RCSR sRECEIVER READY? 
20173 122204 100401 ° BMI 53 :IF YES, BRANCH 
20174 122206 077104 $08 R148 ;WAIT JUST IN CASE OF A CHARACTER 
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SEQ 0377 
TEST - BREAK CONDITION 

20175 122210 005737 177562 5$: TST RBUF ;READ A CHARACTER 
20176 122214 052737 000001 177564 BIS §§ @#ITOO,XCSR s TRANSMIT BREAK 
20177 122222 012701 001000 MOV #1000,R1 sANOTHER DELAY TO GET BREAK 
20178 122226 077101 63: $08 R1,.6$ sWAIT A WHILE 
20179 122230 105737 177560 7$ TST8 RCSR sRECEIVER READY? 
20180 122234 100375 BPL 7$ ;IF NOT, WAIT 
20181 122236 013737 177562 001126 MOV RBUF , $BDDAT ; STORE WHATEVER RECEIVED 

182 122244 37 124000 001126 CMP BITIS!BIT1I3!:68IT11,$BDDAT ;ALL ERROR BITS SET? 
20183 122252 0901405 BEQ 8$ ;IF YES, BRANCH 
20184 122254 042737 000004 177564 BIC BITO02,.XCSR sRESET TO ENABLE SLU 
20185 104105 ERROR + ;BREAK DOES NOT CAUSE ERRORS 

122264 BR TST53 33EXIT 

20187 122266 042737 000001 177564 83: BIC BITOO,xCSR ;CLEAR TRANSMIT BREAK 
20188 122274 032737 000001 177564 BIT @BITOO,XCSR ;60T CLEARED OK? 
20189 122302 001405 BEQ 9$ ;IF YES, BRANCH. 

1 2304 042737 000004 177564 BIC @#BIT02,XCSR sRESET TO ENABLE SLU 
20191 122312 104110 ERROR +110 - sERROR WRITING O TO XCSR<O> 
pote | 122314 0004 TSTS3 :3EXIT 

; 
potg ; CHECK THAT BREAK CONDITION IS CLEARED 
; 

20196 122316 013737 002730 177520 9%: MOV SAVBR ,,BCSR sRESTORE BCSR 
20197 122324 105737 177564 10$: TSTB xCSR ;XMIT READY? 
20198 122330 100375 BPL 10$ ;IF NOT, WAIT 
20199 122332 012737 000177 177566 MOV €177 , XBUF ;TRY TO TRANSMIT DELETE 

200 122340 105737 177560 11$: TSTB SR sRECEIVER READY 
20201 122344 100375 BPL 11$ 3IF NOT, WAIT 
20202 122346 013737 177562 001126 MOV RBUF , $BDDAT ;STORE RECEIVE BUFFER 
20203 122354 032737 124000 001126 BIT BITIS!BIT13!BIT11,$B0DAT sERRORS CLEARED? 

204 122 001404 BEQ 12$ ;IF YES, BRANCH 
20205 122364 042737 000004 177564 BIC @BITO2,XCSR ;RESET TO ENABLE SLU 
20206 122372 104106 ERROR +106 ;BREAK NOT CLEARED ON NEXT CHARACTER 
20207 122374 042737 000004 177564 i123: BIC @BITO2,XCSR ;CLEAR LOOP BACK MODE 
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SEQ 037 
TEST - OVERRUN CONDITION ea 0576 
20211 SBTTL TEST - OVERRUN CONDITION 
20212 ;CHECK OVERRUN CONDITION 
; 
20214 SRCSR <14> “OVERRUN ERROR 
20215 ; 
20216 SROUTINE TEST 
20217 ™ LET XCSR<02>=01 (LOOPBACK MODE) 
20218 “3 WAIT FOR XCSR<07>=@1 
20219 , LET XBUF =0252 
220 Be WAIT FOR XCSR<07>=@1 
20221 s LET XBUF*@125 (SEND THE 2ND W/O READING THE 1ST CHARACTER) 
20222 . WAIT FOR RCSR<07>=01 
20223 ; STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 
20224 2 IF LOW BYTE OF RBUF NE @125 THEN 
20225 % ERROR (1ST CHARACTER WASN'T OVERRUN) 
20226 3. ENDIF 
20227 . IF RBUF<15!14> NE @1 THEN 
20228 +s ERROR (NO OVERRUN BIT SET) 
20229 ENDIF 
20230 : WAIT FOR XCSR<07>=@1 
20231 LET XBUF =@NULL 
20232 : WAIT FOR RCSR<07>=01 
20233 IF RBUF<15!14> NE @0 THEN 
20234 ERROR (WASN'T CLEARED ON THE NEXT CHARACTER RECEIVED) 
20235 ; ENDIF 
20236 , LET XCSR<02>=00 
20237 : ENDROUT INE 
20238 
20239 TTI TTT TT TT TTT TTT TT TTT TTT TT TTT TTT TTT TTT tT 
122402 000004 TST53: SCOPE 
20240 122404 122737 000001 001220 CHPB_ s-@APTTENV. SENV sRUNNING IN APT MODE? 
20241 122412 001003 BNE «1008 ;NO, GO DO TEST 
20242 122414 005737 001206 TST —«$PASS sFIRST PASS? 
20243 122420 001077 BNE -—«tTST54 ;;IF APT AND NOT FIRST PASS, EXIT TEST 
20244 122422 052737 000004 177564 100%: BIS  @B1T02.XCSR ;SET LOOP BACK MODE 
20245 122430 105737 177564 is: TST8 = XC'SR ;READY TO TRANSMIT? 
20246 122434 100375 ePLi‘i‘éSS ‘IF NOT, WAIT 
20247 122436 012737 000021 177566 MOV «#2... XBUF STRANSMIT A CHARACTER 
20248 122444 105737 177560 24: 1STB RCS SRECEIVE READY? 
20249 122450 100375 BPLti‘iédS SIF NOT, WAIT 
20250 122452 105737 177564 33: TSTB X'S ;READY TO TRANSMIT? 
20251 122456 100375 ePLt‘éSS SIF NOT, WAIT 
20252 122460 012737 000177 177566 MOV —«-@177,. XBUF TRANSMIT THE 2ND CHARACTER 
20253 122466 012703 175000 MOV —«-@175000,R3 ;STALL FOR THE 2ND CHARACTER $$$ 
20254 122472 077301 43: SOB iéRK« 48 SWAIT A WHILE 
20255 122474 013737 177562 001126 MOV —saRBUF. , $8DDAT :STORE RECEIVED DATA 
20256 122502 012737 140177 001124 MOV -—« #140177, $GDDAT ;EXPETED PATTERN 
20257 122510 122737 000177 001126 CHPB «9177, $BDDAT OND CHARACTER RECEIVED? 
20258 122516 001404 BEQStéi‘*SSS SIF YES, BRANCH 
20259 122520 042737 000004 177564 BIC  @BITO2.XCSR ;RESET TO ENABLE SLU | 
20260 122526 104111 ERROR +111 ;2ND CHARACTER DIDN'T OVERRUN 1ST 
20261 122530 122737 000300 001127 5$: | CMPB @BIT7!BIT6,$BDDAT+1 SOVERRUN ERROR BITS SET? 
20262 122536 001404 BEQSCt«é«*éY SIF YES, BRANCH 
20263 122540 005037 177564 CLR _—XCSR SRESET TO ENABLE SLU 
20264 122544 104112 ERROR +112 SOVERRUN DOES NOT SET ERRORS BITS 
20265 122546 000424 BR 1ST54 5 EXIT 
; 











~— « 
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TEST - OVERRUN CONDITION 


SEQ 0379 d 


pow ot ; SEND NEXT CHARACTER TO CLEAR OVERRUN CONDITIONS 

: 
20269 122550 105737 177564 6%: TSTB XCSR ; TRANSMITTER READY? 
20270 122554 100375 BPL 6$ ;IF NOT, BRANCH AND WAIT 
20271 122556 012737 000000 177566 MOV ONULL , XBUF s TRANSMIT NULI. CHARACTER 
20272 122564 105737 177560 7$: TSTB RCSR sRECEIVER READY? 
20273 122570 100375 BPL 7$ sIF NOT. BRANCH AND WAIT 
20274 122572 032737 140000 177562 BIT $68IT15!B81T14,RBUF sANY ERRORS SET? 
20275 122600 001404 BEQ 8$ ;IF NOT, BRANCH 
20276 122602 042737 000004 177564 BIC #6 ITO2,XCSR sRESET TO ENABLE SLU 
20277 122610 104113 ERROR +113 ;OVERRUN NOT CLEARED ON NEXT CHAR. 
20278 122612 042737 000004 177564 8%: BIC #BITO2,.XCSR sCLEAR LOOP BACK MODE BIT 


20279 
20280 122620 SLEND: sLAST SLU TEST 
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S 
TEST - LED’S ON oo 

20282 .SBTTL TEST - LED’S ON 

20283 ;LED‘S ON 

20284 ;THIS TEST WILL INITIALIZE BOR TO CONTAIN A ROTATING PATTERN 

20285 sDISPLAYED IN LED’S. 

20286 ; 

20287 ;ROUTINE TEST 

20288 Se WHILE A KEY NOT RECEIVED FROM KEYBOARD DO 

20289 3. : STALL ALLOWING TIME TO SEE PATTERN 

20290 Be . ROTATE LEFT TO LIGHT UP NEXT LED‘S 

20291 be ENDDO 

20292 ; ENDROUTINE 

20293 

20294 WET TTT t tT TTT tT TT TTT TTT TT TTT TT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
122620 TST54: SCOPE 

20295 122622 052737 001000 177520 BIS #1000,BCSR sENABLE HOB FOR APT 
122630 CLR RS ;FLAG IN NO INTERRRUPT MODE 

20297 122632 032737 000001 000052 BIT #BITOO,8¢52 ;IF RUNNING IN CHAIN MODE 

20298 122640 001427 BEQ i$ ;SKIP PRINTOUTS 

20299 122642 005737 001206 TST $PASS 31ST PASS? 

20300 122646 001024 BNE i$ ;IF NOT, SKIP PRINTOUTS 

20301 122650 122737 000001 001220 CMPB @APTENV, $ENV ;APT MODE? 

20302 122656 001420 BEQ i$ ;YES, SKIP PRINTOUT’S 

20303 122660 005105 COM RS ;CLEAR FLAG IN INTERRUPT MODE 
122662 104401 001175 TYPE » $CRLF 

20305 122666 104401 123016 TYPE LEDS s IDENTIFY THE TEST 

20306 122672 012737 122770 000060 MOV #5$,8¢60 ;RECEIVE SLU VECTOR 

20307 122700 012737 000340 000062 MOV 2340 ,8062 :AT PRIORITY 7 

20308 122706 052737 000100 177560 BIS #BITO6 ,RCSR ;ENABLE INTERRUPTS 

20309 122714 106427 000140 MTPS #140 ;LOWER PRIORITY 

20310 122720 012704 i$: MOV 96 .R4 ;FOR EACH LOOP 

20311 122724 012701 000076 MOV #76,R1 ;START WITH 1 

20312 122730 110137 177524 2$: MOVB R1,BDOR ;TURN OFF FIRST LED 

20313 122734 012703 000004 MOV $4 ,R3 ;STALL DELAY 

20314 122740 012702 177777 3$: MOV 0177777,R2 ;STALL DELAY 

20315 122744 077201 4$: s0B Re ,.4$ ;WAIT A WHILE 

20316 122746 077304 SOB R3,3$ ;WAIT A WHILE 

20317 122750 000261 SEC ;SET CARRY 

20318 122752 006101 ROL Ri ;GET ANOTHER LED 

20319 122754 077413 $06 R4 2% ;00 A FEW TIMES 

20320 122756 005705 TST R5 ;RUNNING IN INTERACTIVE MODE? 

20321 122760 001407 BEQ 6$ ;IF NOT, EXIT 

20322 122762 104401 001170 TYPE . $BELL ; 

20323 122766 000754 BR i$ ;REPEAT PATTERN 

20324 122770 005737 177562 5$: TST RBUF ;READ BUFFER 

20325 122774 062706 ADD #4 SP ;ADJUST STACK 

20326 123000 112737 000377 177524 6%: MOVB $377 ,60R ;NO MORE 

20327 123006 042737 001000 177520 BIC #1000,8C ;DISABLE HOB FOR APT 

oases 123014 000452 BR ST55 ;;EXIT TEST 

20330 123016 012 015 124 LEDS: -ASCII <12><15>/THIS IS A TEST FOR ON-BOARD LED‘'S/<12><15> 
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TEST 


i2 
20331 
12 


20332 
20333 


-— 


- LED'S ON 
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120 -ASCIZ /TYPE ANY CHARACTER ON A KEYBOARD TO CONTINUE/<12><15> 


-EVEN 





SE@ 036i 
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SEQ 0382 
TEST - MEMORY MAPPING 
20335 -SBTTL TEST - MEMORY MAPPING 
20336 ;MEMORY MAPPING 
20337 ;THIS TEST WILL AUTOSIZE MEMORY IN 2K BYTES. EVERY PAGE WILL BE 
20338 ;CHECKED FOR WHAT TYPE IT IS: Q-BUS, UNIBUS OR PMI BUS MEMORY BY 
20339 ;SEEING HOW IT “AN BE CACHED. 
20340 ;ROUTINE TEST 
20341 ;. LET 4=ADDRESS OF NON-EXISTENT_MEMORY 
20342 ;. IF KMCR<05-00> NE #1 THEN (NOT ALL UNIBUS MEMORY) 
20343 $ TURN ON MMU AND REMAP THE PROGRAM AREA 
344 ; REPEAT 
20345 3 DO FOR KDPARO FROM #0 TO #177600 
20346 ; DO FOR Ri FROM #0 TO #20000 BY #4000 
20347 : ; READ (R1) 
20348 3 IF ABORT_NON-EXIS 'ENT_MEMORY NE 1 
20349 ; ‘ MEMORY EXISTS 
20350 : READ CR1i)+ 
20351 ; READ (Ri 
20352 : IF HIT/MISS EQ 2_HITS THEN 
20353 Se . ‘ ; , PMI MEMORY 
20354 ie ‘ ‘ , ELSE 
20355 ’ ‘ , IF HIT/MISS EQ HIT THEN 
20356 : ‘ F Q-BUS MEMORY 
20357 $ R , ELSE 
20358 ; . : , 
20359 : ‘ s ENDIF 
20360 ; : ENDIF 
20361 : ‘ ENDIF 
20362 ; ' LET ABORT_NON-EXISTENT_MEMORY=0 
20363 : ‘ ENDDO 
364 $ . ENDDO 
20365 $ UNTILL ABORT_NON-EXISTANT_MEMORY EQ #1 . 
20366 : IF 
20367 ~ 
20368 ; ENDROUTINE 
20369 ; 
20370 ;sROUTINE NON-EXISTENT_MEMORY 
20371 ts LET ABORT_NON-EXISTENT_MEMORY=#1 
20372 i. RETURN 
20373 ; ENDROUTINE 
20374 
20375 |p SERREEERAAEEEEESEESSAEEASEEEEADEESS 4444404 O440440444044404460440004 
123142 000004 TSTSS: E 
20376 123144 032737 000001 000052 BIT #BITOO ,8452 ;CHAIN MODE? 
20377 123152 001561 BEQ TSTS6 3:IF SO, EXIT TEST 
20378 123154 005737 001206 TST $PASS ;FIRST PASS? 
20379 123160 001156 BNE TST56 33;1F APT AND NOT FIRST PASS, EXIT TEST 
20380 123162 122737 900001 001220 CMPB GAPTENV, SENV ;APT MODE? 
eons 123170 001552 BEQ TSTS6 :;YES, SKIP PRINTOUT'S 
; 
oars ; SETUP ALL REGISTERS FOR MAPPING 
: 
20385 123172 012737 000400 177746 MOV $400 ,CCR ;FLUSH THE CACHE 
20386 123200 013704 000004 MOV ERRVEC ,R4 ;STORE TIMEOUT VECTOR 
20387 123204 012737 123354 000004 ‘MOV $7$ , B@ERRVEC ;POINT TO PROGRAM AREA 
20388 123212 012737 000340 000006 MOV #340 ,ERRVEC+2 sAT PRIORITY 4 
20389 123220 004737 136574 JSR PC, INITMM ;REMAP PROGRAM AREA 


20290 123224 005037 172354 CLR KIPAR6 ;USED FOR MAPPING MEMORY 
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TEST - MEMORY MAPPING 


000004 
177572 
000020 


123434 
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172516 


172354 


177520 


114150 
177520 
114150 


172354 


172516 


CLR R2 
CLR R3 
INC MMRO 
BIS #68 1IT04 ,MMRS 
BR 2$ 
; 
; TRY TO MAP ALL PAGES 
‘ 
1$: ADD #200 ,KIPAR6 
2$: MOV #140000,R1 
BR 4$ 
3$: ADD #3776,R1 
4$: TST CR1)+ 
BIC #1000,BCSR 
TST C(R1) 
MOV HITMIS ,RECDAT 
BIS #1000,BCSR 
BIT $BITO2 ,RECDAT 
BEQ 5$ 
INC R2 
BR 6$ 
5$: INC R3 
6$: CMP #154000,R1 
BHI 3$ 
CMP #177600, KIPAR6 
BNE i$ : 
BR 8$ 
3 
; MAPPING IS DONE, FIND OUT HOW MANY PAGES WERE 
3 
7$: TST CSP)-+ 
TST CSP)+ 
8$: MOV R4 ,ERRVEC 
CLR MMRO 
BIC 6B ITO4 ,MMRS 
TST R2 
BEQ 9$ 
ASL R2 
MOV R2,-CSP) 
TYPOS 
TYPE »MEMK 
9$: TST R3 
BEQ 10$ 
ASL R3 
TYPDS 
- TYPE »MEMQ 
10$: 
BR TSTS6 ;;EXIT TEST 
MEMK : -ASCIZ /K BYTES OF PMI MEMORY/<12><15> 





SEQ 0383 


;CLEAR PAGE COUNT FOR PMI 
;CLEAR PAGE COUNT FOR QBUS 
sENABLE MEMORY MANGEMENT 
sENABLE 22 BITS 

:GO ACCESS 


s INCREMENT BY 4K WORDS 
sACCESS THRU KIPAR6 

s;START DOING IT 

sINCREMENT BY 1K WORDS 
sACCESS 1ST LOCATION 
;DISABLE HALT ON BREAK 
ACCESS 2ND LOCATION 

;STORE REGISTER 

sENABLE HALT ON BREAK 

sLAST (R1) HIT? 

;IF NOT, QBUS MEMORY 
INCREMENT 1K COUNT FOR PMI 
;GO CONITNUE 

sINCREMENT COUNT FOR QBUS MEM. 
sLAST IN 4K PAGE? 


NCH 
;IF 2M, “DON! T TOUCH STACK 
THERE 
sADJUST STACK 


sRESTORE ERROR VECTOR 
sDISABLE MEMORY MANGEMENT 
;DISABLE 22 BITS 

sANY PMI MEMORY? 

;IF NOT, GO CHECK QBUS MEMORY 
; TRANSLATE TO BYTES 


s;TYPE ASCII 

sANY Q-BUS MEMORY? 
;IF NOT, BRANCH 

; TRANSLATE TO BYTES 
;STORE 1K @ ON STACK 
;TYPE # OF PAGES 
;TYPE ASCII 
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TEST - 


20441 


123516 


000004 


013701 
012737 


052737 


000004 
123562 
000340 


172100 
002740 


000002 
172136 


000004 
001000 
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000004 
000006 


177746 





SEQ 0364 


sSTORE TIMEOUT VECTOR 


3 OR 

sFIRST POSSIBLE CSR 
;STORAGE LOCATION 

;IS CSR THERE? 

;IF THERE, STORE 

; INCREMENT COUNT FOR CSR‘S 
:BRANCH AROUND 

sRESTORE STACK 


;POINT TO NEW CSR 
DONE 
3;1F NOT, 


NCH 
sRESTORE ERROR VECTOR 
;SET CACHE BYPASS 


MEMQ : -ASCIZ /K BYTES OF Q-BUS MEMORY/<12><15> 
-EVEN 
.-SBTTL WRONG PARITY ABORT TEST 
;WRONG PARITY ABORT 
;THIS TEST VERIFIES ABORT TO 114 USING PARITY OR ECC MEMORY CSR. 
;IF MORE THEN 1 CSR PRESENT, ALL OF THEM WILL BE WRITTEN AT THE 
;SAME TIME. 
; 
;ROUTINE TEST 
t< SIZE FOR ALL POSSIBLE MEMORY CSR‘S 
; STORE UP TO 16 CSR STARTING FROM TEMP 
; WRITE ALL WITH WRONG PARITY 
; WRITE TO 0 
Se READ IT BACK 
Se IF NO ABORT TO 114 THEN 
; inn ERROR IN PARITY ABORT LOGIC 
ie 
Bis RESTORE CSR'S 
; ENDROUTINE 
£3 SESS ES4O44O4EREDEEEEEEEODOEEEE4E4O44 4440406646444 44644646446444444 44444 
TSTS56: SCOPE 
; ° 
; FIND OUT ALL POSSIBLE MEMORY CSR LOCATIONS UP TO 16 
MOV ERRVEC .R1 
MOV $2$ ,ERRVEC 
MOV #340 ,ERRVEC+2 
CLR Ra 
MOV #172100,R2 
MOV TEMP ,.R3S 
i$: TST CR2) 
MOV id e CR3 Je 
INC R4 
BR 3$ 
2s: TST (SP )+ 
TST (SP )+ 
3$: ADD #2 ,R2 
CMP #172136,R2 
BHI 1$ 
MOV R1,ERRVEC 
BIS #BIT09,CCR 
WRITE ALL CSR‘S WITH WRONG ECC CODE 


: IN PARITY MEMORY THOSE BITS ARE READ ONLY AND 
DIAGNOSTIC MODE BIT FOR ECC IS THE SAME AS WRONG PARITY 
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WRONG PARITY ABORT TEST 


013701 
012737 


010137 


000114 
123704 
000340 
002740 
000005 
003740 
000000 


002740 
000004 
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000114 
000116 


000000 


177744 
001124 
177746 


4$: 


5$: 


6$: 


7$: 
8$: 


9$: 


9¢114,R1 
#6$,80114 


oTEMP RS 
#BITO2!BITOO,a80CR3) 
R4,4$ 

840 

R2,R4 

@TEMP,RS 
#BITO2] ,ACR3)+ 
R2,5$ 

ae0 

+34 

7$ 

(SP)+ 

(SP)+ 

STEMP ,R3 
#BITOO,ACR3)+ 
R4,8$ 
oo 
— 


+3 
#68 ITO9,CCR 
840 


MSER 
R1,80114 





SEQ 0385 


sSTORE PARITY ABORT VECTOR 
PROGRAM 


sSTART WITH 1ST CSR 
s;DIAGNOSTIC OR WRONG PARITY 
sCLEAR <10-5> CHECK BITS 
;00 FOR ALL CSR’'S 

;CLEAR TEST LOCATION WITH WRONG PR 
sRESTORE COUNTER 

;START WITH 1ST CSR 

sCLEAR ALL WRONG PARITY 

sIN ALL CSR'S 

sREAD BACK WRONG PARITY 

;NO WRONG PARITY ABORT 


sADJUST STACK 
sSTART WITH 1ST CSR 


;ABORT REFLECTED IN MSER? 
;IF YES, BRANCH 


; 
sMSER<15> NOT SET ON PARITY ABORT 
;CLEAR CACHE BYPASS 

s;CLEAR WRONG PARITY 

;CLEAR MSER 

sRESTORE PARITY ABORT 
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TEST - OMA TAG PARITY IN STANDALONE MODE — oa 
20520 -SBTTL TEST - OMA TAG PARITY IN STANDALONE MODE 
20521 s;CHECK DMA TAG STORE PARITY BIT. 
20522 sROUTINE TEST 
20523 3. CACHE DMA_PARITY 
20524 t. LET BCSR<08>=¢1 
20525 REPORT ALL ERRORS 
20526 :ENDROUTINE 
20527 
20528 ; ROUTINE DMA_PARITY 
20529 i. GENERATE PARITY ERRORS 
20530 + CHECK MSER<13> 
20531 LET BCSR<08>=0 
20532 ; ENDROUTINE 
20533 
20534 PECIIr iii itt iti tit iitiitit tii titi tt iti titt ttt tT TTT TTT TTT Te 
123764 TSTS7: SCOPE 
20535 123766 240 NOP 
123770 005737 003032 TST CCHPAS shave done enough inclusive passes? 
20537 123774 001002 BNE 99% ; not yet 
38 123776 000240 NOP ; debug aid 
20539 124000 000456 BR TST60 ;33GO TO NEXT TEST 
0 124002 000240 99$: NOP 
20541 ; 
nee ; ALLOCATE CODE IN CACHE 
; 
20544 12 012702 124040 MOV @DMAPAR , R2 ;POINT TO STANDALONE CODE 
20545 124010 042737 001000 177520 BIC #1000,BCSR ;DISABLE HALT ON BREAK 
20546 124016 005722 1$: TST (R2)+ sALLOCATE IN CACHE 
20547 124020 022702 124100 CMP #DPAREN, R2 sLAST ADDRESS? 
20548 124024 001374 BNE i$ ;IF NOT, BRANCH 
20549 124026 005737 002740 TST TEMP sALLOCATE TEST LOCATION 
oe 3 124032 013737 177520 002730 MOV BCSR ,,.SAVBR SAVE BCSR 
: 
oe ; IN STANDALONE MODE TRY TO VERIFY RESPONSE TO PARITY ERRORS 
20554 124040 052737 000400 177520 DMAPAR: BIS #BIT08 ,BCSR ;SET STANDALONE MODE BIT 
20555 124046 052737 002001 177746 BIS #6IT10!:BITOO.CCR sWRITE WRONG TAG PARITY 
20556 124054 005037 002740 CLR TEMP ;WRITE HIT WITH WRONG PARITY 
20557 124060 013705 177744 MOV MSER RS s;STORE MSER 
20558 124064 042737 002000 177746 BIC #81T10,CCR ;CLEAR WRONG PARITY BIT 
are 124072 042737 000400 177520 23: BIC #6ITO8 ,.BCSR ;CLEAR STANDALONE BIT 
; 
20561 ; RETURN FROM STANDALONE MODE 
20562 ; 
20563 124100 DPAREN: ) 
124100 022705 060020 CMP #60020 ,R5 sWRONG DMA PARITY? 
20565 124104 001401 BEQ 4 ;IF OK, BRANCH 
124106 104117 ERROR +117 sMSER NOT SET IN STANDALONE MODE 
20567 124110 005037 177744 4$: CLR MSER 
20568 124114 012737 000400 177746 MOV #400 ,CCR sFLUSH THE CACHE 
20569 124122 013737 002730 177520 MOV SAVBR,BCSR sRESTORE BCSR 
20570 124130 052737 001000 177520 BIS #1000, BCSR sENABLE HALT ON BREAK 
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TEST 


124176 


124200 


20604 124204 


124206 
124212 


003032 


000200 


140340 
002664 


124200 
124316 


137370 


177744 
177744 


000020 


177744 
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000052 


- DMA TAG PARITY W/O STANDALONE MODE 
-SBTTL TEST 


SEQ 0387 


- DMA TAG PARITY W/0 STANDALONE MODE 


sCHECK DMA TAG PARITY BIT WITHOUT GOING INTO STANDALONE MODE. 


; 
;CCR 


<10> WRITE WRONG TAG PARITY 


; 
s;ROUTINE TEST 


LET CCR<10>=@1 

ALLOCATE LOCATION IN CACHE 

INITIATE DMA WRITE TRANSFERS 

IF MSER<04> NE @1 THEN 
ERROR 


IF 
ENDROUT INE 
5 2900406 00646464 604660646 0606646446446 64264646 44404646464464646464644666646644466464664 
TST60: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug eid 
BR TST61 ;;GO TO NEXT TEST 
99$: NOP 
BIT eB ITO7 ,8052 ;UFD MODE? 
BEQ 110$ ;IF NOT, BRANCH 
JMP sEOP ;OTHERWISE, NEXT PASS 
110%: TST CSR1i ;AT LEAST ONE Q22BE FOUND? 
BEQ TST61 33IF NOT, EXIT TEST 
; 
; ALLOCATE TEST IN CACHE 
11$: MOV #. RS sSTART WITH CURRENT INSTRUCTION 
10$: TST C(R3)+ ;READ A WORD 
CMP 04$,R3 ;ALL DONE? 
BNE 10$ :;IF NOT, CONTINUE 
; 
; WRITE A WORD WITH WRONG PARITY 
; 
1$: MOV 9114, $TMPO ;STORE PARITY VECTOR 
MOV $23 ,80114 ;POINT TO TEST AREA 
BIS @BIT10,CCR ;sWRITE WRONG TAG PARITY 
CLR TEMP ;WRITE MISS WITH WRONG TAG PARITY 
BIC #BIT10,CCR ;CLEAR WRONG TAG PARITY 
BIS #BIT07,CCR ;PARITY ABORT 
CLR ;FLAG TO DO 1 TRANSFER 
JSR PC ,OMATRN ;D0 OMA WRITE TO TEMP THRU Q22B8E 
ERROR +116 ;NO PARITY ABORT 
BR &$ ;BRANCH TO TEST MSER 
2$: MOV MSER ,R4 ;STORE REGISTER 
CLR ER ;CLEAR MSER 
TST (SP)-« ; 
TST (SP)-+ sRESTORE STACK 
TST (SP)+ 
33: BIT SB ITO4 .R4 ;MSER OK? 
4$ ;IF SET, BRANCH 
ERROR +116 sMSER<4> NOT SET 
43: CLR MSER ;CLEAR MSER 
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TEST - OMA TAG PARITY W/O STANDALONE MODE 
20629 124322 012737 000400 177746 MOV #400 .,CCR 
20630 124330 013737 001160 000114 MOV STMPO, 80114 


r- 





sFLUSH CACHE 
sRESTORE VECTOR 





SEQ 0388 
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TEST 


000004 
000240 
005737 
001003 
000240 
000137 
000240 
032737 


- DMA WRITE HIT CYCLES 


003032 
125304 
000200 
140340 
002664 
140340 
000340 
000040 
002740 


137370 
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000052 


-SBTTL TEST 


SEQ 0389 


- DMA WRITE HIT CYCLES 
sCHECK THAT DMA WRITE HITS INVALIDATE CACHE. 
sROUTINE TEST 


, ENDIF 
; ENDROUTINE 


ALLOCATE A LOCATION IN CACHE 
INITIATE OMA WRITE TO THIS LOCATION 
READ THIS LOCATION BACK 

IF IT IS CHANGED OR HIT/MISS EQ HIT 
‘ ERROR 

ENDIF 
‘ WRITE TO THE FIRST 16 LOCATION THEIR ADDRESS 
BLOCK MODE TRANSFER TO THOSE LOCATIONS 
START READ WITH THE LAST LOCATION 

IF mony HITS THEN 


ENDIF 
INITIATE READ DMA TO THE SAME TEST LOCATIONS 
READ THEM BACK 
IF HIT/MISS NE HIT THEN 
ERROR 


§ 246460 06640464646 466646 64644666 046040066646606460646 0466464646 64640464 00640646464648% 
OPE 


T61: 


1$: 


rf 
; TRY TO DO 
: 
2s: MOV 


38: 
4%: 


5$: 


CCHP AS shave done enough inclusive passes? 
99% ; not yet 
; debug aid 
ALLEND ; yes skip this 
@BITO7 ,8¢52 ;UFD MODE? 
i$ ;IF NOT, BRANCH 
$E0P OTHERWISE, NEXT PASS 
CSR1 sAT LEAST 1 Q22BE? 
2s IF YES, BRANCH 
$E0P ;OTHERWISE, NEXT PASS 
WRITE AT ALL DIFFERENT PRIORITIES 
€340 ,R2 ;START WITH 7 
BY :G0 DO IT 
640,R2 ;sLOWER PRIORITY 
TEMP ;CLEAR TEST LOCATION 
RO :D0 JUST 1 WORD 
sLOWER PRIORITY 
PC ,DMATRN 300 DATO 
#1000, BCSR + OTSABLE HALT ON BREAK 
TEMP sSTILL CACHED? 
HITMIS ,RECDAT sSTORE HIT/MISS 
#1000, 6CSR 
@681TO02 .RECDAT 
5% 
+120 
#12525 , TEMP 
6$ 
+122 











COKDAEO KOJ11-8 CLUSTER DIAG. 
OMA WRITE HIT CYCLES 


TEST - 


124506 
124510 


20690 124512 


LS 


004737 


012702 


136574 
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056050 
056044 


; 
; DO DATBO 


; 
DATBO: 


1$: 


2$: 
3$: 


4$: 


; 
; DO 4K 


VERIFY THAT BYPASS WITH OMA DATI INVALIDATES CACHE 


@BITO9,CCR 
PC ,OMATRN 


CCR 

#1000,BCSR 

TEMP 

HITMIS ,.RECDAT 
BCSR 


#1000, 
@81T02,RECDAT 
DATBO 


+123 


#10,R1 
@TEMP ,R2 
CR2)-¢ 
R1,1$ 

RO 


@TEMP , @BA 
$177770,aWC 
o: ankten 


PC ,OMATR 
> hla »9CSR2 


MITMIS ,RECDAT 
#1000,BCSR 
eBITO2, RECDAT 


“124 
#12525,(R2)> 


5 
+123 
@2,.Re2 
R1,3$ 


AND CHECK FOR MISS 


PC ,INITMM 
#2000 , KIPAR6 
#61T15 ,KIPDR6 
*BITOO, 
@DATI, 004 
#140000 ,R2 
(R2) 





SEQ 0390 


sLAST PRIORITY 07? 
;IF NOT, BRANCH 
;RESTORE PRIORITY 


sSET BYPASS 

300 DMA DATI 

sCLEAR BYPASS 

s;DISABLE HALT ON BREAK 
sIN CACHE? 

s;STORE REGISTER 


;IF NOT, BRANCH 


sCOUNTER FOR 8 
sSTART WITH TEMP 
s;CLEAR ALL 16 


sNO BLOCK MODE SLAVE? 
;IF NOT, BRANCH 

;NO BLOCK MODE SLAVE 
:COUNTER FOR 4 LOCATIONS 
;START WITH TEMP 
;DISABLE HALT ON BREAK 
:ACCESS A LOCATION 
;STORE REGISTER 

sENABLE HALT ON BREAK 
;HIT? 

;IF NOT, BRANCH 

;D0MA DOES NOT INVALIDATE 
;DATO OK? 

:IF SO,BRANCH 

;IN DMA 

;00 IN 2 WORDS 

700 ALL 16 


;SET UP MMU 
;START AT 32K 
;NO BYPASS 
sENABLE MMU 

;IF 32K NXW 
;START WITH 32K 
;EXIT 
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TEST - OMA WRITE HIT CYCLES 


SEQ 0391 


20745 125000 012701 010000 MOV #10000 ,R1 ;COUNTER FOR 4K 
20746 125004 005022 6%: CLR (R2)+ ;CLEAR ALL 16 
20747 125006 077102 $08 R1.6$ 300 ALL 16 
290748 125010 INC RO sFLAG BLOCK MODE 
20749 125012 012777 000000 055650 MOV #0 ,8BA ;LOAD DMA ADDRESS 
20750 125020 012777 170000 055644 MOV #-10000, WC 300 4K 
20751 125026 012777 003701 055630 MOV #3701,8CSR1 316 WORDS FROM 32K 
20752 34 004737 137370 JSR PC ,DMATRN ;D0 DATBO 
20753 125040 012701 7$: MOV #4000,R1 ;COUNTER FOR 4K LOCATIONS 
125044 012702 140000 MOV #140000, R2 ;START WITH O 
20755 125050 042737 001000 177520 §8$: BIC #1000, BCSR ;DISABLE HALT ON BREAK 
125056 7 TST (R2) sACCESS A LOCATION 
20757 125060 013737 177752 114150 MOV HITMIS ,RECDAT sSTORE REGISTER 
20758 125066 052737 001000 177520 BIS #1000,BCSR sENABLE HALT ON BREAK 
20759 125074 032737 000004 114150 BIT #BITO2 ,RECDAT sHIT? 
20760 125102 001401 BEQ 9$ ;IF NOT, BRANCH 
20761 125104 104121 ERROR +121 ;DMA DOES NOT INVALIDATE 
20762 125106 022722 012525 9$: CMP #12525 ,,(CR2)+ :DATO OK? 
20763 1251 001401 BEQ 10$ ;IF SO,BRANCH 
20764 125114 104123 ERROR +123 ;IN DMA 
20765 125116 062702 000002 10$: ADD #2 ,R2 ;D0 IN 2 WORDS 
pode 125122 077126 S0B R1,8$ ;D0 ALL OF THEM 
; 
20768 ; CHECK DATI 
20769 3 
20770 125124 005037 177572 DATI: CLR ;DISABLE MMU 
20771 125130 012706 001100 MOV #1100, SP sRESTORE STACK 
20772 125134 012737 137542 000004 MOV STOUT, #4 ;AND TIMEOUT 
20773 125142 012737 052525 002740 MOV #52525. TEMP ;LOAD MEMORY 
20774 125150 CLR RO ;JUST 1 WORD 
20775 125152 004737 137452 JSR PC ,.DMARD :D0 DATI 
20776 125156 022777 052525 055510 CMP #52525 ,@DATA ;DATI OK? 
20777 125164 001401 BEQ i$ ;IF YES, BRANCH 
20778 125166 104123 ERROR +123 ; 
20779 : 
20780 ; DO DATBI 
20781 $ 
20782 125170 012701 000010 11$: MOV #10,R1 ;COUNTER FOR 16 LOCATIONS 
20783 125174 012702 002740 MOV @TEMP ,R2 ;START WITH TEMP 
20784 125200 012703 002740 MOV STEMP ,R3 ;START WITH TEMP 
20785 125204 010322 12$: MOV R3,(R2)+ ;PUT ADDRESSES 
20786 125206 005723 TST CR3)+ ; INCREMENT ADDRESS 
20787 125210 077103 SOB Ri,12$ 300 ALL 16 
20788 125212 005200 INC :FLAG BLOCK MODE 
20789 125214 004737 137452 JSR PC ,DMARD ;00 DATBI 
20790 125220 032777 010000 055440 BIT #BIT12,aCSR2 ;NO BLOCK MODE SLAVE? 
20791 125226 001401 BEQ 13$ ;IF NO, BRANCH 
20792 125230 104123 ERROR +123 
20793 125232 022777 002756 055434 i133: CMP STEMP+16,@DATA ;DATI OK? 
794 125240 001401 BEQ 14$ ;IF SO, BRANCH 
20795 125242 104123 ERROR +123 ;IN DATIB 
20796 125244 042737 001000 177520 143: BIC #1000, BCSR ;DISABLE HALT ON BREAK 
20797 125252 005737 002740 TST TEMP ;ACCESS 
798 125256 013737 177752 114150 MOV HITMIS ,RECDAT ;STORE REGISTER 
20799 052737 001000 177520 BIS #1000,BCSR ;ENABLE HALT ON BREAK 
125272 032737 000004 114150 BIT @BITO2 ,RECDAT ;HIT? 
20801 125300 001001 BNE 15$ ;IF YES, BRANCH 








COKDAEO KOJ11-8 CLUSTER DIAG. 
TEST - OMA WRITE HIT CYCLES 
20802 125302 104123 


20803 125304 
20804 125304 


-— 
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ERROR +123 
15$: 
ALLEND: 





SEQ 0392 
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TEST - OIFFERENT LEVELS OF INTERRUPTS 


20860 125416 
20861 125420 


| 
LL 


162701 


012737 
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000052 


055340 
055334 


001160 
001160 


-SBTTL TEST 
sDIFFERENT LEVELS OF INT 
sTHIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 

sPIRQ’S WILL BE TESTED. 


;LEVELS. 


; 
sCHECK DIFFERENT LEVELS OF INTERRUPTS. 


sROUTINE TEST 


SET VECTOR TO INTERRUPT_DMA 

_ INTERRUPTS FROM 4 TO 7 DO 
ENABLE INTERRUPTS 

SET PRIORITY=INTERUPT 

IF INTERRUPT_FLAG SET THEN 
‘ ERROR 


ENDDO 
ENDROUT INE 


- DIFFERENT LEVELS OF INTERRUPTS 
ERRUPTS 


ENDIF 

ENABLE INTERRUPTS 

SET PRIORITY=INTERRUPT -1 

IF ee NOTSET THEN 


ENDIF 
LET INTERRUPT_DMA=0 


; 
sROUTINE INTERUPT_DMA 
LET INTERRUPT_FLAG=1 


s ENDROUTINE 


§ s SRSSSSSSSEEKSEKESEREREEEAEEEDLESEKEKEDOS E4444 44E4044644404464445 048494 


;RETURN 


TST62: 


i$: 


; 
; CHECK 


; 
2$: 


3$: 
4$: 


SETUP 


; 
:3IF SO, EXIT TEST 

;AT LEAST ONE Q22BE FOUND? 
3:IF NOT, EXIT TEST 





SEQ 0393 


UFD MODE? 


300 FOR FIRST FOUND Q22BE 

sPOINT INTERRUPT VECTOR TO PROGRAM 
sAT PRIORITY 7 

sSTART WITH 7 FOR INTERRUPTS 

;LOW BOUNDARY FOR NO INTERRUPTS 
;TRY TO DO IT FOR FIRST 

;LOWER LOW BOUNDARY 


THAT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN BR 


SCOPE 

BIT @B1ITO7 ,ae52 
BNE TST63 

TST CSR1 

BEQ TST63 
INITIAL PRIORITY TO 7 
MOV CSR1,R3 
MOV #5$,9VQBE1 
MOV #340 ,8VQPR1 
MOV 22EN,RO 
MOV #340 ,R1 

BR 2$ 

SUB #40,R1i 

MOV #340, $TMPO 
BR 4$ 

SUB $40, $TMPO 
MTPS $TMPO 

JSR PC ,Q22INT 
NOP 

NOP 

NOP 





;TOP PRIORITY FOR NO INTERRUPTS 
;D0 FIRST ONE 

;D0 AT NEXT LEVEL 

sSET PRIORITY NOT TO INTERRUPT 
sENABLE INTERRUPTS 

;CLEAR GO BIT 
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20866 125432 020137 001160 


125440 022710 900002 
20869 125444 001344 
20870 
20871 
20872 


20876 12 012701 000300 
20877 125472 000402 

20878 125474 162701 000040 
20879 

20880 

20881 

20882 125500 010137 001160 
20883 125504 000403 


20895 125546 005737 001160 
125552 
20897 125554 022720 000002 


055222 
055216 


001160 
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TEST - DIFFERENT LEVELS OF INTERRUPTS 





SEQ 0394 


;IF NO INTERUPT, BRANCH 
s INTERRUPTS HAPPEN 
sRESTORE STACK 


3A ? 
;IF NOT LAST ONE, BRANCH 


sPOINT i? VECTOR TO PROGRAM 
;AT PRIORITY 

;START uITH a FOR INTERRUPTS 

;TOP BOUNDARY FOR INTERRUPTS 

;TRY TO DO IT FOR FIRST 

;sLOWER TOP BOUNDARY 


; 
; CHECK THAT INTERRUPTS HAPPEN AT PRIORITY LOWER THAN BR 


BR 6% 
5$: ERROR #126 
TST (SP)-+ 
TST (SP)-+ 
6$: CMP R1,$TMPO 
BNE 
CMP #2,(RO) 
BNE 
; 
; INTERRUPT AT ALL LEVELS 
; 
IN@22: MOV #5$,8VQBE1 
MOV #340 , A@VQPRi 
MOV #Q22EN,RO 
MOV #300 ,R1 
BR 2s 
i$: SUB #40,R1 
; 
2$: MOV Ri, $TMPO 
BR 4$ 
3$: SUB 40, $TMPO 
4$: MTPS $TMPO 
JSR PC ,Q22INT 
MOV CRO) ,@CSR2 
NOP 
NOP 
NOP 
ERROR +126 
6$ 
S$: TST (SP)+ 
TST CSP)+ 
6$: TST $TMPO 
BNE 3$ 
CMP #2, CRO)+ 
BNE i$ 


sPRIORITY FOR INTERRUPTS 
;D0 FIRST ONE 

;D0 AT NEXT LEVEL 

;SET PRIORITY NOT TO INTERRUPT 
sENABLE INTERRUPTS 

;CLEAR GO BIT 

;WAIT A WHILE 


sINTERRUPTS DON’T HAPPEN 
;DON‘'T RESTORE STACK 
sRESTORE STACK 


sLAST ONE 0? 

;IF NOT BRANCH 

sAT BR4? 

;IF NOT LAST ONE, BRANCH 
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TEST 


000200 
002664 
125710 


000140 
177772 


040000 020000 
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000240 
000242 


-SBTTL 


- ARBITRATION BETWEEN PIRQ‘S AND INTERRUPTS 


TEST 





SEQ 0395 


- ARBITRATION BETWEEN PIRQ‘S AND INTERRUPTS 


sCHECK PRIORITY ORDER BETWEEN PIRQ‘S AND INTERRUPTS. 
sROUTINE TEST 
IF UFD THEN 


ENDIF 


EXIT TEST 


” FOR I FROM #6 DOWN TO #3 


ENDDO 
ENDROUTINE 


SET PRIORITY TO I 


ENABLE INTERRUPT(I+1) AND PIRQ(I+1) 
IF ei + site WAS BEFORE PIRQ(I+1) THEN 


ENDIF 


§ f SSASSSAAASAKKRACASESARSEAAKASEEEAEEEEEEEKESD EE 44EEEEEEEEEEREAKEEREEEESE 


TST63: 


1$: 
2$: 


3$: 


4$: 
5$: 


PIRQT: 


SCOPE 


. WORD 


== 





#BITO7 ,a¢52 ;UFD MODE? 

TST64 33;IF SO, EXIT TEST 

CSR1i ;AT LEAST ONE Q22BE FOUND? 
TST64 ;;IF NOT, EXIT TEST 

#3$,@VQBE1 ;SETUP Q22BE VECTOR 

$340 , 8VQPR1 :AT PRIORITY 7 

$4$,PIRQVEC ;SETUP PIRQ : 

$340 ,PIRQVEC+2 ;AT PRIORITY 

$Q22EN ,RO ;POINT THRU PRIORITIES FOR Q22BE 
#PIRQT ,R4 sPOINTER THRU PIRQ’S 

CSR1,R3 300 FOR FIRST Q22BE 

#300 ,R2 sSTART WITH CPU PRIORITY AT 7 
2$ ;00 FIRST ONE 

#40,R2 ;LOWER CPU PRIORITY 

& sRAISE PRIORITY TO 7 
(R4)+,PIRQ ;SET PRIORITY FOR PIRQ‘S 

PC ,Q22INT sINITIALISE Q22BE TO INTERRUPT 
(RO)+, @CSR2 ;SET DONE BIT 

R2 ;LOWER PRIORITY 

+124 ;PIRQ'S DON’T TAKE OVER BIRQ’S 
(SP)+ ;CLEAN UP STACK 

(SP) 

5$ ;BRANCH AROUND PIRQ INTERRUPT 
(SP)+ ;CLEAN UP STACK 

(SP)+ 

#140 ,R2 sPRIORITY 3 LAST ONE? 

i$ ;IF NOT BRANCH 

PIRQ ;CLEAR ANY REQUESTS 

100000 , 40000 , 20000 , 10000 ;PIRQ' S<7-4> 





| es 
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- POWER DOWN TEST 


TEST 
20953 


013737 


000200 
002664 
000024 
126030 
000340 
000040 


054642 


054632 


001160 


000024 


-S8TTL TEST 
sUSING Q@22BE THIS TEST WILL CHECK THAT ON POWER DOWN CONDITION IF 
sPOWER UP CODE 00 IS SELECTED THE CPU TRAPS THRU 24 

sROUTINE TEST 


IF UFD OR POWE 
EXIT TEST 


SEQ 0396 


- POWER DOWN TEST 


R UP CODE 00 NOT SELECTED THEN 


SET 24 TO POINT TO TEST AREA 
LET CSR2<S> = #1 TO NEGATE BPOK 
IF NO TRAP TO 24 THEN 


ERROR IN POWER DOWN CYCLE 


ENDIF 
IF TRAP TO 24 THEN 


ENDIF 


ENDROUT INE 


LET CSR2<5> = #0 


5 5 FHSS EEEEEEEEEEOAESEDODO46640460406646664464464444464644464446464644644 


TST64: 


1$: 


2s: 


SCOPE 
BIT 


#68ITO7 ,@¢52 s;UFD MODE? 

TST65 ;sEXIT TEST IN UFD MODE 

CSR1 sAT LEAST ONE Q22BE FOUND? 
TST65 ssIF NOT, EXIT TEST 

PWRVEC , $TMPO sSAVE POWER UP VECTOR 
#1$,PWRVEC sPOINT NEW TO PROGRAM 
#340 ,PWRVEC+2 sAT PRIORITY 7 

#BIT05 ,ACSR2 500 POWER DOWN 

acSRe ;CLEAR POWER DOWN BIT 
+125 ;NO POWER DOWN TRAP 


2$ ;SKIP RESTORING STACK 


acsrRe sCLEAR POWER DOWN BIT 

ok sRESTORE STACK POINTER 
+ 

$TMPO, PWRVEC sRESTORE POWER VECTOR 
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TEST 


137350 
054510 


000140 
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- ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 


000052 


054576 


054576 





-SBTTL TEST 


SEQ 0397 


- ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 


;IF TWO Q22BE ARE AVAILABLE, THIS TEST WILL CHECK THAT HIGHER LEVEL 


s INTERRUPT REQUESTS TAKE PRIORITY OVER LOWER LEVEL ONES 


sROUTINE TEST 
Re IF UFD OR 2ND — NOT AVAILABLE THEN 
2 EXIT TES 

5 ENDIF 

; - FOR PRIORITY_LEVELS FROM 4 TO 6 

: SET UP 1ST Q22BE TO INTERRUPT AT PRIORITY LEVEL 

; SET UP 2ND Q22BE TO INTERRUPT AT PRIORITY_LEVEL+1 

Se ; SET UP CPU PRIORITY TO PRIORITY_LEVEL-1 

$e , IF INTERRUPTS FORM 1ST Q@22BE HAPPENED BEFORE 1ST THEN 

Se . ERROR 

; ENDIF 

; E 

sENDROUTINE 

were tt it Tt titi t ttt ttt ttt ttt tt Tt tt TTT TT TTT TTT TTT TTT TTT TTT TTT TTT 

TST65: SCOP 
BIT #BITO7 ,.a¢52 ;UFN MODE? 
BNE TST66 :;IF SO, EXIT TEST 
TST CsRi2 ;SECOND Q22BE AVAILABLE? 
BNE i$ ;IF YES, GO DO TEST 
JMP sEOP ;OTHERWISE, GOTO EOP 

; 

; INITIALISE VECTORS FOR Q22BE’'S 

; 

1$: MOV #4$,98VQBE1 ; VECTOR FOR 1ST ONE 
MOV 4340 ,@VQPR1 ;AT PRIORITY 7 
MOV #5$,8VQBE2 ;VECTOR FOR 2ND ONE 
MOV #340 , 8VQPR2 ;AT PRIORITY 7 
MOV #Q22EN+2,R0 sPOINTER FOR Q22BE BR‘S 
MOV #240 ,R2 ;CPU AT 5 
BR 3$ ;START DOING ARBITRATION 

; 

; DO FOR CPU PRIORITIES 5-3 

; 

2$: SUB 0,R2 ;LOWER “'y PRIORITY 

3$: MTPS #340 ;CPU AT 7 
MOV CSR12,R3 ;Q22BE 2 AT HIGHER BR 
JSR PC ,Q22INT ;INITIALISE TO INTERRUPTS 
MOV CRO) ,@CSR2 ;START iST ONE 
MOV 1,R3 ;Q22BE 1 Ai LOWER BR 
TST - ) ;HIGHER PRIORITY 
JSR PC ,Q22INT ; INITIALISE 
MOV CRO)+, @CSR22 ;START 2ND ONE 
MTPS R2 ;LOWER CPU PRIORITY 
NOP ;sWAIT A WHILE 
NOP 
NOP 

4$: ERROR +126 ; INTERRUPTS IN WRONG ORDER 
TST CSP)+ ;sRESTORE STACK 
TST CSP)+ 
BR 6$ 

5$: TST (SP)+ ;sRESTORE STACK 
TST (SP)+ 

6$: CMP #140 ,R2 ;PRIORITY 3 LAST? 
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21047 126226 001342 
21048 


-— 
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TEST - ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS 


BNE 2$ 





SEQ 0398 


;IF NOT, BRANCH TO CONTINUE 





COKDAEO KDJ11-8 CLUSTER DIAG. 
- PMG COUNTER 


TEST 


21105 


i 
~ 


340 
126346 


012777 


003032 


126750 


000200 


140340 
002704 


140340 
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000052 


-SBTTL TEST 


SEQ 0399 


- PMG COUNTE 


R 
sUSING 2 Q22BE THIS TEST WILL VALIDATE THAT PMG COUNTER IS REALLY 
ft a OF GRANTING CPU BUS MASTERSHIP WHEN DMA REQUESTS ARE STILL 


;P 
sROUTINE TEST 


TST66 


100$: 


IF UFD OR NO 2ND Q22BE THEN 
EXIT TEST 


ENDIF 

SET PMG COUNT TO SOME VALUE 

PROGRAM BOTH Q22BE TO INTERRUPT AT THE SAME LEVEL 
DETERMINE WHICH HAS HIGHER PRIORITY ON THE BUS 
PROGRAM Q22BE WITH HIGHER PRIORITY TO DO HOG MODE 
PROGRAM 2ND ONE TO DO A CYCLE 

CACHE INSTRUCTION THAT WILL STOP 2ND DMA 

INITIATE BOTH DMA CYCLES 

STOP 2ND DMA (RESET IS “STOLEN” CPU BUS CYCLE) 

IF 2ND OMA HAPPENED THEN 


ERROR 
ENDIF 
CLEAR PMG COUNT 
PROGRAM Q22BE WITH A ew PRIORITY TO DO HOG MODE 
PROGRAM 2ND ONE TO DO A CYCLE 
CACHE INSTRUCTION THAT WILL STOP 2ND DMA 
INITIATE BOTH OMA CYCLES 
STOP 2ND DMA (CLEARING OF CSR2<0> IS “STOLEN” CPU BUS CYCLE) 
IF 2ND ——'” HAPPENED THEN 


: ENDIF 
ENDROUT INE 


$f RRARREREREEEEEEASEEEEEES ODES EE EEEE ES OSEDDEEEEDSEEEEDEEREEEEREES 
: SCOPE 
NOP 
TST CCHPAS shave done enough inclusive passes? 
BNE 99$ ; not yet 
NOP ; debug aid 
JMP 11$ ; yes skip this 
NOP 
BIT #BITO7 ,9¢52 ;UFD MODE? 
BEQ 100$ ;IF NOT, CONTINUE 
JMP sEOP ;EXIT 
TST CSR1i2 sSECOND Q22BE AVAILABLE? 
BNE 110$ ;IF YES, GO DO TEST 
JMP sEOP ;OTHERWISE, GOTO EOP 


; 
; DETERMINE WHICH Q22BE IS CLOSER TO CPU BY DOING DATO 
; THE CSR1 OF THE ONE WITH HIGHER PRIORITY IS IN R4, THE SECOND IN R2 


° 
110$: 


CLR acsRe ;CLEAR JUST IN CASE 
CLR aCSR2e2 

MOV @TEMP, OBA sADDRESS TO BE USED 
MOV eTEMP , BBA2 sFOR BOTH OF THEM 
MOV #177777, QC ;00 FOR 1 WORD 

MOV #177777, BWC2 ;IN BOTH Q22BW'S 
MOV #12525 ,,8DATA ;DATA FOR iST 


#52525 ,@DATA2 ;DATA FOR 2ND 





COKDAEO K0J11-B 


TEST 


CLUVSTER DIAG. 
- PMG COUNTER 


012777 


012700 
0500 


001601 
001601 
000001 
054262 
054274 
052525 


002704 
002664 


002664 
002704 


177520 


000001 
177520 
126564 
126566 
126570 
126572 
001407 


000002 
002740 
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054302 
054314 
054304 


002740 


002730 


000016 
000010 


177520 


MOV #1601, 8CSR1 
MOV #1601, 8CSRi2 
MOV #1,93SIMGOA 
1%: TSTB acsRi 
BPL i$ 
2s: TSTB acsrRi2 
BPL 2$ 
CMP #52525 , TEMP 
BEQ 3$ 
MOV CSR12,R4 
MOV CSR1,R2 
BR 4$ 
3$: MOV CSR1,R4 
MOV CSR1i2,R2 
; 
; INITIATE OMA CYCLES TO WORK WITH PMG COUNTER 
; 
4$: MOV BCSR , SAVBR 
MOV #BITOO,RO 
5$: BIS RO,BCSR 
TST 6$ 
TST 6$+2 
TST 6$+4 
TST 6$ +6 
MOV #1407, (R4) 
CLR 2CR4) 
MOV OTEMP ,4(R4) 
MOV #0 .6(R 
MOV $1407, (R2) 
CLR 2CR2) 
MOV OTEMP ,4(R2) 
MOV #177777,6CR2) 
CLR 10(R2) 
MOV #1,16(R2) 
6$: RESET 
ated 
ERROR +127 
7$: ADD 3,RO 
BIC RO,BCSR 
CMP @7,RO 
BGE S$ 
° 
; TRY WITHOUT PMG COUNTER OPERATING 
; 
BIC #7,B6CSR 
TST 8$ 
TST 8$+2 
TST 83 +4 
TST 83 +6 
MOV #1407, (R4) 
CLR 2(R4) 
MOV @TEMP ,4(R4) 
MOV 60 ,6(R4) 
MOV #1407, (R2) 
CLR 2(R2) 
MOV @TEMP,4(R2) 





SEQ 0400 


31 DATO FOR iST 
;AND 2ND 

;BOTH GO 

;FIRST DONE? 


2ND 
;SECOND FINISHED LAST? 
:IF SO, BRANCH 
;SECOND ONE AT HIGHER LEVEL 
;FIRST AT LOWER 
:D0 PMG PART 
sFIRST ONE AT HIGHER LEVEL 
;SECOND AT LOWER 


sSTORE BCSR REGISTER 

sFIRST VALUE FOR PMG 0.4msec 
s;CHANGE PMG CONUTER 

s;CACHE RESET INTRUCTION 

;AND THE FOLLOWING FEW 

i 


; 
;DATI IN HOG MODE FOR HIGHER ONE 
;CLEAR CSR2 

sADDRESS TO START DATI 

700 128 DATI’'S IN HOG MODE 
;DATO FOR LOWER LEVEL ONE 
;CLEAR JUST IN CASE 

;USE THE SAME ADDRESS 

300 JUST ONE DATO 

;CLEAR DATA OF 2ND Q22BE 

;BOTH GO 

:STOP Q22BE AT R4 


NO CYCLE STEALING 

:00 FOR 1,3,7 IN PMG 

CLEAR PREVOIUS BITS IN BCSR 
T ONE? 


7L 


;IF NOT, BRANCH 


;TURN OF PMG COUNTER 
;CACHE RESET FETCH 
sAND THE FOLLOWING FEW 
; 


; 

sDATI IN HOG MODE FOR HIGHER ONE 
sCLEAR CSR2 

sADDRESS TO START DATI 

:00 128 DATI’S IN HOG MODE 

sDATO FOR LOWER LEVEL ONE 

;CLEAR CRS2 OF 2ND 


s;USE THE SAME ADDRESS 








COKDAEO KDJ11-B8 CLUSTER DIAG. 
- PMG COUNTER 


TEST 
21163 


126706 
126714 


MACRO YOS.02 Tuesday 14-May-85 08:07 Page 64-2 


11%: 


VIREOP : 


1$: 


0177777,6(R2) 
10(R2) 
#1,8SIMGOA 
TEMP , 10(R2) 
93 


+127 
SAVER ,BCSR 


$eop 
SENV , ¢1 
i$ 
CCHPAS 
i$ 
CCHPAS 


SEQ 0401 


300 JUST ONE DATO 

;CLEAR DATA OF 2ND Q22BE 
;B0TH GO 

;IF NOT WORKING, STOPS 2ND 
2ND NED? 


;IN PMG COUNTER 
sRESTORE BCSR 


; if not APT, don’t worry about 
; 
; maintain cache routin pascnt 


mate VIREOP ROUTINE to provide common End of Pass exit point 
r 
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GLOBAL ERROR MESSAGES 


21184 
21185 


21186 


12 
21187 
12 


12 
21186 
12 


1 
21189 
12 


12 
21190 
12 


12 
21191 
12 


127002 
127005 


-SBTTL GLOBAL ERROR MESSAGES 


EMi: 


EM?: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





/BASIC INSTRUCTION SET ERROR/ 


/MMU ERROR/ 


/FPP ERROR/ 


ZERROR IN READ-WRITE BITS OF CCR/ 


/FORCE MISS WRITES TO CACHE/ 


/FORCE MISS WRITE INVALIDATES CACHE/ 


/UNEXPECTED PARITY INTERRUPT/ 


SEQ 0402 





COKDAEO KDOJ11-8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


21192 


12 
21193 
12 


21194 


21195 


12 
21196 : 


12 
21197 


21198 
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EM10: 


EM11: 


EM12: 


EM13: 


EM14: 


EM15: 


EM16: 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/TAG PARITY ERROR/ 


/DATA PARITY ERROR/ 


/LOW BYTE PARITY ERROR/ 


/HIGH BYTE PARITY ERROR/ 


ZERROR IN DATA PATH/ 


/FORCE MISS READS FROM CACHE/ 


‘FORCE MISS READS FROM CACHE AND MISS/ 





SEQ 0403 
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GLOBAL ERROR MESSAGES 


21199 


21200 127564 


21201 
12 


21202 


12 
21203 
12 


-— 


EM17: 


EM21: 


EM23: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





SEG 0404 


\ERROR IN RECORDING HITS IN HIT/MISS\ 


/WRITE BYTE ALLOCATES CACHE/ 


/WRITE BYTE HIT DOES NOT RECORD HIT/ 


/BYTES REVERSED ON WRITE CYCLES/ 


/CONDITIONAL BYPASS DOESN'T INVALIDATE CACHE/ 








- - 


COKDAEO KOJ11-B CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


127773 105 000 
21204 127775 110 111 
130000 123 040 


1 
21205 pote 102 131 


21206 130100 115 123 


1 
21207 pee ed 120 idl 


0166 116 047 
130171 103 
130174 125 123 
130177 101 


21208 pte ot 120 101 


-— 
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124 EM24: -ASCIZ /HITS RECORDED AFTER FLUSHING CACHE/ 


120 EM25: -ASCIZ /BYPASS DOESN'T INVALIDATE CACHE/ 


105 EM26: .ASCIZ /MSER DOES NOT CLEAR ON WRITE REFERENCE/ 


122 EM27: -ASCIZ /PARITY ERROR DON'T CAUSE A MISS/ 


122 EMSO: -ASCIZ /PARITY ERROR DON’T SET MSER WITH CCR<7>=0/ 


SEQ 0405 
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GLOBAL ERROR MESSAGES 


21209 


21210 


21211 


1 
21212 


21213 


r 


MACRO YOS.02 Tuesday 14-May-85 08:07 Page 65-4 


EM31: 


EMS32: 


EM33: 


EM34: 


EM35: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





/PARITY ERROR IGNORED/ 


/PARITY ERROR IGNORED ON LOW BYTE/ 


/PARITY ERROR IGNORED ON HIGH BYTE/ 


/PARITY ABORT LOGIC DOESN’ T WORK/ 


/MSER NOT SET PROPERLY/ 





SEQ 0406 
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GLOBAL ERROR MESSAGES 


21214 


21215 


1 
21216 


21217 


EM36 : 


EM37: 


EM40: 


EM41: 





-ASCIZ /PARITY INTERRUPT LOGIC DOESN'T WORK/ 


-ASCIZ /NXM AND PARITY ABORT DIN’ T HAPPEN/ 


-ASCIZ /PARITY ABORT NOT BLOCKED BY NXM TRAP/ 


-ASCIZ /MULTI-PROCESSOR HOOK INSTRUCTION DOESN’ T CAUSE MISS/ 





SEQ 0407 


COKDAEO KDJ11-B8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


1 
21218 


1 
21219 
1 


1 
21220 


1 
21221 
1 


1 
21222 
1 


-— 


131172 
131175 
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EM43: 


EM45: 


EM46: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


SEQ 0408 


ZERROR IN PARITY LOGIC/ 


7ERROR IN CACHE DATA RAMS/ 


/ERROR IN NXM IN STANDALONE MODE/ 


\NERROR IN RECORDING HITS THROUGH HIT/MISS REGISTER\ 


-ASCIZ /HIT RECORDED FOR A LOCATION THAT SHOULD NOT BE IN CACHE/ 











COKDAEO KDJ11-8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


1 
21223 
1 


1 
21224 
1 


1 
21225 
1 


1 
21226 
1 


1 
21227 
1 


—— 
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EM47: 


EMSO: 


EMS2: 


-ASCIZ /MISS RECORDED FOR A LOCATION THAT SHOULD BE IN CACHE/ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





ZERROR IN TAG STORE/ 


/ERROR PCR READ-WRITE BITS/ 


ZERROR IN BCSR READ-WRITE BITS/ 


/RESET DOESN'T CLEAR BCSR<4>/ 





SEQ 0409 
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GLOBAL ERROR MESSAGES 


SEQ 9410 


131462 000 
21228 ter 103 110 105 EMS4: .ASCIZ /CHECKSUM ERROR IN 16-BIT ROM / 


21229 131521 103 110 105 EMSS: .ASCIZ /CHECKSUM ERROR IN 8-BIT ROM/ 


13 
21230 tp oe 124 111 115 EMS6:  .ASCIZ /TIMEOUT READING LKS/ 


1 
21231 tees: 114 pt 123. EMS7: .ASCIZ /LKS<07> DOES NOT BECOME 1/ 


13 06 
21232 tet 127 122 111 EM60: .ASCIZ /WRITE REFERENCE DOESN'T CLEAR LKS<07>/ 


1 
21233 pth ‘aa 114 114 EM61: .ASCIZ /ILLEGAL LKS INTERRUPTS/ 
131707 114 040 114 





- 
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GLOBAL ERROR MESSAGES 
131712 


21234 


1 
21235 
1 


21236 


1 
21237 
1 


21238 


— 


EM62: 


EM63: 


EM64: 


EM6S: 


EM66 : 





-ASCIZ /PROCESSOR INTERRUPTS DON’T CLEAR LKS<07>/ 


-ASCIZ /LKS READY DOESN’T GO LOW/ 


-ASCIZ /WRONG NUMBER OF LKS INTERRUPTS/ 


-ASCIZ /LKS INTERRUPTS HAPPEN AT WRONG PRIORITY/ 


-ASCIZ /BCSR<12> DOES NOT DISABLES LKS/ 


SEQ 0411 





COKDAEO KDJ11-68 CLUSTER DIAG. 
CLOBAL ERROR MESSAGES 


1 
21239 
1 


21240 


1 
21241 
1 


1 
21242 
1 


1 
21243 
1 


21244 


— 
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EM70: 


EM71: 


EM72: 


EM73: 


EM74: 


-ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 





/BCSR<13> DOESN'T SET LKS<06>/ 


/RESET DOESN'T SET LKS<7>/ 


/RESET DOESN‘T CLEAR LKS<06>/ 


/TIMEOUT READING SLU REGISTERS/ 


/ERROR IN XMIT READY/ 


/RCSR<7> DOESN’ T BECOME 1/ 


SEQ 0412 





COKDAEO KOJ11-8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


1 
21245 
i 


i 
21246 
1 


1 
21247 


1 
21248 
1 


21249 


21250 


p— 
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EM7S: 


EM76: 


EM77: 


EM100: 


EM101: 


EM102: 


-ASCIZ /WRONG CHARACTER RECEIVED/ 


-ASCIZ /RCSR<O7> NOT CLEARED AFTER READING RBUF/ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 





/XCSR<07> NOT SET ON RESET/ 


/RCSR<O7> NOT CLEARED ON RESET/ 


/SLU INTERRUPTS HAPPEN AT 4/ 


/RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/ 





SEQ 0413 
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GLOBAL ERROR MESSAGES 


1 
21251 


1 
21252 
i 


21253 


‘a 


133127 


EM103: 


EM104: 


EM105: 





-ASCIZ /TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/ 


-ASCIZ /RECEIVE INTERRUPTS DON'T CLEAR RCSR<07>/ 


-ASCIZ /BREAK CONDITION DOES NOT SET RBUF PROPERLY/ 





SEQ 0414 





COKDAEO KOJ11-8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


21254 


21255 
1 


21256 


1 
21257 


133372 
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EM106: 


EM107: 


EM110: 


EM111: 


-ASCIZ /RBUF <15-11> WASN'T C.EARED ON NEXT CHARACTER/ 


-ASCIZ /SLU INTERRUPTS DON‘ T HAPPEN/ 


-ASCIZ /ERROR IN WRITING TO SLU REGISTERS/ 


-ASCIZ /FIPST CHARACTER WAS NOT OVERRUN BY THE SECOND/ 


Diss ake ap rats ndsomeninteann 





SEQ 0415 
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GLOBAL ERROR MESSAGES 
21258 reg 2 dy 117 126 to EMiil2: .ASCIZ /OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF/ 


SEQ 0416 


13 
21259 po ty 117 126 eo EM113: .ASCIZ /OVERRUN BITS WERE NOT CLEARED ON THE NEXT CHARACTER/ 


1 
21260 133542 105 122 = EM114: .ASCIZ \ERROR ON XCSR<2>\ 


1 
21261 ae 105 122 re EM115: .ASCIZ /ERROR IN TAG STORE FROM STANDALONE MODE/ 


13 
21262 iors 104 115 4 EM116: .ASCIZ /DMA TAG PARITY DOES NOT GENERATE PROPER RESPONSE/ 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


1 
21263 


21264 


i 
21265 





a tr a me em 
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EM117: 


EM120: 


EM121: 


-ASCIZ /MSER<13>NOT SET IN STANDALONE MODE/ 


-ASCIZ /DMA WRITE HITS DON'T INVALIDATE CACHE/ 


-ASCIZ /IN BLOCK MODE ON WRITE DMA HITS NOT EVERYTHING IS INVALIDATED/ 





SEQ 0417 
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GLOBAL ERROR MESSAGES 


21266 


21267 


21268 


21269 


1 
21270 
1 
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EM122: 


EMi23: 


EM124: 


EM125: 


EM126: 


-ASCIZ /READ DMA HIT IS WRONG/ 


-ASCIZ /ERROR IN Q22BE DMA CYCLES/ 


-ASCIZ /PIRQ INTERRUPTS DON’T TAKE PRIORITY OVER Q BUS INTERRUPTS/ 


-ASCIZ /NO POWER DOWN TRAP TO 24 OCCUR/ 


-ASCIZ /ERROR DOING Q22BE INTERRUPTS/ 


SEQ 0418 
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GLOBAL ERROR MESSAGES 


21271 


21272 


21273 


1 
21274 
1 


1 
21275 


1 
21276 
1 
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EM127: 


EM130: 


EM131: 


EM132: 


EM133: 


EM134: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 





ERROR IN OPERATION OF PMG COUNTER/ 


/UNEXPECTED TRAP TO 4/ 


ZERROR WRITING TO LKS<6>/ 


ERROR IN MAINTENANCE REGISTER/ 


ZEEROM TYPE ERROR/ 


/READ OR WRITE EEROM ERROR/ 





SEQ 0419 





COKOAEO KDJ11-6 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


21277 
21278 i 


21279 


21280 


1 
212861 
i 


1 
21282 


1 
21283 
1 


ee Cee 


1 
21284 


DH1: 


DHS: 


DH7: 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIT 


4 #@# PC/ 


/ TEST ERROR 


4 @ PC 


/ TEST ERROR 


/ TEST ERROR 





NO AS SE ES FN SS A AN | CREE oS 
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-ASCII / TEST ERROR/<15><12> 


EXPCTED RECEIVED/<15><1i2> 


DATA DATA/ 


HITMIS DATA IN DATA IN/<15><12> 


REG. CACHE MEMORY/ 


ADDRESS MSER/<15><12> 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 
21285 135064 
135067 


21286 


1 
21287 
1 


1 
21288 
i 


1 
21289 
1 


21290 


1 
21291 
1 


1 
21292 
1 


135323 
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DH24 : 


DH27: 


-ASCIZ / @ PC 


.ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCiI 





SEQ 0421 
ACCESSED/ 
/ TEST ERROR NUMBER/<15><12> 
/ @ PC OF HITS/ 
\ERROR ERROR MSER HIT/MISS\<15><12> 
/ ¢@ PC/ 
/ TEST ERROR INSTRUCTION/<15><12> 
/ #@ PC OPCODE/ 


/ TEST ERROR EXPECTD RECEIVD CACHE/<15><12> 





COKDAEG KDJ11-B CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


1 
21293 
1 


21294 


1 
21295 
1 


21296 


1 
21297 
1 


21298 


21299 


21300 


-— 


135570 
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DH72: 


DH1i05: 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIT 


-ASCIZ 


.ASCII 


.ASCIZ 


.ASCII 


/ @ PC 


/ TEST ERROR 


/ TEST ERROR 


/ TEST ERROR 


/ TEST ERROR 





DATA DATA LOCATION/ 


ADDRESS ADDRESS/<15><12> 


<21-16> <15-0>/ 


PRIORITY/<15><12> 


LEVEL/ 


ADDRESS/<15><12> 


FAILED/ 


RBUF /<15><12> 





SEQ 0422 





COKDAEO KOJ11-8 CLUSTER DIAG. 
GLOBAL ERROR MESSAGES 


135573 117 122 011 
135576 122 102 125 
135601 106 015 012 

21301 135604 040 040 043 
135607 011 040 120 
135612 103 000 

21302 135614 040 124 105 
135617 123 124 O11 
135622 105 122 122 
135625 117 122 O11 
135630 115 123 105 
135633 122 O11 101 
135636 104 104 122 
135641 105 123 123 
135644 015 012 

21303 135646 040 040 043 
135651 011 040 120 
135654 103 040 O11 
135657 O11 101 103 
135662 103 105 123 
135665 123 105 104 
135670 000 

21304 135671 040 124 105 
135674 123 124 Oil 
135677 105 122 122 
135702 117 122 011 
135705 040 043 040 
135710 157 146 011 
135713 O11 040 040 
135716 040 104 101 
135721 124 101 040 
135724 040 120 103 
135727 122 040 040 
135732 040 101 104 
135735 104 122 105 
135740 123 123 015 
135743 012 

21305 135744 040 040 043 
135747 O11 040 120 
135752 103 040 O11 
135755 105 122 122 
135760 117 122 123 
135763 040 040 120 
135766 101 124 124 
135771 105 122 116 
135774 040 040 040 
135777 040 122 105 
136002 101 104 040 
136005 040 040 040 
136010 040 040 040 
136013 040 101 103 
136016 103 105 123 
136021 123 105 104 
136024 000 

21306 


21307 
21308 136026 001162 001116 000000 


L 


DH115: 


DH134: 


DT1: 


-ASCIZ 


.ASCII 


-ASCIZ 


. ASCII 


-ASCIZ / @ PC 


-EVEN 
. WORD 
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4 @ PC/ 

/ TEST ERROR MSER ADDRESS/<15><12> 

4 @ PC ACCESSED/ 

/ TEST ERROR # of DATA PCR 


ERRORS PATTERN READ 


$TMP1, SERRPC,O 


ADDRESS/<15><12> 


ACCESSED/ 


SEQ 0423 
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GLOBAL ERROR MESSAGES 


001122 


001116 
000000 
001116 
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000001 
001124 
001124 
001124 
001124 
001124 
177562 


OT4: 

OTS: 

OT7: 

DOT14: 
DT1i7: 
DT24: 
DT27: 
OT3S: 
D0T41: 
DT43: 
D147: 
DTSO: 
OTS1: 
OTS2: 
OT64: 
DT65: 
DT75: 


DT105: 
OT115: 


DT130: 
DT134: 


STMP1, SERRPC,R1,CCR,O 

STMP1, SERRPC ,R2,R1,$GDDAT,0O 
STMP1, SERRPC , $BDADR,MSER,O 
$TMP1, SERRPC, $GDDAT, TSTLOC,0 
$TMP1, SERRPC , $GDDAT,RECDAT,0O 
$TMP1, SERRPC,.R3,0 
$TMP1, $ERRPC ,MSER,R3,0 

$STMP1, SERRPC, $GDDAT,MSER,O 
$TMP1, SERRPC , $BDDAT,O 

$TMP1, SERRPC ,R1,RECDAT, $BDADR,0O 
$TMP1, S$ERRPC ,KIPARG6, $BDADR ,O 
$TMP1, SERRPC,R1, $BDADR,O 

$TMP1, $ERRPC, $GDDAT,PCR,O 
$TMP1, SERRPC, $GDDAT,BCSR,O 
$STMP1, SERRPC, $GDDAT,LKSFL,O 
$TMP1, SERRPC, $GDDAT,0O 

$TMP1, SERRPC, $GDDAT, $BDDAT 0 
$TMP1, SERRPC ,RBUF ,O 

$TMP1, SERRPC, $BDDAT,KIPAR6, $BDADR,0 


$TMP1, $BDADR ,O 
STMP1, SERRPC ,ERRCNT,R3,$BDDAT,R4,$BDADR,O 





SEQ 0424 





COKDAEO KDJ11-B8 CLUSTER DIAG. 
MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 


101021 
37 


006237 
053737 
010046 


005720 
000401 


001162 
001102 
001175 


001114 


001116 


001324 
136442 


001175 
136460 


001175 


001175 


000005 


000700 
001160 
0%* 160 
6.1160 


001160 
001160 
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001162 


136544 


136544 


SEQ 0425 


-SBTTL MODIFIED ERROR MESSAGE TYPEOQUT ROUTINE 

el rrr rrr irri i iti titi ttt tt TT tT TTT TTT TT TT tT 
;#THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTB), 
;#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


;¢ 

;#THE ONLY DIFFERENCE BETWEEN THIS ROUTINE AND THE ORIGINAL “SERRTYP” FROM 
s#SYSMAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPOSE REGISTERS TO THIS 
;#ROUTINE. THE GENERAL PURPOSE REGISTERS USED ARE TO BE SPECIFIED IN DT« 


;#FORMAT. RO SHOULD NOT BE USED. 


ERTYPE: 


1$: 


2$: 
3$: 


4$: 
5$: 
6$: 


7$: 


8$: 


$TMP1 
$TSTNM, $TMP1 
. $CRLF 


RO,-CSP) 

RO 
@¢SITEME ,RO 
i$ 


SERRPC , -(SP) 


3sJUST CLEAR IT 

;;STORE TEST NUMBER 

33; "CARRIAGE RETURN” € “LINE FEED” 
;;SAVE RO 

;sPICKUP THE ITEM INDEX 


;sIF ITEM NUMBER IS ZERO, JUST 
;;TYPE THE PC OF THE ERROR 

;;SAVE SERRPC FOR TYPEOUT 

;;ERROR ADDRESS 

i. ASCIICALL DIGITS) 
ii 


RO ;;ADJUST THE INDEX SO THAT IT WILL 
z= $3 WORK FOR THE ERROR TABLE 
RO 
#s$ERRTB,RO ;:FORM TABLE POINTER 
CRO)+,2$ ;sPICKUP “ERROR MESSAGE” POINTER 
3$ :;SKIP TYPEOUT ITF NO POINTER 
0 ;sERROR MESSAGE POINTER GOES HERE 
, $CRLF 3; "CARRIAGE RETURN” € “LINE FEED” 
(RO)+,4$ ;sPICKUP “DATA HEADER” POINTER 
5$ ;;SKIP TYPEOUT IF O 
3;TYPE THE “DATA HEADER” 
7; "DATA HEADER” POINTER GOES HERE 
. $CRLF 3; "CARRIAGE RETURN” € “LINE FEED” 
CRO),RO ;;PICKUP “DATA TABLE” POINTER 
7:GO TYPE THE DATA 
CSP)+,RO ; ;RESTORE RO 
, $CRLF 3; "CARRIAGE RETURN” € “LINE FEED” 
PC ; sRETURN 
CRO) ,¢5 ;;GENERAL PURPOSE REGISTER? 
9$ 33;IF NOT, GO TYPE DATA 
#BITS!:8IT7!BIT6, 8$ ;;CLEAR BITS FOR SOURCE REGISTER 
CRO), $TMPO ;;SAVE CRO) 
$TMPO ;;GET REGISTER NUMBER TO HIGH BYTE 
chee ;:;GET REGISTER NUMBER TO BITS 8-6 
STMPO, 8$ ;;SET BITS IN MOV INSTRUCTION 
;:ACCORDING TO REGISTER NUMBER 
RO, -(SP) ;:;MOVE CONTEXT OF REGISTER TO STACK 
CRO)+ ;;ADVANCE POINTER 
10$ ;:;GO TYPE 
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MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 


SEQ 0426 


21388 136552 013046 9$: MOV @CRO)+,-CSP) 7;IF NOT GPR, SAVE @(RO)+ FOR TYPEOQUT 
21389 136554 104402 10$: TYPOC ;:G0 TYPE--OCTAL ASCI CALL DIGITS) 
21390 136556 005710 TST CRO) 3:IS THERE ANOTHER NUMBER? 

21391 136560 001744 BEQ 6$ ;;BR IF NO 

21392 136562 104401 136570 TYPE .11$ S ETYPE TWOC2) SPACES 

21393 136566 000745 BR 7$ 

21394 136570 040 040 000 11%: -ASCIZ / / ;;TWOC2) SPACES 

21395 -EVEN 

21396 

21397 .SBTTL GLOBAL SUBROUTINES SECTION 

21398 

21399 ;+¢ 

21400 ; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 

21401 ; THAT ARE USED IN MORE THAN ONE TEST. 

21402 ;-- 

21403 

21404 3++ 

21405 ; FUNCTIONAL DESCRIPTION: 

pee ; SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS 

21408 

21409 ; INPUTS: NONE 

21410 

21411 ; OUTPUTS: NONE 

21412 

21413 ; SUBORDINATE ROUTINES USED: LOAD PARS 

21414 ; LOAD PORS 

21415 

state ; FUNCTIONAL SIDE EFFECTS: NONE 

seats ; CALLING SEQUENCE: JSR PC ,.INITMM 

21420 136574 012701 172240 INITMM: MOV #172240,R1 ;BASE ADDRESS OF 

21421 136600 004737 136736 JSR PC, LOPARS 

21422 136604 012701 172260 MOV #172260,R1 ;BASE ADDRESS OF 

21423 136610 004737 136736 JSR . LOPARS 

21424 136614 012701 172340 MOV #172340,R1 ;BASE ADDRESS OF KIPARS 
21425 136620 004737 136736 JSR PC, LOPAR 

21426 136624 012701 172360 MOV #172360,R1 ;BASE ADDRESS OF KDPARS 
21427 136630 004737 136736 JSR Fis LOPARS 

21428 136634 012701 177640 MOV #177640,R1 ;BASE ADDRESS OF UIPARS 
21429 136640 004737 136736 JSR PC, LDOPARS 

21430 136644 012701 177660 MOV $177660,R1 ;BASE ADDRESS OF UDPARS 
21431 136650 004737 136736 JSR PC, LDPARS 

21432 136654 012701 177600 MOV #177600,R1 ;BASE ADDRESS OF UIPDRS 
21433 136660 004737 136766 JSR PC, LDPDR 

21434 136664 012701 177620 MOV #177620,R1 ;BASE ADDRESS OF UDPDRS 
21435 136670 004737 136766 JSR PC, LOPDRS 

21436 136674 012701 172300 MOV #172300, Ri ;BASE ADDRESS OF KIPDRS 
21437 136700 004737 136766 JSR PC, LOPDRS 

21438 136704 012701 172320 NOV #172320, Ri ;BASE ADDRESS OF KDPORS 
21439 136710 004737 136766 JSR PC, LOPDRS 

21440 136714 012701 172200 MOV #172200,R1 ;BASE ADDRESS OF SIPDRS 
21441 136720 004737 136766 JSR PC, LDPD 

21442 136724 012701 172220 MOV #172220,R1 ;BASE ADDRESS OF SDPDRS 
21443 136730 004737 136766 JSR PC, LOPDRS 

21444 136734 000207 RTS PC ;RETURN 
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GLOBAL SUBROUTINES SECTION SEQ 0427 


21446 ;+* 
21447 ; FUNCTIONAL DESCRIPTION: 

21448 $ SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS (PARS). 
21449 ; THIS ROUTINE WILL INITIALIZE 8 PARS STARTING AT A BASE ADDRESS 
21450 $ SUPPLIED BY THE CALLING ROUTINE. PARS 0-5 WILL BE MAPPED FROM 
21451 : ADDRESS 0 TO ADDRESS 137777 (0-24K). PAR 6 WILL BE MAPPED FROM 
21452 3 ADDRESS 200000 TO 217777 AND PAR 7 WILL BE MAPPED TO THE I/0 
21453 ; PAGE. 

21454 

21455 ; INPUTS: 

pipe ; Ri CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED 
21458 ; OUTPUTS: NONE 

21459 

pray ; SUBORDINATE ROUTINES USED: NONE 

per: ; FUNCTIONAL SIDE EFFECTS: NONE 

pee: ; CALLING SEQUENCE: JSR PC ,LDOPARS 

21466 136736 012702 000006 LDOPARS: MOV 06, me ;LET LOOP COUNTER apt FIRST 6 PARS 
21467 136742 005003 CLR R3 sINITIALIZE INDEX VALUE 

21468 136744 010321 1$: MOV R3, CR1)>+ ;LOAD PARS 

21469 136746 062703 000200 ADD #200, RS ; INDEX IN 4K INCREMENTS 

21470 136752 077204 $oB R2, i$ ;LOAD FIRST SIX PARS 

21471 136754 012721 002000 MOV #2000, (R1)+ ;LET PAR6 MAP TO 200000 

21472 136760 012711 177600 MOV #177600, (R1) ;LET PART MAP TO I/O PAGE 

21473 136764 000207 RTS PC ;RETURN 








-— 





rt KOJ11-8 CLUSTER 





DIAG. 


GLOBAL SUBROUTINES SECTION 


21496 136766 
21497 136772 
21498 136776 
21499 137000 
21500 137004 
21501 137010 


012702 
012721 
077203 
012721 
012711 
000207 


000006 
177406 


077406 
077406 
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SEQ 0428 

;ee 

s FUNCTIONAL DESCRIPTION: 

: SUBROUTINE TO INITIALIZE ALL THE MMU PAGE DECRIPTOR REGISTERS (PORS). 

: THIS ROUTINE WILL INITIALIZE 8 PDRS STARTING AT A BASE ADDRESS 

; SUPPLIED BY THE CALLING ROUTINE. PDORS 0-5 WILL BE INITIALIZED TO 

; 4K READ/WRITE BYPASS AND PDRS 6 AND 7 WILL BE INITIALIZED TO 

: 4K READ/WRITE NO BYPASS. "s 

; NOTE: THERE IS NO NEED TO BYPASS ON I/0 PAGE REFERENCES BECAUSE 

; THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES. 

; INPUTS: 

i Ri CONTAINS THE BASE ADDRESS OF THE NEXT 8 PDRS TO BE INITIALIZED 

; OUTPUTS: NONE 

; SUBORDINATE ROUTINES USED: NONE 

; FUNCTIONAL SIDE EFFECTS: NONE 

; CALLING SEQUENCE: JSR PC,LOPARS 

LOPORS: MOV 06, R2 sLET LOOP COUNTER COUNT FIRST 6 PARS. 

1$: MOV €177406,(R1)+ sLOAD PORS WITH 4K READ/WRITE BYPASS © 
SOB Re, i$ sLOAD FIRST SIX PDRS 
MOV $77406, (Ri)+ sLET PAR6 BE 4K READ/WRITE NO BYPASS 
MOV #77406, (R1) ;sLET PAR7 BE 4K READ/WRITE NO BYPASS ALSO 
RTS PC RETURN 
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SEQ 0429 
GLOBAL SUBROUTINES SECTION a 042 
21503 ;¢ 
21504 ; FUNCTIONAL DESCRIPTION: 
21505 ; SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS. 
21507 ; INPUTS: 
21508 MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE 
21510 ; OUTPUTS: NONE 
21511 
21512 ; SUBORDINATE ROUTINES USED: NONE 
21514 ; FUNCTIONAL SIDE EFFECTS: NONE 
21516 ; CALLING SEQUENCE: CALLED BY PARITY ABORT 
21517 MOV 86114, SLOCOO ;SAVE CONTENTS OF PARITY ABORT VECTOR 
21518 ; MOV @OSPAR, 8114  ;LET VECTOR POINT TO PARITY ABORT ROUTINE 
; 
21520 : (CACHE PARITY ERROR OCCURS) 
21522 137012 011637 001122 RAMPAR: MOV (SP), $8DADR ;STOR ADDESS TRAPPED 
21523 137016 032737 000100 177744 BIT @BIT06, MSER IF LOW BYTE PARITY ERROR 
21524 137024 001401 BEQ 1$ ; THEN 
21525 127026 104007 ERROR 7 ERROR 
21526 137030 032737 000200 177744 13: BIT @BIT07, MSER ;IF HIGH BYTE PARITY ERROR 
21527 137036 001401 BEQ 2$ ; THEN 
21528 137040 104007 ER °7 ERROR 
21529 137042 032737 000040 177744 2%: BIT @BITOS, MSER IF TAG PARITY ERROR 
21530 137050 001401 BEQ 3$ ; THEN 
21531 137052 104007 ERROR «7 ERROR 
21532 137054 005037 177744 33: CLR MSER ;INITIALIZE MSER AFTER ERROR 
21533 137060 000002 RTI sRETUR 
21534 137062 005237 002722 LKSINT: INC LKSFL SINCREMENT FLAG 
21535 137066 000002 RTI 
21536 
21537 .SBTTL Q22BE SIZE ROUTINE 
21538 ;THIS ROUTINE WILL AUTOSIZE FOR UP TO TWO Q22 BUS EXERCISERS. IF NONE 
21539 ;FOUND LOCATIONS CSR1 AND CSR12 WILL BE LEFT ZEROES. THIS ROUTINE WILL 
21540 ;ONLY RUN IN NOT UFD MODE. 
21542 137070 032737 001000 177750 @22SIZ: BIT #BIT09 ,MAIREG ;UNIBUS SYSTEM? 
21543 137076 001401 BEQ is IF NOT, ADVANCE TO ROUTINE 
21544 137100 000207 RTS PC ;OTHERWISE, RETURN 
: 
21546 ; PREPARE TO DO SIZING 
21548 137102 013701 000004 i$: MOV ERRVEC RL ;STORE TIMEOUT VECTOR 
21549 137106 012737 137262 000004 MOV 87$, ERRVEC ;POINT NEW TO PROGRAM 
21550 137114 012737 000340 000006 MOV #340, ,ERRVEC+2 ;AT PRIORITY 7 
21551 137122 005037 001160 CLR $TMPO ;CLEAR Q22BE COUNTER 
21552 137126 012702 170000 MOV #170000, R2 ;FIRST POSSIBLE ADDRESS 
21553 137132 012703 000510 MOV 0510,R3 VECTOR FOR IT 
21554 137136 04 BR 33 ;TRY THOSE VALUES 
21556 ; NOW DO ACTUAL SIZING 
‘ 
21558 137140 062702 000020 2$: ADD #20,R2 ;GET CSR FOR NEXT Q22BE 
21559 137144 062703 000004 ADD GET VECTOR FOR NEXT ONE 








COKDAEO KOJ11-8 CLUSTER DIAG. 
Q22BE SIZE ROUTINE 
21560 137150 005712 


137350 
137352 
137356 
137362 


005737 


005013 
052710 
011063 
042710 


170160 
002664 


137314 
000004 
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002702 


001160 


33; TST (R2) 
’ 
; IF NO TIMEOUT, STORE EXISTING ADDRESSES TO REGISTERS 
; ; 
TST $TMPO 
BNE 4$ 
MOV @CSR1,R5 
MOV R2,SIMGOA 
ADD #16,SIMGOA 
BR 5$ 
43: MOV @CSR12,R5 
5$: MOV 04 ,R4 
MOV R2,( RS) 
6$: MOV CR5),2CR5) 
TST CR5)+ 
ADD @2,(R5) 
SOB ° 
MOV R3,2(R5) 
MOV R3,4(R5) 
ADD #2,4(R5) 
INC $TMPO 
CMP 2, $TMPO 
BEQ 9$ 
BR 8$ 
; 
; ON TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE 
; 
7$: TST (SP)+ 
TST (SP)+ 
8$: CMP #170160,R2 
BNE es 
9$: TST CSR1i 
BEQ 103 
TYPE -ONODQ22 
10$: MOV R1, ERRVEC 
RTS 
ONOQ@22: .ASCIZ <12><15>/Q22BE USED DURING TESTING/ 


-EVEN 

-SBTTL Q22BE INTERRUPT INITIALISE ROUTINE 
sTHIS ROUTINE WILL INITIALISE Q22BE TO INTERRUPT AT A PRIORITY AT (RO)+ 
AT THE STARTING ADDRESS IN R3. THE TEST HAVE TO SET ACTUAL DONE BIT 


;BY CLEARING GO. 


Q22INT: CLR 


BIS 
MOV 
BIC 


(R3) 
#BITOO, CRO) 
CRO) ,2(€R3) 
#BITOO,CRO) 





SEQ 0430 


sTRY TO ACCESS CSR 


sFIRST Q22BE FOUND? 

sIF SECOND, BRANCH 

SSTART WITH CSRi FOR 1ST 
;SIMULTANEOQUS GO 

: ADDRESS 

;BRANCH TO INITIALISE 
;START WITH CSR1i2 FOR 2ND 
sINITIALISE 5 REGISTERS 
sINITIALISE CSRi 

sSTORE TO NEXT ONE 

;GET NEXT ADDRESS 

;GET ADDRESS, POINT NEXT 
;D0 FOR NEXT 4 REGISTERS 
sSTORE INTERRUPT VECTOR 
;AND PRIORITY 


;COUNT Q22BE’'S 

;TWO FOUND? 

:;IF SO, STOP SIZING 
;OTHERWISE, CONTINUE SIZING 


sRESTORE STACK FROM 
; TIMEOUT 


sAT THE LAST POSSIBLE? 
;IF NOT, BRANCH 


RESTORE TIMEOUT VECTOR 
;RETURN 


;CLEAR TRANSFER TYPE IN CSR1i 
;ZERO DONE 

sSET PRIORITY IN CSR2 
;PREPARE TO SET DONE 
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SEQ 0431 
Q22BE INTERRUPT INITIALISE ROUTINE 

= 137366 000207 RTS PC 
21610 -SBTTL DMATRN DATO CYCLE THRU Q22BE 
21611 ;THIS ROUTINE PERFORMS DATO FROM A LOCATION TEMP THRU THE FIRST 
21612 sFOUND Q22BE STARTING AT LOCATION @CSR1. RO HAS O IF ONLY 1 TRANSFER IS 
21613 ;TO BE PERFORMED. OTHERWISE 16 BLOCK MODE TRANSFERS ARE TO BE PERFORMED. 
Sate ;IN THE LATTER CASE ADDRESS AND WORD COUNT HAS TO BE LOADED BEFORE. 
21616 137370 012777 012525 043276 DMATRN: MOV #12525,8DATA ;DATA USED 
21617 137376 005700 TST RO 700 1 WORD? 
21618 137400 001404 BEQ i$ ;IF YES, BRANCH 
21619 137402 012777 001001 043256 MOV $B ITO9!BITOO,aCSR2 ;BLOCK MODE, GO 
21620 137410 000414 BR 2s ;BRANCH TO DO IT 
21621 137412 012777 001601 043244 i$: MOV #1601,8CSR1 sRESET LATENCY COUNT ,DATO 
21622 137420 012777 002740 043242 MOV TEMP, OBA ;LOAD DMA ADDRESS 
21623 137426 012777 177777 043236 MOV #177777, WC 300 1 WORD 
21624 137434 012777 000001 043224 MOV #BITOO,a8CSR2 300 IT 
21625 137442 105777 043220 2$: TSTB acsR2 ;DMA DONE? 
21626 137446 100375 BPL 2$ sWAIT TILL DONE 
oped 137450 000207 3$: RTS PC ;RETURN FROM SUBROUTINE 
21629 -SBTTL DMARD DATI THRU Q22BE 
21630 ;THIS ROUTINE PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A SINGLE 
tere: ; TRANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER 
21633 137452 012777 002740 043210 OMARD: MOV eTEMP, OBA ;LOAD OMA ADDRESS 
21634 137460 005700 TST RO ;D0 1 WORD? 
21635 137462 001412 BEQ i$ ;IF YES, BRANCH 
21636 137464 012777 001507 043172 MOV #1507, 38CSR1 716 DATIB 
21637 137472 012777 177770 043172 MOV #177770, OWC 300 8 WORD 
21638 137500 012777 001001 043160 MOV #BITO9!BITOO,aCSR2 ;BLOCK MODE GO 
21639 137506 000411 BR 2$ ;GO CHECK 
21640 137510 012777 001407 043146 i$: MOV #1407, 8CSR1 ;RESET LATENCY COUNT ,DATI 
21641 ;LOAD NEW DATA TO DATA R. 
21642 137516 012777 177777 043146 MOV #177777, AWC ;D0 1 WORD 
21643 137524 012777 000001 043134 MOV #BITOO ,aCSRe 300 IT 
21644 137532 105777 043130 2$: TSTB acsRe , ;DMA DONE? 
21645 137536 100375 BPL 2$ ;WAIT TILL DONE 
nee: 137540 000207 3$: RTS PC ;RETURN FROM SUBROUTINE 
21648 
21649 
21650 137542 011637 001122 TOUT: MOV (SP), $BDADR :STORE TRAPPED PC 
21651 137546 104130 ERROR +130 ;UNEXPECTED TRAP 
21652 137550 000002 RTI 
21653 
21655 : 
21656 ;MMU GLOBAL SUBROUTINES 
21657 : 
21658 : 
oate sROUTINE TO INITIALIZE MEMORY MANAGEMENT 

$ 
21661 137552 010046 MMU: MOV RO,-(CSP) ;SAVE CONTENTS OF REGISTERS 
21662 137554 010146 MOV Ri, -CSP) $ 
21663 137556 010246 MOV R2,-(CSP) $ 
21664 137560 012700 177600 MOV #177600,RO0 : 
21665 137564 004737 137652 JSR PC ,.POR ;INIT I AND D USER PDR'‘S 
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OMARD DATI THRU Q22BE 


137672 


137674 


137716 


137720 
137722 


137724 
137732 
137734 
137736 
137740 
137744 
137750 


00 
013737 


137674 
137674 


000200 
001600 


177600 


003030 


177776 
177764 
000002 


177776 


000004 NOTOK: 
177572 003042 OK1: 
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172516 


000001 








JSR PC PAR 
MOV #27,80172516 
MOV CSP)+,R1 
MOV (SP)+,RO 
RTS PC 
‘ 
sROUTINE TO INITIALIZE POR'S 
7 
POR: CLR R2 
PORi: MOV #77406 ,,CRO)+ 
ADD #1,R2 
CMP #16. R2 
BNE PDR1i 
RTS PC 
; 
sROUTINE TO INITIALIZE PAR‘S 
A 
PAR: CLR Ri 
PARi: MOV R1,CRO)+ 
ADD #200 ,R1 
CMP #1600,R1 
BNE PAR1 
MOV #177600, (RO)+ 
RTS PC 


TIME OUT ROUTINE 
ADDTRP : INC RS 

RTI 
MMU TRAP ROUTINE 
MMUTRP : CMP es 


BEQ 
ERROR +2 
1$: MOV RO, -CSP) 
MOV 8177776 ,RO0 
ASH #-14,R0 
CMP RO, #2 
BNE 
BR NOTOK 
OK MOV 8¢177776,R0 
ASH #2 ,RO 
ASH #-14,RO0 
CMP RO, #2 
BNE OK1 
CLR 4(SP) 
MOV 94177572 ,SAVMRO 





SEQ 0432 


MMR3 
sRESTORE REGISTERS 
; 


: 
;RETURN 


;INIT CNTR 

: INIT POR 

; INCREMENT CNTR 
;ARE WE DONE? 
;BRANCH IF NOT 
sRETURN 


;SETUP TO INIT PAR 
:INIT PAR 

;GET READY FOR NEXT PAR 
sREACHED A PAR7 

;BRANCH IF NOT 

;INIT PAR7 

;RETURN 


sINCREMENT TIME OUT FLAG 
sRETURN 


sARE WE EXPECTING AN ABORT 
GO ON 


ROR 
;SAVE CONTENTS OF REG O 
;SAVE A COPY OF PSW 
;LOOK AT BITS<15:14> 
sWAS PS<15:14>=10 
:NO GO ON 
;YES CHANGE BITS TO 00 
;SAVE A COPY OF PSW 
;LOOK AT BITS<13:12> 


: 

sWAS PS<13:12>=10 
;NO GO ON 

;CLEAR ILLEGAL MODE FFROM OLD PSW 
;SAVE A COPY OF MMRO 
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21723 140014 


21728 140042 


—— 


013737 
013737 


177574 
177576 


177572 
003030 
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003044 
003046 


80177574 ,SAVMRi 
96177576 ,SAVMR2 
80177572 


FLAG 
(SP)+,RO 





SEQ 0433 


sSAVE A COPY OF MMR1 

sSAVE A COPY OF MMR2 

;CLEAR ABORT ie AND TURN MMU OFF 
;CLEAR MMU ABORT FLAG 

sRESTORE ORIGINAL CONTENTS OF REG 0 


;RETURN 








COKDAEO KDJ11-B CLUSTER DIAG. 
DMARD DATI THRU Q22BE 


140044 
140046 
140050 
140052 


140054 
140056 
140060 


010446 
010146 
012737 
000137 


010446 
019146 
012737 
005337 
001402 
022421 
001773 
012601 
012604 
000207 


000003 
140112 


000005 
003120 
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003120 


003120 


SEQ 0434 

;FPP COMMON SUBROUTINES 
WLOTRP: MOV (SP)+. RO ;SAVE PC 

HOV (SP)+,R5 :SAVE STATUS AND RESTORE STACK 

JMP (RO) ;GO BACK INLINE 
; 
; 
TRPFLG: .WORD 0 
ERRFP: RTS R7 
ERR: ARTS R7 


SUBROUTINE DATA VERFICATION - 


; CALLED BY JSR R7,DATVER 
2 

; INPUT: (R4)=EXPECTED DATA 
; (R1i)=RECEIVED DATA 


‘ 
sTHIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE 
eee ss FOUR WORDS ADDRESSED BY (Ri). THE CONTENTS OF R4, AND Ri ARE NOT 
;DISTURBED. 

sLOCATION “COUNT” , IF NOT EQUAL TO 0 SIGNIFIES DATA ERROR 

;IF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED 

sARE SIMPLY CHECKED FOR ZEROS 

; 


DATVFR: MOV R4,-CSP) :SAVE R4 
MOV R1,-CSP) ;SAVE Ri 
MOV #3 , COUNT ;SET UP ITERATION COUNT 
JMP DAT1 ; 
; 
DATVER: MOV R4,-CSP) ;SAVE R4 
MOV R1,-(SP) ;SAVE Ri 
MOV #5 , COUNT :SFT UP ITERATION COUNT 
DAT1: DEC COUNT 
BEQ 2$ ;BRANCH IF DONE 
CMP CR4)+,CR1i)+ ; 
BEQ DATL 
23: MOV CSP)+,R1 sRESTORE Ri 
MOV (SP)+,R4 sRESTORE R4 
RTS R7 ;GO BACK TO CALLING ROUTINE 


:IF DATA ERROR, COUNT NE 0 
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21817 
21818 


-— 


140172 
140174 


140265 


032737 
001007 
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000400 177750 


000400 177750 


140174 
140257 





SEQ 0435 


SUBROUTINE - DETERMINE FLOATING POINT ACCELERATOR (DETFPA) 


THIS SUBROUTINE IS CALLED IF AN ERROR IS DETECTED DURING EXECUTION OF THE 
FLOATING POINT TESTS. 

IT DETERMINES WHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP OPTION 

IS PRESENT ON THE CPU BOARD AND PRINTS THE APPROPRIATE ERROR MESSAGE. 

THIS DETERMINATION IS MADE BASED ON THE “FPA AVAILABLE” FLAG, BIT 8 

OF THE MAINTENANCE REGISTER AT LOCATION 17777750. IF THE FPA BIT IS SET 
THEN THE FLOATING POINT ACCELERATOR CHIP IS INSTALLED ON THE CPU BOARD AND 
AN ERROR MESSAGE IS PRINTED WHICH STATES THAT THE FLOATING POINT ERROR IS 
DUE TO THIS CHIP. OTHERWISE, THE Jii IS BLAMED FOR THE FLOATING POINT ERROR. 


$$$ 
CALLED BY: CALL QODETFPA ;$$$ 
INPUTS: NONE $$$ 
OUTPUTS: ERROR MESSAGES $$$ 
DETFPA: BIT #400,@0MAIREG ;IS THE FPA HERE? $$$ 
BNE FPAOPT ;YES, BRANCH FPAOPT $$$ 
NOP ;DEBUG AID. $$$ 
BIT #400,9@MAIREG ;IF NOT, $$$ 
BEQ NOFPA ;BRANCH TO NOFPA $$$ 
NOP ;DEBUG AID. $$$ 
HALT ; $$$ 
; 
FPAOPT: TYPE  ,.FPAFLT ; $$$ 
BR EXTFPA ; $$$ 
NOFPA: TYPE ,JLIFLT ; $$$ 
EXTFPA: RTS PC ; $$$ 
FPAFLT: .ASCIZ /ERROR DETECTED IN FLOATING POINT ACCELERATOR CHIP./ ; $$$ 


; 
JIIFLT: .ASCIZ /ERROR DETECTED IN J1i FLOATING POINT PROCESSOR./ ; $$$ 
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DMARD DATI THRU Q22BE 


21819 
21820 


140270 
140273 
140276 
140301 
140304 
140307 
140312 
140315 
140320 
140323 
140326 
140331 
140334 
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.EVEN ; $$$ 





SEQ 0436 
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DMARD DATI THRU Q22BE 


21826 


= 


140474 
140474 104407 


000100 


140457 
001206 


140454 
000042 
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-SBTTL END OF PASS ROUTINE 

jE RRRREREESAERASRERAAEEEEAEREAEAEEEEEAREEEEE EEE AE EERE EE EERE EERE 
;*INCREMENT THE PASS NUMBER ($PASS) 

;*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

s#TYPE “END PASS #XXXXX" CWHERE XXXXX IS A DECIMAL NUMBER) 

;*#IF THERES A MONITOR GO TO IT 

te THERE ISN'T JUMP TO LOOP 


000052 BIT #BIT06,ae52 
BNE $GET42 
at r5,vireop 
LR $TSTNM ;;ZERO THE TEST NUMBER 
CLR $TIMES ;;ZERO THE NUMBER OF ITERATIONS 
INC $PASS ;; INCREMENT THE PASS NUMBER 
001206 BIC #100000, $PASS ;;DON’T ALLOW A NEG. NUMBER 
DEC CPC)+ ;;LOOP? 
SEOPCT: .WORD 
BGT $DOAGN 73 YES 
, MOV (PC)+,@CPC)+ ;:RESTORE COUNTER 
$SENDCT: .WORD i 
SEOPCT 
TYPE » SENDMG ;sTYPE “END PASS @” 
MOV $PASS,-CSP) ;;SAVE $PASS FOR TYPEOUT 
TYPDS 33GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE » SENULL 3; TYPE A NULL CHARACTER 
$GET42: MOV 8442 ,RO ;;GET MONITOR ADDRESS 
BEQ $DOAGN ; ;BRANCH IF NO MONITOR 
RESET ;:;CLEAR THE WORLD 
$ENDAD: JSR PC ,CRO) ::G0 TO MONITOR 
NOP ;:SAVE ROOM 
NOP 3:FOR 
NOP ;3;ACTil 
$DOAGN 
OC PC )+ ; ;sRETURN 
$RTNAD: .WORD LOOP 
000 $ENULL: .BYTE -1,-1,90 — CHARACTER STRING 
105 $sENDMG: .ASCIZ <15><12>/END PASS @ 
040 
123 
043 


-SBTTL SCOPE HANDLER ROUTINE 

5 RCREREEEREERES SESS OE EEAOEE OSES EEEE ES OS OS 040400 0400000040440 40084 
;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;#AND LOAD THE TEST NUMBERC($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*#SW1i4=1 LOOP ON TEST 
;*SWil=1 INHIBIT ITERATIONS 
;*#SWO9=1 LOOP ON ER 
;*SWO8=1 LOOP ON TEST IN SWR<5:0> 
;*CALL 
;* SCOPE ;;SCOPE=IOT 
$SCOPE : 
CKSWR ;:1EST FOR CHANGE IN SOFT-SWR 


SEQ 0437 


ee 


ams es -—= 








COKDAEO KDJ11-B8 CLUSTER DIAC. 
SCOPE HANOLER ROUTINE 


21827 


052737 
032777 
001117 


000416 


013746 
012737 
005737 
012637 
000466 
022626 
012637 
000426 


032777 


001000 
040000 
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177520 
040426 


000004 


540360 


001103 
040314 
001106 


040262 


001104 


001104 
001164 


001204 


001115 
040162 


177520 


SEQ 0438 


BIS #1000,8CSR ;ENABLE 
1$: BIT $B8IT14,8SWR ;;LOOP ON PRESENT TEST? 
BNE sOVER 3;YES IF SwWi4-1 
;@SGGOSTART OF CODE FOR THE XOR TESTEROOGOS 
$XTSTR: BR 6$ 3;IF RUNNING ON THE “XOR” TESTER CHANGE 
;;THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV @GERRVEC,-C(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV #5$, B@ERRVEC ;:;SET FOR TIMEOUT 
TST 8¢177060 3; TIME OUT ON XOR? 
MOV (SP)+,@@ERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVL ;:GO TO THE NEXT TEST 
5$: CMP (SP)+,CSP)+ ;;CLEAR THE STACK AFTER A TIME OUT 
MOV oor 40 SE ;;RESTORE THE ERROR VECTOR 
BR 7$ ;;LOOP ON THE PRESENT TEST 
6$:;@@@@8END OF CODE FOR THE XOR TESTER@@GGe 
BIT @BITO8 ,ASWR ;;LOOP ON SPEC. TEST? 
BEQ 2s ;;8R IF NO 
MOV OSWR , - CSP) 3;SET DESIRED TEST NUM. FROM SWR 
BIC $SWRMK, (SP) 3:STRIP AWAY UNDESIRED BITS 
CMPB CSP)+, $TSTNM ;30N THE RIGHT TEST? 
BEQ sOVER :3;BR IF YES 
2s: TSTB SERFLS ;:HAS AN ERROR OCCURRED? 
BEQ 3$ 7:BR IF 
$ERMAX,$ERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ 3;6R IF 
BIT #BITO9,3SWR 3;LO0P ON ERROR? 
BEQ 4$ ;;B8R IF NO 
7$: = — ;;SET LCOP ADDRESS TO LAST SCOPE 
;? 
4$: CLRB SERFLG ;;ZERO THE ERROR FLAG 
CLR $TIMES ;s;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR i$ ;sESCAPE TO THE NEXT TEST 
3$: BIT #B1IT11,9SWR ;; INHIBIT ITERATIONS? 
BNE is ;;8R IF YES 
TST $PASS read FIRST PASS OF PROGRAM 
BEQ is INHIBIT ITERATIONS 
INC $ICNT S INCREMENT ITERATION COUNT 
CMP $STIMES, $ICNT ;;CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER ;:3BR IF MORE ITERATION REQUIRED 
i$: MOV #1,$ICNT ;sREINITIALIZE THE ITERATION COUNTER 
MOV $MXCNT,$TIMES ;;SET NUMBER OF ITERATIONS TO DO 
$SVLAO: INCB $TSTNM ;:;COUNT TEST NUMBER 
MOVB sTSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
MOV (SP), $LPADR ::SAVE SCOPE LOOP ADDRESS 
MOV (SP), $LPERR ;:SAVE ERROR LOOP ADDRESS 
CLR SESCAPE ;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1, SERMAX ;;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
$OVER: MOV $TSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 
MOV $LPADR CSP) ;sFUDGE RETURN ADORESS 
3 #1000,8CSR ;DISABLE 
$MXCNT: 1 ;;MAX. NUMBER OF ITERATIONS 


. SBTTL 


ERROR HANOLER ROUTINE 


ELI C reir rr rri rir rir rir irri iti it iititititiiitit titi i Ttty 
s#THIS ROUTINE WILL INCREMENT THE ERROR FIAG AND THE ERROR COUNT, 
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO ERTYPE ON ERROR 











COKDAEO KDJ11-B CLUSTER DIAG. 
ERROR HANDLER ROUTINE 


-— 


140776 


141216 


141220 
141224 
141226 


013716 


022737 
001001 
000000 


001114 
141376 


037770 


001000 


001110 
0011€5 


001166 
140440 


004116 
000032 
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177520 


040104 
040074 


001116 
001114 
040034 


001220 
141140 


037754 


000042 





SEQ 0439 


;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
HALT ON ERROR 


;*#SW1i5-1 L . 
;*#SW13-1 INHIBIT ERROR TYPEOUTS 
;*#SW10=1 BELL ON ERROR 
;*#SWO09=1 LOOP ON ERROR 
;*CALL 
eon ERROR +N ;;ERKOR=EMT AND N=ERROR ITEM NUMBER 
$ : 
TST UQUIET ;;TEST FOR USER-QUIET MODE 
BEQ 9$ ;;BRANCH IF FIELD-SERVICE MCDE 
CLR RO 33IN CASE RO HAS A @3 IN IT (tC) 
‘ JSR PC ,ABORT ;;TEST FOR ABORT CONDITION 
$: 
CKSWR 3;TEST FOR CHANGE IN SOFT-SWR 
BIS #1000,BCSR ;ENABLE HALT ON BREAK 
7$: INCB SERFLG ;;SET THE ERROR FLAG 
BEQ 7$ ;;DON’'T LET THE FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY ;;DiSPLAY TEST NUMBER AND ERROR FLAG 
BIT #681IT10,.8 ;:;BELL CN ERROR? 
BEQ 1$ 33NO - SKIP 
TYPE » $BELL ;;RING BELL 
i$: INC SERTTL ;;COUNT THE NUMBER OF ERRORS 
MOV CSP), $ERRPC ;;GET ADDRESS OF ERROR INSTRUCTION 
SUB #2, $ERRPC 
MOVB SSERRPC, SITEMB 3;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #61713 ,9SWR 3;SKIP TYPEOUT IF SET 
BNE 20$ :;SKIP TYPEOUTS 
JSR PC .ERTYPE ::GO TO USER ERROR ROUTINE 
p TYPE » $CRLF 
$: 
CMPB @APTENV, SENV ; RUNNING IN APT MODE 
BNE es 33NO,SKIP APT ERROR REPORT 
MOVB Ser ie 3;SET ITEM NUMBER AS ERROR NUMBER 
JSR aoe ;sREPORT FATAL ERROR TO APT 
21%: -BYTE 
BYTE 4 
22%: BR 22$ 3;APT ERROR LOOP 
2s: TST SSWR ; HALT ON ERROR 
. BPL 3$ ;:SKIP IF CONTINUE 
HALT ;:HALT ON ERROR! 
CKSWR :sTEST FOR CHANGE IN SOFT-SWR 
3$: BIT SB ITOS,8SWR ;;LOO0P ON ERROR SWITCH SET? 
BEQ as ;3;68R IF NO 
MOV $LPERR ,C SP) ;3FUDGE RETURN FOR LOOPING 
4$: TST APE ;;CHECK FOR AN ESCAPE ADDRESS 
BEQ 5$ ;:;BR IF NONE 
. MOV SESCAPE, (CSP) ; SFUDGE RETURN ADDRESS FOR ESCAPE 
$: 
CMP 6SENDAD , 8642 ;;ACT-11 AUTO-ACCEPT? 
BNE 6$ ;;BRANCH IF NO 
HALT 73; YES 
6%: 
; sRETURN 
.SBTTL Ago ROUTINE FOR LCP/ORION UFD MODE 
ABORT: TST UF DOFLG ;TEST FOR USEF FRIENDLY MODE 


;IF NOT UFD THEN CONTINUE NORMAL OPERATION 
;IS IT A tZ ? 


NOABRT 
RO, #32 


BEQ 
CMP 








COKDAEO KODJ11-8 CLUSTER DIAG. 
ABORT ROUTINE FOR LCP/ORION UFD MODE 


21828 


—— 


141232 
141234 


112737 
112737 


000403 
112737 


000003 


000001 
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000030 
000032 


177777 


000030 
000032 


000042 


141624 
141622 


141624 


001220 
001221 


000004 


001200 


141534 
000004 


ABORTC: 


i$: 


ABORTE: 


ABORTZ: 


NOABRT : 


RTS 


1 

4! Te -1CRO) 
@' +. CRO)+ 
@'C,CRO)+ 
CR 


SAV32, 32 
+42 
#-1,42(RO) 
8442 .RO 


8042 
> tae 
-SBTTL APT COMMUNICATIONS ROUTINE 


sJUST GO BACK TO CHAIN IF IT IS (NO ERROR) 
sIS IS A tC 7? 

;BR TO LOAD tC ON XXDP+ STACK (NO ERROR) 
sTEST FOR USER-QUIET MODE 

;IF FIELD-SERVICE MODE, CONT 





SEQ 0440 


INUVE NORMAL OPERATION 


; BECAUSE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR 


;SET ORSERR THEN LEAVE 

sRESTORE EMT LOCATION (30) 

sRESTORE EMT PRIORITY LOCATION (32) 

sGET XXDP STACK LOC. INTO RO FROM MONITOR 
sFIND END OF STACK 


sLOAD SLASH OVER ZERO 
UPARROW 


sMAKE NEW END TO STACK 

sNOW LEAVE 

sRESTORE EMT LOCATION (30) 

sRESTORE EMT PRIORITY LOCATION (32) 

sGE; DCA LOCATION INTO RO FROM MONITOR 
sSET A -1 INTO LOCATION DRSERR IN MONITOR 
sAND PUT THE MONITOR RETURN ADDRESS IN RO 
sCLEAR MONITOR RETURN FLAG 

sRETURN TO MONITOR-DO NOT PUSH STACK HERE 
sIF NOTUFD RETURN TO MAINLINE 


$5 8894406446466 6466648046466 646666664 6060646460646066466 046 666460464064660606464468 


$ATY1: 
SATY3: 


SATY4: 
sATYC: 


i$: 


23: 


3$: 


4$: 


MOVB 
MOVE 
BR 

MOVB 


#1,$FFLG 


61,$FFLG 

RO, -CSP) 
R1,-CSP) 

$MFLG 

5$ 

oe 
oe 
@4(SP),RO 

#2 ,4(SP) 
$MSGTYPE 


i$ 
RO, $MSGAD 
CRO)+ 


2s 
$MSGAD .RO 
RO 


RO, $MSGLGT 
_—- 





3310 REPORT FATAL ERROR 
3310 TYPE A MESSAGE 


3sTO ONLY REPORT FATAL ERROR 


33;PUSH RO ON STACK 
;3;PUSH Ri ON STACK 


:sSHOULD SPOOL MESSAGES? 
3:IF NOT: 6R 
3;GET MESSAGE ADDR. 

7 ;BUMP RETURN ADDR. 
3;SEE IF DONE W/ LAST XMISSION? 
33IF NOT: WAIT 
;;PUT ADDR IN MAILBOX 
3;FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

3sGET MESSAGE LNGTH IN WORDS 
;sPUT LENGTH IN MAILBOX 
:;TELL APT TO TAKE MSG. 


33PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 

;;PUSH 177776 ON STACK 

;:;CALL TYPE MACRO 








COKDAEO KOJ11-B CLUSTER DIAG. 
APT COMMUNICATIONS ROUTINE 


21829 


141624 


141712 
141714 


105737 


141624 
001220 
001200 
000004 
000002 
001200 
141624 


141623 
141622 


001157 


000002 
000001 


000100 


141676 
141366 


000040 
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001202 
000004 


001220 
001221 


001221 


5$: 
10$: TSTB 
BEQ 
TST 
BEQ 
11%: TST 
BNE 
MOV 
ADD 
INC 
12$: CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
SMFLG: .BYTE 
$LFLG: BYTE 
$FFLG: .BYTE 
-EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL =100 
AP TCSUP=040 


$SFFLG 


i2$ 

SMSGTYPE 

ii$ 

84(SP), $FATAL 


@2,4(SP) 
SMSGTYPE 


-SBTTL TYPE ROUTINE 
j 5 $060 60640446 54606606000000006 06 64 O64 0406000604 400000480EEE HE REEEE 
s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


;*NOTE1: 

:*NOTE2: 

;*NOTES: 

;* 

;*CALL: 

3% 

;*#OR 

3% TYPE 

ia ME SADR 

3% 

$TYPE: TSTB 
BPL 
HALT 
BR 

1$: MOV 
MOV 
CMPB 
BNE 
BITB 
BEQ 
MOV 
JSR 

61%: WORD 

62$: BITB 
BNE 

2$: MOVB 
BNE 
TST 


$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
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3s SHOULD —" FATAL ERROR? 


s3:IF NOT: 8 

ssRUNNING UNDER APT? 
33IF NOT: OBR 

ssFINISHED LAST MESSAGE? 
ssIF NOT: WAIT 

33GET ERROR @ 


+;BUMP RETURN ADDR. 
3sTELL APT TO TAKE ERROR 
;;CLEAR FATAL FLAG 
;;CLEAR LOG FLAG 
;;CLEAR MESSAGE FLAG 
;sPOP STACK INTO Ri 
3sPOP STACK INTO RO 
; sRETURN 
;:MESSG. FLAG 
3;LOG FLAG 
3:;FATAL FLAG 


SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


#1) USING A TRAP INSTRUCTION 
TYPE »-MESADR 


$TPFLG 
i$ 


3$ 

RO,-C(SP) 
82¢(SP),RO 
@APTENV, SENV 
62$ 


@APTSPOOL , $ENVM 
62$ 


RO,61$ 
~ nati 


@APTCSUP , $ENVM 
60$ 


CRO)+,-CSP) 
43 
C(SP)-+ 


+sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3:I1S THERE A TERMINAL? 
;;BR IF YES 

:;HALT HERE IF NO TERMINAL 

; ;sLEAVE 

;;SAVE RO 

;;GET ADDRESS OF ASCIZ STRING 

;;RUNNING IN APT MODE 

;:NO.GO CHECK FOR APT CONSOLE 

;;SPOOL MESSAGE TO APT 

::;NO,GO CHECK FOR CONSOLE 

3;SETUP MESSAGE ADDRESS FOR APT 

:;SPOOL MESSAGE TO APT 

;;MESSAGE ADDRESS 

3:APT CONSOLE SUPPRESSED 

3;YES,SKIP TYPE OUT 

;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 

;;IF TERMINATOR POP IT OFF THE STACK 





SEQ 0441 








. nnn eee SS SS ae 
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SEQ 0442 
TYPE ROUTINE 
141716 012600 60$: MOV (SP)+,RO ;;RESTORE RO 
141720 062716 000002 33: ADD @2,(SP) +;ADJUST RETURN PC 
141724 000002 RTI ; sRETURN 
141726 122716 000011 4$: CMPB @HT, (CSP) ;sBRANCH IF <HT> 
141732 001430 BEQ 8$ 
141734 122716 000200 CMPB @CRLF, (CSP) ;;BRANCH IF NOT <CRLF> 
141740 001006 BNE S$ 
141742 005726 TST (SP)+ 3:POP <CR><LF> EQUIV 
141744 104401 TYPE ;;TYPE A CR AND LF 
141746 001175 $CRLF 
141750 105037 142156 CLRB $CHARCNT ;;CLEAR CHARACTER COUNT 
141754 000755 BR 2s ;;GET NEXT CHARACTER 
141756 004737 142040 S$: JSR PC, $TYPEC ;:;GO TYPE THIS CHARACTER 
141752 123726 9001156 6$: CMPB $FILLC,CSP)- 33IS IT TIME FOR FILLER CHARS. ? 
141766 001350 BNE es 33IF NO GO GET NEXT CHAR. 
141770 013746 001154 MOV $NULL, -( SP) ;;GET @ OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 
141774 105366 000001 7$: DECB il ;;D0ES A NULL NEED TO BE TYPED? 
142000 002770 BLT ;;BR IF NO--GO POP THE NULL OFF OF STACK 
142002 004737 142040 JSR +a $TYPEC 33GO TYPE A NULL 
142006 105337 142156 DECB $CHARCNT ;;00 NOT COUNT AS A COUNT 
142012 000770 BR 7$ ;;LO0P 
sHORIZONTAL TAB PROCESSOR 
142014 112716 000040 8$: MOVB @ CSP) 1 ae TAB WITH SPACE 
142020 004737 142040 9$: JSR PC, $TYPEC :3;TYPE A SPACE 
142024 132737 000007 142156 BITB $7, $CHARCNT ;;BRANCH IF NOT AT 
142032 001372 BNE a B :;TAB STOP 
142034 005726 TST CSP)+ 3;POP SPACE OFF STACK 
142036 000724 BR 2$ ;;GET NEXT CHARACTER 
142040 $TYPEC: 
142040 105777 037100 TST8 asTKS ;;CHAR IN KYBD BUFFER? >MJDO01 
142044 100022 BPL 10$ ;;68R IF NOT ;MJDOO1 
142046 017746 037074 MOV @$TKB, -CSP) 3;GET CHAR ;MJDOO1L 
142052 042716 177600 BIC #177600, (SP) 7:STRIP EXTRANEOUS BITS >MJDOO1 
142056 122716 000023 CMPB @$XOFF CSP) :;WAS CHAR XOFF ;MJDOO1 
142062 001012 BNE 102$ 7:;BR IF NOT sMJDOO1L 
142064 101$: ;MJDOOL 
142064 105777 037054 TSTB SsTKS ;;WAIT FOR CHAR ;MJDOO1L 
142070 100375 BPL 101$ sMJDOOL 
142072 117716 037050 MOVB a$TKB, (SP) ;;GET CHAR sMJDOO1L 
142076 042716 177600 BIC #177600, (SP) :;STRIP IT sMJDOOL 
142102 122716 000021 CMPB @$XO0N, (SP) ;;WAS IT XON? >MJDOO1 
142106 001366 BNE 101$ :;8R IF NOT sMJDOO1 
142110 102$: >MJD001 
142110 005726 TST CSP)- 33FIX STACK >MJD001 
142112 10$: ) ;MJDOO1 
142112 105777 037932 TSTB @sTPS ;;WAIT UNTIL PRINTER IS READY 
142116 100375 BPL 10$ ;MJDOO1 
142120 116677 000002 037024 MOVB 2(SP),asTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
142126 122766 000015 000002 CMPB €CR,2(SP) 3:IS CHARACTER A CARRIAGE RETURN? 
142134 001003 BNE i$ ;;BRANCH IF NO 
142136 105037 142156 CLRB $CHARCNT 33; YES--CLEAR CHARACTER COUNT 
142142 000406 BR $TYPEX ;;EXIT 
142144 122766 9000012 000002 i153: CMPB @LF ,2CSP) 33;1S CHARACTER A LINE FEED? 
142152 001402 BEQ $TYPEX ;;BRANCH IF YES 
142154 105227 INCB (PC)+ ;;COUNT THE CHARACTER 
142156 $CHARCNT: .WORD 0 ;;CHARACTER COUNT STORAGE 














COKDAEO KOJ11-8 CLUSTER DIAG. 


TYPE ROUTINE 


142160 000207 


21830 


—— 


142407 
000006 
142406 


142405 
000012 


142406 
177770 


000060 
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142405 


142405 
142407 
142404 


STYPEX: 


.SBTTL 


;*CALL: 


RTS 


PC 


SEQ 0443 


BINARY TO OCTAL (ASCII) AND TYPE 

5 5 0006000000606 0066 000600600004 0000000640440040004000000080080808 

s#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*#OCTAL CASCII) NUMBER AND TYPE IT. 

;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


MOV 


NUM, -CSP) 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOQUT 
:3N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3:M=1 OR O 
331= TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


;#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;*#$TYPOS OR $TYPOC 


;*CALL: 
,* 
7% 


MOV 


TYPON 


NUM, -C SP) 


;sNUMBER TO BE TYPED 
3;CALL FOR TYPEOUT 


3% 
3*#$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


3*#CALL: 


$TYPOC: 
$TYPON: 


i$: 
2s: 


3$: 


4$: 


NUM, -(SP) 
@( SP), -CSP) 


R 
_ 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 
:sPICKUP THE MODE 

;3LOAD ZERO FILL SWITCH 
;sNUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


33SET THE ZERO FILL SWITCH 
3sSET FOR SIX(6) DIGITS 
33SET THE ITERATION COUNT 


;;SAVE RS 
3;GET THE NUMBER OF DIGITS TO TYPE 


;; SUBTRACT IT FOR MAX. ALLOWED 
;;SAVE IT FOR USE 

3;GET THE ZERO FILL SWITCH 
;;PICKUP THE INPUT NUMBER 
;;CLEAR THE OUTPUT WORD 
;;ROTATE MSB INTO “C* 

;:GO DO MSB 

33FORM THIS DIGIT 


3sGET LSB OF THIS DIGIT 
;sTYPE THIS DIGIT? 


;;SUPPRESS THIS 0? 
3:;BR IF YES 

;:DON‘'T SUPPRESS ANYMORE 0'S 
;:;MAKE THIS DIGIT ASCII 








COKDAEO KDJ11-B CLUSTER DIAG. 
BINARY TO OCTAL CASCII) AND TYPE 


21831 


142410 
142410 


000040 
142402 


142402 
142404 


000002 


020200 
000020 
000055 


142624 
000040 


142614 


000001 177777 
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000004 


000001 


5$: 


7$: 


6$: 


SOMODE : 


.SBTTL CONVERT BINARY TO DECIMA 


C 
2(SP),4(SP) 


;sMAKE ASCII IF NOT ALREADY 
;;SAVE FOR TYPING 

3;GO TYPE THIS DIGIT 

;:COUNT BY 1 

;:BR IF MORE TO DO 

3;8R IF DONE 

+sINSURE LAST DIGIT ISN’T A BLANK 
3:;GO0 DO THE LAST DIGIT 

;;REST RS 

;sRESTORE R4 

;sRESTORE R3 

3;SET THE STACK FOR RETURNING 


; sRETURN 

;;STORAGE FOR ASCII DIGIT 

33 TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 

3sZERO FILL SWITCH 

;sNUMBER OF ropes Me TO TYPE 


L AND TYPE ROUTI 


PEC TIT iri rrr itt ti tit TTT TTT TT TT TT TTT TTT TTT TTT TTT TTT TT TTT TTT TT 
;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
;*SIGNED DECIMAL CASCII} NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


:*CALL: 
;* 


3% 
$TYPDS: 


3$: 


4$: 


5$: 


NUM, -(SP) 


RS. -CSP) 
#20200 , -(SP) 
io 


RS 
$' -,1CSP) 
RO 


$$DBLK ,R3 
#’ ,CR3)+ 


R2 
$SDOTBLCRO),R1 
R1,R5 


48 

R2 

3$ 
R1,R5 
Re 

5$ 
(SP) 
7$ 
(SP) 
6$ 
1(SP), -1CR3) 


;sPUT THE BINARY NUMBER ON THE STACK 
33GO0 TO THE ROUTINE 


;;PUSH RO ON STACK 

7;PUSH Ri ON STACK 

;;PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

;;PUSH RS ON STACK 

7;SET BLANK SWITCH AND SIGN 
;:GET THE INPUT NUMBER 

:;BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS. 
;;MAKE THE ASCII NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 
;sSETUP THE OUTPUT POINTER 
:3;SET THE FIRST a TO A BLANK 


::FORM THIS BCD DIGIT 
;;BR IF DONE 
;; INCREASE THE BCD DIGIT BY 1 


3;ADD BACK THE CONSTANT 
;;CHECK IF BCD DIGIT=0 
;:FALL THROUGH IF 0 
:;STILL DOING LEADING 0'S? 
;3;BR IF YES 


IF NO 
3; YES--SET THE SIGN 


Fn settmmameniedtiieniinnn 





SEQ 0444 





COKDAEO KDJ11-B CLUSTER DIAG. 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


21832 


022737 


000010 


177777 


142624 
000002 


000176 
036274 
036270 
177600 
000007 
001134 
143371 
143376 
000176 


143407 


036212 


036206 
177600 
000025 





FE EE RE TT TEAS GRRL TR SS TE AES EE SE 
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177776 


000004 


001140 


000001 


6$: BIS @'0,R2 
7$: BIS %' ,R2 
MOVB R2,CR3)+ 
TST CRO)+ 
CMP RO.#10 
BLT $ 
BGT $ 
MOV RS ,R2 
BR 6$ 
8$: TSTB le 
BPL 
MOVB *iCSF), -2(R3) 
9$: CLRB CR3) 
MOV CSP)+,R5 
MOV (SP)+,R3 
MOV (SP)+,R2 
MOV (SP)+,R1 
TYPE » $0BLK 
MOV 2(SP),4(CSP) 
MOV (SP)+, CSP) 
RTI 
$DTBL: 10000. 
1000. 
100. 
10. 
$DBLK: .BLKW 4 


-SBTTL TTY INPUT ROUTINE 


SEQ 0445 


;sMAKE THE BCD DIGIT ASCII 
;sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
:;JUST INCREMENTING 
;sCHECK THE TABLE INDEX 
3:GO0 DO THE NEXT DIGIT 
3:;GO0 TO EXIT 
3;GET THE LSD 
+3GO CHANGE TO ASCII 
— THE LSD THE FIRST NON-ZERO? 
;B8R IF NO 


yTYES--SET THE SIGN FOR TYPING 
3;SET THE TERMINATOR 

;;POP STACK INTO RS 

;:POP STACK INTO R3 

33;PQP STACK INTO R2 

;;POP STACK INTO Ri 

3sPOP STACK INTO RO 

:;NOW TYPE THE NUMBER 

;;ADJUST THE STACK 


;sRETURN TO USER 


§ fs PRRAESEREEEE EE EEEEEEEEESEDESEEEEEEE4SEEEOD4E4K4EEDEDEEEEEEEEEEELERLES 


-ENABL LSB 


§ § PRERSREREEASSSESEEESSAEEEASEESEEEREE DEES ES £4 444444446404444444% 
s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

;*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

;*#SERVICE THE TEST FOR CHANGE a SWITCH REGISTER TRAP CALL 


;#WHEN OPERATING IN TTY FLAG M 
#SWREG , SWR 


SCKSUR: CMP 
BNE i5$ 
TSTB asTKS 
BPL 15$ 
MOVB 8$TKB, -CSP) 
BIC #tCi77,(SP) 
CMP #7. CSP )+ 
BNE iS¢ 
CMPB $AUTOB , #1 
BEQ 15$ 
TYPE » $CNTLG 
$GTSWR: TYPE » SMSWR 
TYPOC 
TYPE » SMNEW 
19$: CLR -CSP) 
CLR -(SP) 
7$: TSTB 8$TKS 
BPL 7$ 
BIC #tC177,(SP) 
9$: CMP (SP),¢25 


3:1S THE SOFT-SWR SELECTED? 
;;BRANCH IF NO 

;:;CHAR THERE? 

;3;IF NO, DON’T WAIT AROUND 
;;SAVE THE CHAR 

3;STRIP-OFF THE ASCII 

7:IS IT A CONTROL G? 

+;NO, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 
;;BRANCH IF YES 

;;ECHO THE CONTROL-G (tG) 
33 TYPE CURRENT CONTENTS 
:;SAVE SWREG FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 
;;PROMPT FOR NEW SWR 

;;CLEAR COUNTER 

7; THE NEW SWR 

;;CHAR THERE? 

::IF NOT TRY AGAIN 
;;PICK UP CHAR 

;;MAKE IT 7-BIT ASCII 
3:IS IT A CONTROL-U? 








COKDAEO KOJ11-B8 CLUSTER DIAG. 
TTY INPUT ROUTINE 


143114 


143116 
143120 


000002 
177776 


001174 


000004 
036012 


036006 
177600 
000004 
035760 
035754 
177600 
000021 
000004 


000004 
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SEQ 0446 
BNE 10$ ;:;BRANCH IF NOT 
TYPE » $CNTLU 33YES, ECHO CONTROL-U (tU) 
20$: ADD 06 ,SP ;: IGNORE PREVIOUS INPUT 
BR 19$ ;3;LET‘S TRY IT AGAIN 
10$ CMP CSP) ,¢15 33IS IT A <CR>? 
BNE 16$ ;;BRANCH IF NO 
TST 4( SP) 3;YES, IS IT THE FIRST CHAR? 
BEQ 11$ ;;BRANCH IF YES 
036132 MOV 2(SP), @SWR +:;SAVE NEW SWR 
11i$: ADD #6 ,SP ;:;CLEAR UP STACK 
14$: TYPE » $CRLF ;3ECHO <CR> AND <LF> 
000001 CMPB $INTAG #1 ;;RE-ENABLE TTY KBD INTERRUPTS? 
BNE 15$ ;sBRANCH IF NOT 
036110 MOV #100 ,8$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 
15$ RTI ; sRETURN 
16$ JSR PC, $TYPEC ;;ECHO CHAR 
CMP CSP), 060 3;CHAR < 0? 
BLT ;;BRANCH IF YES 
CMP (SP), 067 ;;CHAR > 7? 
BGT 18$ ;;BRANCH IF YES 
BIC #60, (SP)+ ;:;STRIP-OFF ASCII 
TST ) 33IS THIS THE FIRST CHAR 
BEQ 17$ ;;BRANCH IF YES 
ASL (SP) 33NO, SHIFT PRESENT 
ASL (SP) 3 CHAR OVER 19 MAKE 
ASL CSP) $3 ROOM FOR NEW ONE. 
17$: INC 2(SP) ;;KEEP COUNT OF CHAR 
BIS -2(SP),(CSP) 3;SET IN NEW CHAR 
BR 7$ 7:GET THE NEXT ONE 
18$: TYPE » $QUES ss TYPE ?<CR><LF> 
BR 20$ ::SIMULATE CONTROL-U 
-DSABL LSS 
PELE ToT i teri rit ir ir itt it itt itt ttt it it tT TT eT eT TTT TTT TT TTT TTT TTT 
a ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
;* 3 
:* ROCHR :s;INPUT A SINGLE CHARACTER FROM THE TTY 
3% RETURN HERE ;:CHARACTER IS ON THE STACK 
;* ;;WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP),-CSP) ;:PUSH DOWN THE PC 
000002 MOV 4(SP),2CSP) ;;SAVE THE PS 
i$ TSTB asTKS ;;WAIT FOR 
BPL i$ 7A CHARACTER 
000004 MOVB S$TKB,4¢(SP) ;;READ THE TTY 
000004 BIC #tC<177> ,4CSP) SGET RID OF JUNK IF ANY 
000023 CMP 4(SP), #23 33I1S IT A CONTROL-S? 
BNE 3$ ;;BRANCH IF NO 
2$: TSTB asTKS ;;WAIT FOR A CHARACTER 
BPL 2$ 3;LOOP UNTIL ITS THERE 
MOVB as TKB, -CSP) ;:GET CHARACT 
BIC #tC177,CSP) ;;MAKE IT 7-BIT ASCII 
CMP (SP)+, #21 ::IS IT A CONTROL-Q? 
BNE 2$ 3:;IF NOT DISCARD IT 
BR i$ ;YES, RESUME 
000021 3$: CMP 4(SP),#$X0N 331S IT A RANDOM XON? 
BEQ i$ ;:;BRANCH IF YES 
000140 CMP 4(SP), #140 :3IS IT UPPER CASE? 








- 





COKDAEO KDJ11-B CLUSTER DIAG. 
TTY INPUT ROUTINE 


21833 


143420 
143422 
143430 
143432 


002407 
026627 
003003 
042766 
000002 


010146 


enn nccnncnncnnn ncn ccna ere SS sss 
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000004 000175 

000040 000004 

143354 

143364 

000177 

001174 

143352 

143352 

000015 

177777 

001176 

000004 000002 

143354 000004 
125 015 
000 
107 015 
000 
012 123 
122 040 
040 000 
040 116 
127 040 
040 000 


000004 000002 


4$: 


BLT 
CMP 
BGT 
BIC 
RTI 


4$ 
4(SP),@175 
48 
#40,4(SP) 


SEQ 0447 


;;BRANCH IF YES 

33IS IT A SPECIAL CHAR? 
;:;BRANCH IF YES 

;:MAKE IT UPPER CASE 
;:;GO BACK TO USER 


§ i RERAEAERESEEERAEESEESESEESAAEEAARASEEEEAEDEREREREEEE EEA EREREES 
;#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


;*CALL: 


9$: 


$TTYIN: . 
$CNTLU: . 


$CNTLG: 


$MSWR: 


$MNEW: 


ROLI 


N 
RETURN HERE 


»ASCIZ 
-ASCIZ 


-ASCIZ 


R3, -(SP) 
#$TTYIN,R3 
er 


CSP)+,CR3) 
#177 ,CR3) 
3$ 

» $QUES 

i$ 

CR3),9$ 
.9$ 
#15,(R3)+ 
2$ 


@$TTYIN, 4(SP) 
0 
0 
8. 
/tU/<15><12> 
/*G/<15><12> 


;; INPUT A STRING FROM THE TTY 
;s;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3; TERMINATOR WILL BE A BYTE OF ALL O'S 
33; SAVE 

;;GET ADDRESS 

;;BUFFER FULL? 

3;BR IF YES 

3;GO READ ONE CHARACTER FROM THE TTY 
;;GET CHARACTER 

331S IT A RUBOUT 

3;SKIP IF NOT 

ss TYPE A ‘?' 

;;CLEAR THE BUFFER AND LOOP 

;;ECHO THE CHARACTER 


;sCHECK FOR RETURN 
;;LOOP IF NOT RETURN 
3;CLEAR RETURN CTHE 15) 
3;TYPE A LINE FEED 
;sRESTORE R3 


;;ADJUST THE STACK AND PUT ADDRESS OF THE 
33 FIRST ASCII CHARACTER ON IT 

; ;sRETURN 

;;STORAGE FOR ASCII CHAR. TO TYPE 

;; TERMINATOR 

;sRESERVE 8 BYTES FOR TTY INPUT 

;;CONTROL “U 


;;CONTROL “G” 


<15><12>/SWR = / 


4 NEW = / 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 
5 RRRREEEEREREAERAEEBEREEAAEAAAARERAEE SEES ES SAREERESEEEREEESERS 


;#THIS ROUTINE WILL READ AN OCTAL CASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. 


;#CALL: 
;* 
;* 


;* 
$RDOCT: 


RDOCT 
RETURN HERE 


MOV 
MOV 
MOV 
MOV 


(SP), -CSP) 
4(SP),2CSP) 
RO, ~(SP) 
R1,-CSP) 





;;READ AN OCTAL NUMBER 
3;LOW ORDER BITS ARE ON TOP OF THE STACK 
;sHIGH ORDER B1IiS ARE IN $HIOCT 
;;PROVIDE SPACE FOR THE 
;; INPUT NUMBER 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 








; 
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SEQ 0448 
READ AN OCTAL NUMBER FROM THE TTY 
143434 010246 MOV =—s_-R2,, - (SP) +;PUSH R2 ON STACK 
143436 104411 1$: ROLIN ;;READ AN ASCIZ LINE 
143440 012600 MOV (SP)+,RO ::;GET ADDRESS OF 1ST CHARACTER 
143442 005001 CLR sR +;CLEAR DATA WORD 
143444 005002 CLR = RR. | 
143446 112046 2s: MOVB © (RO)+,-( SP) :;PICKUP THIS CHARACTER 
143450 001412 BEQsié3S +;IF ZERO GET OUT 
143452 006301 ASL RL $342 
143454 006102 ROL = R2 
143456 006301 ASL RA 5384 
143460 006102 ROL sR | 
143462 006301 ASL sR 5388 
143464 006102 ROL R2 
143466 042716 177770 BIC #+C7,(SP) ;;STRIP THE ASCII JUNK 
143472 062601 ADD (SP)+,R1 ;;ADD IN THIS DIGIT 
143474 000764 BR 2$ ; ;LOOP 
143476 005726 3$: TST (SP)+ ;;CLEAN TERMINATOR FROM STACK 
143500 010166 000012 MOV =s-_- R11, 12 SP) +;SAVE THE RESULT 
143504 010237 143520 MOV = R2,, $HIOCT 
143510 012602 MOV (SP)+,R2 +;POP STACK INTO R2 
143512 012601 MOV (SP)+,R1 ;;POP STACK INTO Ri 
143514 012600 MOV (SP)+,RO ;;POP STACK INTO RO 
143516 000002 RTI ; RETURN 
143520 000000 $HIOCT: .WORD 0 ;;HIGH ORDER BITS GC HERE 
21834 : .SBTTL TRAP DECODER 
ss RR EKAEESEEEEESEEEEEEES EEE EEE ESA‘ KK EEESEKEEEKEKE RELEASE 
;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#GO TO THAT ROUTINE. 
143522 010046 STRAP: MOV RO, -(SP) +;SAVE RO 
143524 016600 000002 MOV §2(SP),RO +;GET TRAP ADDRESS 
143530 005740 TST -CRO) ;;BACKUP BY 2 
143532 111000 MOVB = (RO),RO 3;GET RIGHT BYTE OF TRAP 
143534 006300 ASL = RO ;;POSITION FOR INDEXING 
143536 016000 143556 MOV STRPADC(RO),RO  ;;INDEX TO TABLE 
143542 000200 RTS —_—RO ;;GO TO ROUTINE 
;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
143544 011646 $TRAP2: MOV (SP),-(SP) ;;MOVE THE PC DOWN 
143546 016666 000004 000002 MOV 4(SP),2¢SP) ;;MOVE THE PSW DOWN 
143554 000002 RTI ;;RESTORE THE PSW 
.SBTTL TRAP TABLE , 
;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*#BY THE “TRAP” INSTRUCTION. 
; ROUTINE 
; -<sa «= @& 
143556 143544 $TRPAD: .WORD  $TRAP2 
143560 141626 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
143562 142206 $TYPOC ;;CALL=TYPOC = TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
143564 142162 $TYPOS ;;CALL=TYPOS |= TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
143566 142222 $TYPON ;;CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
143570 142410 $TYPOS ;;CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
143572 142704 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
143574 142634 $CKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
143576 143116 $RDCHR ;;CALL=RDCHR = TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
143600 143246 $RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 


143602 143420 $RDOCT ;;CALL=RDOCT TRAP +12(104412) READ AN OCTAL NUMBER FROM TTY 








COKDAEO KDJ11-B CLUSTER DIAG. 
POWER DOWN AND UP ROUTINES 


21835 


21837 


012737 


143744 
000340 


035300 
143750 
143656 


143744 
143750 
143750 
143750 


035232 


143604 
000340 


012 
127 
000 





ennnnnnnnnnnc nnn nnnnn ener eee rere sss stn 
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000024 
000026 


000024 


000024 


000024 
000026 


120 
105 


SEQ 0449 


-SBTTL POWER DOWN AND UP ROUTINES 

j i SPREREAESERESEEAEEAEEASASEEESASEEAEAAAEAAEARAREDEE EASE EREEED EES 
sPOWER DOWN ROUTINE 
@SILLUP,@@PWRVEC ;;SET FOR FAST UP 
@340 ,QOPWRVEC+2 ;;PRIO:7 


;7PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;:PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;:;PUSH f4 ON STACK 
;;PUSH RS ON STACK 
;;PUSH @SWR ON STACK 
;;SAVE SP 


AVR6 
@$PWRUP,@@PWRVEC ;;SET UP VECTOR 


;:HANG UP 


sf FERERERESESESE SESE AAAS EAASEAREAEEASESEAEEEEEEEKERESALAAEALAEAEKS 


SSILLUP,@@PWRVEC ;;SET FOR FAST DOWN 
6.SP T SP 


$PWRON: MOV 
MOV 
MOV RO, -CSP) 
MOV Ri,-CSP) 
MOV R2,-CSP) 
MOV R4,-CSP) 
MOV OSWR , - (SP) 
MOV SP,$S 
MOV 
HALT 
BR --2 
;POWER UP ROUTINE 
$PWRUP: MOV 
MOV $SAVRE, 
CLR $SAVRE 
1$: INC $SAVR6E 
BNE i$ 
MOV (SP)+, @SWR 
MOV CSP)+,R5 
MOV (SP)+,R4 
MOV CSP)+,R3 
MOV (SP)+,R2 
MOV CSP)+,RO 
MOV 
MOV 
TYPE 
$PWRMG: .WORD $POWER 
RTI 
$ILLUP: HALT 
BR .-2 
$SAVRE: 


$POWER : 


0 
-ASCIZ <15><12> “POWER” 


-EVEN 
. END 


;3GE 
;;WAIT LOOP FOR THE TTY 
;;WAIT FOR THE INC 


a3 WORD 

;sPOP STACK INTO @SWR 
3sPOP STACK INTO R5 
3sPOP STACK INTO R4 


@$PWRON,@OPWRVEC ;;SET UP THE POWER DOWN VECTOR 
#340 ,B@PWRVEC+2 ;;PRIO:7 


sREPORT THE POWER FAILURE 
;sPOWER FAIL MESSAGE POINTER 


3;THE POWER UP SEQUENCE WAS STARTED 
3; BEFORE THE POWER DOWN WAS COMPLETE 
;sPUT THE SP HERE 











COKDAEO KDJ11-8 CLUSTER DIAG. 
Symbol table 


AMADR3= 
AMADR4 = 
AMAMS1i= 
AMAMS2= 
AMAMS3= 
AMAMS4 = 
AMSGAD = 
AMSGLG= 
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AMSGTY= 000000 


AMTYP1i= 
AMTYP2= 
AMTYP3= 
AMTYP4= 
APASS = 
APRIOR= 
APTCSU= 
APTENV= 
APTSIZ= 
APTSPO= 
ASWREG= 
ATESTN= 
AUNIT = 


oo 

eH 

a" 

°o 

oO 
onu#eu#ee#eu#ek#heereus#eeuaeuw#an&u 








002674 
002714 


124574 


052742 





, nnn nnn nnn eee a SS Sn sss SSS SSS mate 
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SEQ 0451 


Symbol table 
EmM30 130207 EXBAD2 115266 GPR4TS 005374 KIPAR4= 172350 
EM31 130261 EXITST 114134 GPRSTS 005452 KIPARS= 172352 
EM32 130306 EXPBDT 111126 GPR6TS 005530 KIPAR6= 172354 
EM33 130347 EXPDAT 114146 GTSWR = 104406 KIPAR7= 172356 
EM34 130411 EXPIR1 034344 HITMIS= 177752 KIPDRO= 172300 
EM35 130451 EXPTBL 105634 HMPARR 105404 KIPDRi= 172302 
EM36 130477 EXPWOT 111116 HOP10 067506 KIPDR2= 172304 
EM37 130543 EXTFPA 140172 HOP11 070500 KIPOR3= 172306 
EM4 127062 FINNOP 021252 HOP12 071536 KIPDR4= 172310 
EM40 130605 FINI 052444 HOP13 072564 KIPORS= 172312 
EM41 130652 FIN1O 054114 HOP14 073660 KIPOR6= 172314 
EmM42 130736 FINi1 054220 HOP1S 075354 KIPOR7= 172316 
EmM43 130764 FINI16 022742 HOP16 075670 KMCR = 177734 
131015 FIN117 023056 HOP17 076352 LASTCH 116110 
EM45 134055 FINI20 023200 HOP18 100612 LCOSUB 101102 
EM46 131137 FINI21 023574 HOP19 101230 LCFSUB 100464 
EM47 131227 FIN122 024044 HOP20 10 LOPARS 136736 
EMS 127122 FINI25 025206 HOP21 103734 LOPDRS 136766 
EMSO 131314 FINI26 026246 HOP22 104376 LEDS 123016 
EMS1 131337 FIN127 026706 HOP44 066324 L = 000012 
131371 FINI3 054434 HT = 000011 LKS = 177546 
EMSS 131427 FINI30 027576 ILAOA 030760 LKSFL 002722 
EMS4 131463 FINI4 054604 ILB0B 030766 LKSINT 137062 
EMSS 131521 FINiS 055022 ILL 053230 LOOP 004740 
131555 FINI6 055212 ILLBOA 031054 LOOPIN 003154 
EMS7 131601 FINiI7 055424 ILLBOB 031062 LOST 052424 
EM6 127155 FIN2 ILLOP1 053030 LOWADD 003016 
EM60 131633 FIN20 055622 ILLOP2 053124 LSTADD 114166 
EmM61 131701 FIN21 INITMM 136574 LXPSUB 102400 
131730 FIN22 056226 2 i2 MACCC 016216 
EmM63 132001 FIN23 056362 INTERR 110106 051322 
132032 FIN24 056562 INTRPC 110052 MACO 051212 
EM65 132071 FIN26 057316 IOTOA 030 MACOA 051216 
EM66 132141 FIN27 057660 I0T 030374 MAC1 051226 
EM67 132200 FIN3O 060224 IOTVEC= MAC2 051242 
EM7 127220 FINS1 060364 IOXXX 033520 MAC3 051256 
EM70 132235 FINS2 060656 JIIFLT 140257 MAC4 051272 
EM71 132266 FIN33 061152 KDPARO= 172360 MACS 051306 
EM72 132322 FING 053134 KDPARi= 172362 016142 
EM73 132360 FINS 053240 KDPAR2= 172364 MAIREG= 177750 
EM74 132404 FING 053440 KDPARS= 172366 MALCC 016770 
132435 FIN7 053664 KDPAR4= 172370 MARCC 17050 
EM76 132466 FLAG 003030 KDPARS= 172372 MASK 003160 
EM77 132536 FLO 003062 KDPAR6= 172374 MA11 011010 
ENDHRT 105576 FLOAT 00 KDPAR7= 172376 MASS 011714 
ENOLUP 114110 FMPARR 105214 KDPDRO= 172320 MBB1i 011106 
ENOMOV 114172 FPAFLT 140174 KDPORI= 172322 2 011370 
ENOTAG 115314 FPAOPT 140160 KDOPDR2= 172324 MBCCC Ol 
ENDTLP ii FPVEC = 000244 KDPOR3S= 172326 MBCOO 38 ©010612 
140060 FRSTST 004742 KDPDR4= 172330 MBCii 011166 
ERRCNT 003022 FSTADD 114164 KDPDORS= 172332 MBC22 011456 
ERRFP 140056 FWOSEQ 114152 KDPOR6= 172334 MBIOO 010532 
ERROR = 104000 003020 KDPDR7= 172336 MBPTO 030614 
ERROUT 104536 GPROTS 005104 KIPARO= 172340 MBSCC 015736 
ERRVEC= 000004 GPRITS 005162 KIPARi= 172342 MBT 032724 
ERTYPE 136356 GPR2TS 005240 KIPAR2= 172344 MBTA 032746 
EXBAD 114124 GPR3TS 005316 KIPAR3= 172346 MBTB 032750 
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Symbol table 
MIALLA 033344 
MIALLB 033346 
MIALLD 033356 
MIALLF 033366 
MIL 033120 
MILA 033144 
MILAO 030712 
MILB 033146 
MILD 033156 
MILF 033166 
MILLBO 031012 
MILLO 030224 
MILLOA 030270 
MILLOB 030276 
LO 033200 
MILOA 033232 
MILOB 033234 
MILOC 033246 
MILOD 033272 
MILOE 033274 
MILOF 033306 
MIOT 032246 
MIOTA 032270 
MIOTB 032272 
MIOTD 0323 
MIOTF 032312 
MIOTO 030322 
MITO 032324 
MITOA 032354 
MITOB 032356 
MITOC 032370 
MITOD 032414 
MITOE 032416 
MITOF 032430 
MJ 012720 
MJP 013556 
MJP17 013566 
MJP27 0135610 
MJP27A 013622 
MJP37 013674 
MJPS7A 013706 
MJP67 013632 
MJP67A 013644 
MJP67B 013660 
MJP77 013662 
MJP77E 013716 
MJRA 014474 
MJR27 014530 
MJR27A 014564 
MJR2 014604 
MJR37 8601 
MJRS7A 014722 
MJR6A 014662 
MJR6B 014664 
MJR67 014606 
' MJR67A O1 
MJR77 914742 
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014776 


010144 
010176 





SEQ 0452 
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SEQ 0453 
Symbol teble 
me 005022 POLY = 120001 SDPARS= 172272 SWO1 = 000002 
MS 005042 PROCNT 023126 SOPAR6= 172274 SWO2 = 000004 
M6 005062 PRO = 000000 SOPAR7= 172276 SWOS = 000010 
NEWADD 003026 PRI = 000040 SDOPDRO= 172220 SWO4 = 000020 
NEWDAT 114160 PR2 = 000100 SOPOR1= 172222 SWOS = 000040 
NOABRT 141356 PRS = 000140 SDOPOR2= 172224 SWO6 = 000100 
NOFPA 140166 PR4 = 000200 SDPDR3= 172226 SWO7 = 000200 
NOTOK 140002 PRS = 000240 SDOPDR4= 172230 SWOB = 000400 
NULL = 000000 PR6 = 000300 SOPORS= 172232 SWO9 = 001000 
NXMFIN 047636 PR7 = 000340 SOPDR6= 172234 SW1 = 000002 
NXMPAR 111350 PS = 177776 SOPOR7= 172236 SW10 = 002000 
NXMTRP 047244 PSW == 177776 SEQ 003072 SWil = 
ODDXxX 033620 PSWBTS 005612 SFDSUB 075550 SWi2 = 010000 
OK 137760 PWRVEC= 000024 SIMGOA 002702 SW13 = 020000 
OKAY7 043056 Q22EN 003002 SIPARO= 172240 SW1i4 = 040000 
OKAY7A 043066 Q22INT 137350 SIPARi= 172242 SWi5 = 100000 
OKA7 043044 Q22SIZ 137070 SIPAR2= 172244 SWw2 = 
OK1 140006 RAMPAR 137012 SIPARS= 172246 SW3 = 000010 
OK7 26 RBUF = 177 SIPAR4= 172250 SW4 = 000020 
137314 RCSR = 177560 SIPARS= 172252 SWS = = 000040 
PAR 137674 = 104410 SIPAR6= 172254 SW6 = 000100 
PARAD1 56 ROLIN = 104411 SIPAR7= 172256 SW7 = 000200 
PARAD2 047276 RDOCT = 104412 SIPDRO= 172200 Swe = 
PARVAL 045716 RECDAT 114150 SIPOR1= 172202 SW9 = 001000 
PARVA2 047330 RECDOST 003142 SIPOR2= 172204 SXPSUB 104256 
PARVAS 7446 RECFEC 003122 SIPDRS= 172206 TABL 00 
PARI 137676 RECST 003132 SIPOR4= 172210 TABiO 003364 
R * 177522 RESVEC= 000010 SIPORS= 172212 TAB11 003374 
POR 137652 i 015266 SIPDR6= 172214 TAB11A 003404 
POR1 137654 RET2 015354 SIPOR7= 172216 003414 
PHY1 T3 015432 SIXBIT 115460 TABiS 003424 
PIR = 177772 RITEDA 114156 SLEND 122620 TABi3B 00 
PIRQ © 177772 RT 015054 SLOCOO 003012 TABi4 003444 
PIRQNX 034222 RTS1 015022 SLOCOL 003014 TABiS 003454 
PIRQT 125736 RTS6 015032 SPAUL 027614 TAB16 § 003464 
PIRQVE= 000240 RXXX 034040 SPAU2 027636 TABi7 003474 
PIRRTN 034522 R6 =#000006 SPAU3 027656 TABi8 003504 
PIRTBL 034324 R7 =#000007 SPAU4 027702 TAB2 003244 
PIRTEX 034224 SAVBR 002730 SPAUS 027716 TAB21 003514 
PIRXXX 034166 SAVMRO 00 SPAU6 027734 TAB22 003524 
1 034224 SAVMR1 003044 SPS 003074 TAB23 003534 
PI 034344 SAVMR2 003046 SPSJ 003076 TAB24 003544 
PIR2EX 034452 SAVPCR 002726 SRO = 177572 TAB25 003554 
PIRS 034452 SAVPOS 003156 SR1 = 177574 TAB26 3 
PIRSEX 034546 SAVSUP SR2 = 177576 TAB27. 003574 
PIR4 03454¢ SAVSWR 003050 SRS =» 172516 TAB28 003604 
PIRS 034624 SAVUSE 003040 STACK = 001100 TAB29 003614 
PIRSEX SAV3O 004112 START 004024 TAB29A 003624 
PIR6 035034 SAV32 004114 STBOT = 001000 TABS 003254 
PIR6GEX 035136 SCOSUB 103470 STKLMT= 177774 TAB3O 3634 
PITBLi 034430 OPE = STMOVI 113326 TABSi 003644 
PITBL2 035020 SOFSUB 076120 STMOVT 114450 TABS2 003654 
PIi 034474 SDPARO= 172260 SUBT 052232 TABS3 
PI2 SOPARi= 172262 001140 TAB34 003674 
PIS 034510 SOPAR2= 172264 SWREG 000176 TAB4 003264 
PLFO 043674 SOPARS= 172266 SWO = 000001 TAB40 86003704 
PLFI 044066 SOPAR4= 172270 SWOO = 000001 TAB41 8 003714 
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SEQ 0454 

Symbol tedle 

TEL2Z6A 025254 TSFPS 053134 TST13 107044 TS1i4 047134 
TE1268 025730 TSFP6 053240 TST14 107360 TSi5 050020 
TE127 026246 TSFP7 053440 TSTiS)§©6.: 10 7524 TS16 051024 
TEL2Z7A. 026446 TSF10 6054054 TST16 §=©. 107752 TSIi6A 051016 
TE130 §=—§.: 026710 TSF13 054424 TST1i7 §=—©. 110156 TS1822 046066 
TEL3SOA 027166 TSF14 054574 TsT2 104376 TS26D0 057236 
TFi14 021230 TSF1S 055012 TST20 110402 TS26D01 057246 
T6114 021240 TSF16 055202 TST2i 111150 TS2602 057256 
THRBIT 115726 TSFi7 6055414 TST22 111360 TS2603 057266 
TH114 021250 TSF2 052514 TST23 111600 TS26D04 057276 
TIMDEL 12 TSF20 055612 TST24 112136 TS2605 057306 
TIMEOU 053114 TSF21 056032 TST2S5 112714 TS2700 057600 
TIMOUT TSF22 056216 TST26 113056 TS2701 057610 
TKVEC = 000060 TSF23 056352 TST27 114172 TS2702 057620 
TMM16A 050534 TSF24 056552 TST3 104542 TS2703 057630 
THM16B 050414 TSF31 060354 TST3O 8 §=115314 TS2704 057640 
TMM16C 050444 TSF6 053430 TST31 115466 TS2705 057650 
TMM16D 050474 TSF7 053624 TST32 4 §=6115734 060144 
TMM16E 050524 TSLOOP 114556 TST33 116254 TS30D1 060154 
TMML6F 26 SMA 043116 TST34 116406 TS30D2 060164 
TM16A 051120 TSMB 043136 TST35 116772 TS3003 060174 
T 137542 TSMC 043146 TST36 §©=«117156 TS30D4 060204 
TPVEC = 00 TSMMUO 86015056 TST37 117464 TS3005 060214 
TRAPVE= 0C0034 TSMMU1L 035152 TST4 104642 TS3200 060576 
TRPFLG 140054 TSMMU2 035236 TST40 §=«117632 TS32D1 060606 
TRPOA 030562 TSMMUS 036436 TST41 120134 TS32D3 060626 
TR 030570 TSMMU4 036736 TST42 120302 TS3204 060636 
TRTVEC= 000014 TSMMUS 037666 TST43 120612 TS3205 

TRYMA 030126 TSMMU6 040020 TST44 TS3300 061072 
TRYMB 030160 TSMMU7 042524 TST45 120750 TS33D1 061102 
TRYMC 030206 TSMMUB 043152 TST46 121032 TS3302 061112 
TSO31 060252 TSMMU9 043354 TST47 §6121246 TS3303 061122 
TS 115276 TSMM10 044254 TSTS 105226 TS33D4 061132 
TSFP1 052356 TSMM11 044636 TSTSO 121300 TS3305 061142 
SFP10 053664 TSMM1i2 045074 TSTS1 1644 TS6DA 053410 
SFP11 054114 TSMM13 045462 TST52 122112 TS6DAT 053420 
TSFPi2 054220 TSMM14 046530 TSTSS 122402 TS7 042774 
TSFP13 054270 TSMM1S 047654 TST54 122620 TS7DA1 053634 
TSFP14 4 TSMM16 050174 TSTSS 123142 TS7DA2 053644 
TSFP15 054606 TSMM6A 040126 TSTS5S6 123516 TS7DA4 053654 
TSFP16 055024 TSMM6B 040564 TSTS?7 123764 TS7FIN 043150 
TSFP17 055214 TSMM6C 041324 TST6 105412 TS9FIN 044252 
TSFP2 052446 TSMM6D 042024 TST60 124136 TYPDS = 104405 
TSFP20 055426 TSM16A 050270 TST61 124336 TYPE = 104401 
TSFP21 055624 TSM16B 050316 TST62 125304 TYPOC = 104402 
TSFP22 056044 TSM1i6C 050342 TST63 125562 TYPON = 104404 
TSFP23 056230 TSM16D 050406 TST64 125746 TYPOS = 104403 
TSFP24 056364 TSM7 043104 TST65 126046 TLOFIN 044636 
TSFP25 056564 TSM9 043510 TST66 126230 TLIFIN 045074 
TSFP26 056722 TSTADD 003024 TST7 105652 7114 021146 
TSFP27 057320 TSTEND 116770 TS10 044554 T116 022612 
TSFPS 2544 TSTLOC 003162 TS10D1 054064 TL2FIN 045460 
TSFP3SO 057662 TSTLUP 113410 TS1002 054074 T122A 023672 
TSFP31 060226 TST1 004740 TS1004 054104 Ti22B 024024 
TSFPS2 060366 TST10 106126 TSil 044754 T1i23A 024230 
TSFP33 060660 TST11 106370 TS1101 054210 T1238 §©024240 
TSFP4 052660 TST12 106644 TSi2 045412 T123C 0=«.: 02.42.46 
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SEQ 0455 

Symbol teble 
V@BE2 002716 $DDW10 001310 $ETEND 001324 $MSGTY 001200 $TIMES 001164 
VQ@PRi 092700 $DDW1ii 001312 SFATAL 001202 $MSWR 143376 $TKB 001146 
V@PR2 002720 $0DW1i2 001314 SFFLG 141624 $MTYP1 001231 $TKS 001144 
we 002672 $00W13 001316 $FILLC 001156 $MTYP2 001235 STMPO 8 ©—.001160 
wC2 002712 $00W14 001320 SFILLS 001155 SMTYP3 001241 STMP1 001162 
WOTRP 140044 s00Wi5 001322 $GDADR 001120 $MTYP4 001245 $™TN = 000067 

UF = 177566 $00W2 001270 $GDDAT 001124 $MXCNT 140774 $TPB 001152 
xCBIT 016710 s00W3 001272 $GET42 140430 $NULL 001154 $STPFLG 001157 
xCSR = 177564 $00W4 001274 $GTSWR 142704 SNWTST= 000000 $TPS 00115¢ 
XME100 017714 s00WS 001276 $HD = QOO0001 SOCNT 142404 $TRAP 143522 
XME101 017736 s00W6 001300 $HIBTS 000232 $OMODE 142406 $TRAP2 143544 
SAPTHD $00W7 001302 $HIOCT 143520 $OVER 140752 $TRP = 000013 
SATYC 141404 s00WS 001304 $ICNT 001104 $PASS 001206 $TRPAD 143556 
SATY1 141360 $DDW9 001306 SILLUP 143744 $PASTM 000240 $TSTM 000236 
SATYS 141366 SDEVCT 001210 $INTAG 001135 $POWER 143752 $TSTNM 001102 
SATY4 141376 SDEVM 001256 SITEMB 001114 SPWRON 143604 $TTYIN 143354 
SAUTOB 0011354 $DOAGN 140450 $LF 001176 $PWRMG 143740 $TYPOS 142410 
$BASE 001254 SOTBL 142614 $SLFLG 141623 SPWRUP 143656 $TYPE 141626 
SBDADR 001122 SENDAD 140440 $LPADR 1106 $QUES 001174 $TYPEC 142040 
SBDDAT 001126 SENDCT 140406 $SLPERR 001110 $ROCHR 143116 $TYPEX 142160 
SBELL 001170 SENDOMG 140457 $MADR1 001232 $RDOLIN 143246 $TYPOC 142206 
sCOW1 001260 SENULL 140454 SMADR2 001236 $RDOCT 143420 $TYPON 142222 
sCOW2 001262 SENV 001220 $MADRS 001242 $RDSZ = 000010 $TYPOS 142162 
SCHARC 142156 SENVM 001221 $MADR4 001246 $RTNAD 140452 $SUNIT 001212 
$CKSWR 2634 sEOP 140340 $MAIL 001200 $SAVR6 143750 SUNITM 000242 
SCMTAG 001100 SEOPCT 140400 $MAMS1 001230 $SCOPE 140474 $USWR 001224 
sCM3 = 000000 SERFLG 001103 $SMAMS2 001234 $SETUP= 000137 $SVECT1 001250 
sCM4 == 000002 SERMAX 001115 $MAMS3 001240 $STUP = 177777 $VECT2 001252 
SCNTLG 143371 SERROR 140776 $MAMS4 001244 $SVLAD 140716 $XOFF = 000023 
SCNTLU 143364 SERRPC 001116 SMBADR 000234 $SVPC = 00 $XON = 000021 
sCPUOP 001226 SERRTB 001324 SMFLG 141622 $SWR = 167400 $XTSTR 140514 
SCRLF 001175 SERTTL OO1112 SMNEW 143407 $SWREG 001222 $$GET4= 000000 
SOBLK 142624 SESCAP 001166 $MSGAD 001214 $SWRMK= 000300 SOFILL 142405 
$D0WO 001264 SETABL 001220 $MSGLG 001216 $TESTN 001204 -$X = 000232 
$0DWi 001266 
. ABS. 143762 000 =—s« CRW, I, GBL, ABS, OVR) 

000000 001 (CRW,I,LCL,REL,CON) 


Errors detected: 10 


eee Assembler statistics 


Work file reads: 471 

Work file writes: 403 

Size of work file: 63968 Words ( 250 Pages) 
Size of core pool: 19714 Words ( 75 Pages) 
Operating system: RSX-11M/PLUS (Under VAX/VMS) 


Elapsed time: 00:24:42.02 
COKDAEO, COKDAEO/NL : TOC /-SP=ORION.MLB/ML, COKDAEO. MAC/DS:GBL 





